سلام آقا مهدی.تشکر میشود بابات مطالب خوب وب .آقا یک سوال آیا اگر آلارمی را تنظیم کردیم بعد برق دستگاه قطع شد با روشن کردن مجدد دستگاه آیا آلارم تنظیم شده از رویه دستگاه حذف میشود یا این که در حافظه EEPROM میکرو ذخیره میشود.یک سوال دیگر.آیا میشه برای یک رله طوری برنامه ریزی کنیم که در طول روز در ساعات مختلف برامون فعال بشه یانه.مثلا ساعت 9 صبح دوباره 9:15 دوباره 11و بعد دوباره11:50 فعال بشه.یعنی در طول یک روز چند بار یک خروجی فعال بشه؟؟؟؟؟؟؟؟؟؟؟
با تشکر از شما

سلام آقا مهدی .مرسی بابن راهنمایی هاتون.اون مشکل قبلیم حل شد.حالا یه سوال دیگه.من میخواستم این برنامه رو از 4 تا آلارم به 8 تا آلارم تغییر بدم و اینکار را کردم ولی برنامه ازم چند تا خطا میگیره به نظر شما مشکل از چیه که ایراد میگیره؟؟؟؟برنامه رو هم میفرستم.لطفا کمکم کنید نیاز دارم با تشکر..



$regfile = "m8def.dat"
$crystal = 8000000
$framesize = 128
$hwstack = 128
$swstack = 128
'$projecttime = 14
$lib "ds1307clock.lib"
'Globals
Dim Weekday As Byte , Isleapyear As Bit , Isleapyearp As Bit
Dim Jmonth_a(12) As Byte , Gmonth_a(12) As Byte
Dim Buzzer_hour As Byte
Dim Buzzer_min As Byte
Dim Buzzer1_hour As Eram Byte
Dim Buzzer1_min As Eram Byte
Dim Buzzer2_hour As Eram Byte
Dim Buzzer2_min As Eram Byte
Dim Buzzer3_hour As Eram Byte
Dim Buzzer3_min As Eram Byte
Dim Buzzer4_hour As Eram Byte
Dim Buzzer4_min As Eram Byte

Dim Buzzer5_hour As Eram Byte
Dim Buzzer5_min As Eram Byte

Dim Buzzer_m As Integer
Dim Buzzer_d As Integer
Dim Buzzer1_m As Eram Integer
Dim Buzzer1_d As Eram Integer
Dim Buzzer2_m As Eram Integer
Dim Buzzer2_d As Eram Integer
Dim Buzzer3_m As Eram Integer
Dim Buzzer3_d As Eram Integer
Dim Buzzer4_m As Eram Integer
Dim Buzzer4_d As Eram Integer

Dim Buzzer5_m As Eram Integer
Dim Buzzer5_d As Eram Integer


Dim Jday1 As Integer , Jmonth1 As Integer
Buzzer_hour = 0
Buzzer_min = 0
Config Portb.5 = Output

'Int
Enable Interrupts

'DS1307 Pins
Config Sda = Portb.0 : Config Scl = Portb.1

'Address of DS1307
Const Ds1307w = &HD0 : Const Ds1307r = &HD1

'Clock init
Config Clock = User
Config Date = Mdy , Separator = /

'LCD
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = _
Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2

'Keypad
Config Kbd = Portd

'Sub's
Declare Sub Init()
Declare Sub Main()
Declare Sub Task1()
Declare Sub Show()
Declare Sub Show1()
Declare Sub Ahang2()
Declare Function Jdate(byval Gdate As String) As String

'Backlight
Config Pinb.2 = Output : Backlight Alias Portb.2

'Speaker
Config Pinb.6 = Output : Speaker Alias Portb.6

'Main Prog Start Here:
Call Init()
Do
Call Main()
Loop
End
'_______________________________________________________________________________

'Keypad Decode Data Table
Keypad:
Data "1" , "2" , "3" , "Esc"
Data "4" , "5" , "6" , "F2"
Data "7" , "8" , "9" , "F3"
Data "*" , "0" , "#" , "Enter" , "no"
'_______________________________________________________________________________

Sub Init()
Cls : Cursor Off Noblink
Set Backlight
Sound Speaker , 240 , 50
Lcd "fza.ir"
Lowerline
Lcd "avr-clock-date"
Waitms 800
End Sub
'_______________________________________________________________________________

Sub Main()
Cls : Cursor Off Noblink
Call Task1()
'other task here...
End Sub
'_______________________________________________________________________________

Sub Task1()
Local _key As Byte
Local _num As String * 5
Cls
Do
Call Show()
_key = Getkbd()
_num = Lookupstr(_key , Keypad)

If _num = "1" Then
Incr _hour
If _hour > 23 Then _hour = 0
'when use (Time$ = str) to set data, the sub
'settime automatically called. else if you want to change _hour,
'_min and _sec you must call settime manually after change the var's.
Gosub Settime
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "2" Then
Incr _min
If _min > 59 Then _min = 0
Gosub Settime
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "4" Then
Incr _year
If _year > 99 Then _year = 11
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "5" Then
Incr _month
If _month > 12 Then _month = 1
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "6" Then
Incr _day
If _day > 30 Then _day = 1
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

'Reset Date and Time (first usage and every time change backup battery)
If _num = "Esc" Then
Cls
'Date format is MM/DD/YY
Date$ = "10/04/12"
Time$ = "00:00:00"
Call Show()
Sound Speaker , 120 , 20
Waitms 200

Buzzer1_hour = 25
Buzzer1_min = 0
Buzzer2_hour = 25
Buzzer2_min = 0
Buzzer3_hour = 25
Buzzer3_min = 0
Buzzer4_hour = 25
Buzzer4_min = 0
Buzzer5_hour = 25
Buzzer5_min = 0
Buzzer1_m = 0
Buzzer1_d = 0
Buzzer2_m = 0
Buzzer2_d = 0
Buzzer3_m = 0
Buzzer3_d = 0
Buzzer4_m = 0
Buzzer4_d = 0
Buzzer5_m = 0
Buzzer5_d = 0


End If

'Buzzer settings
'///////////////////////Buzzer1
If _num = "7" Then
'Date format is MM/DD/YY
Cls
Waitms 200
Buzzer_hour = Buzzer1_hour
Buzzer_min = Buzzer1_min

Buzzer_m = Buzzer1_m
Buzzer_d = Buzzer1_d
Do
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B1"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer1 end

'///////////////////////Buzzer2
If _num = "8" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Do
Buzzer_hour = Buzzer2_hour
Buzzer_min = Buzzer2_min
Buzzer_m = Buzzer2_m
Buzzer_d = Buzzer2_d
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B2"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer2 end

'///////////////////////Buzzer3
If _num = "9" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Buzzer_hour = Buzzer3_hour
Buzzer_min = Buzzer3_min
Buzzer_m = Buzzer3_m
Buzzer_d = Buzzer3_d
Do

_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B3"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer3 end

'///////////////////////Buzzer4
If _num = "F3" Then
Buzzer_hour = Buzzer4_hour
Buzzer_min = Buzzer4_min
Buzzer_m = Buzzer4_m
Buzzer_d = Buzzer4_d
'Date format is MM/DD/YY
Cls
Waitms 200
Do

_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
Sound Speaker , 120 , 20
Buzzer4_min = Buzzer_min
Waitms 200
End If
'///////////////////////Buzzer4 end
If _num = "3" Then Exit Do
Home : Lcd "B4"
Call Show1()
Loop
Cls
End If

'2222222222222222222222222222222222222222222222222222222222222222222222222222
If _num = "3" Then Exit Do

Home : Lcd "B1"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer1 end

'///////////////////////Buzzer2
If _num = "*" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Do
Buzzer_hour = Buzzer2_hour
Buzzer_min = Buzzer2_min
Buzzer_m = Buzzer2_m
Buzzer_d = Buzzer2_d
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_d = Buzzer_d
Waitms 200
End If

'2222222222222222222222222222222222
Loop
End Sub
'_______________________________________________________________________________
Sub Show1()
Locate 1 , 3 : Lcd ">H(" ; Buzzer_hour ; ")min(" ; Buzzer_min ; ")"
Locate 2 , 1 : Lcd " >M(" ; Buzzer_m ; ")day(" ; Buzzer_d ; ")"
End Sub

Sub Show()
Home : Lcd Time$
Locate 1 , 11 : Lcd " "
Lowerline
Lcd Jdate(date$)

If Buzzer1_m = Jmonth1 Or Buzzer1_m = 0 Then
If Buzzer1_d = Jday1 Or Buzzer1_d = 0 Then
If Buzzer1_hour = _hour Then
If Buzzer1_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
If Buzzer2_m = Jmonth1 Or Buzzer2_m = 0 Then
If Buzzer2_d = Jday1 Or Buzzer2_d = 0 Then
If Buzzer2_hour = _hour Then
If Buzzer2_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If

If Buzzer3_m = Jmonth1 Or Buzzer3_m = 0 Then
If Buzzer3_d = Jday1 Or Buzzer3_d = 0 Then
If Buzzer3_hour = _hour Then
If Buzzer3_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
If Buzzer4_m = Jmonth1 Or Buzzer4_m = 0 Then
If Buzzer4_d = Jday1 Or Buzzer4_d = 0 Then
If Buzzer4_hour = _hour Then
If Buzzer4_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
End Sub
'_______________________________________________________________________________

Function Jdate(byval Gdate As String) As String
'Local Var's
Local Tmp As String * 5 , Tmp1 As String * 10
Local Jday As Integer , Jmonth As Integer , Jyear As Integer
Local Gyear As Integer , Gmonth As Integer , Gday As Integer
Local Gdayofyear As Integer , Gyear_ As Integer , Jdayofyear As Integer
Local Gnumdayofyear As Integer , Iloop As Byte , Temp1 As Integer
Local Temp2 As Integer , Temp3 As Integer , Temp4 As Integer
Gdayofyear = 0 : Gyear_ = 0 : Jday = 0 : Jmonth = 0 : Jyear = 0
Jdayofyear = 0 : Gnumdayofyear = 0 : Isleapyear = 0 : Isleapyearp = 0
Iloop = 0 : Temp1 = 0 : Temp2 = 0 : Temp3 = 0 : Temp4 = 0
Gmonth_a(1) = 31 : Gmonth_a(2) = 28 : Gmonth_a(3) = 31 : Gmonth_a(4) = 30
Gmonth_a(5) = 31 : Gmonth_a(6) = 30 : Gmonth_a(7) = 31 : Gmonth_a(8) = 31
Gmonth_a(9) = 30 : Gmonth_a(10) = 31 : Gmonth_a(11) = 30 : Gmonth_a(12) = 31
Gnumdayofyear = 365

'Calculate
Tmp = Mid(date$ , 7 , 2)
Gyear = Val(tmp) + 2000

Tmp = Mid(date$ , 1 , 2)
Gmonth = Val(tmp)

Tmp = Mid(date$ , 4 , 2)
Gday = Val(tmp)

Temp1 = Gyear Mod 4 : Temp2 = Gyear Mod 100
Temp3 = Gyear Mod 400 : Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Gmonth_a(2) = 28
Else
Gmonth_a(2) = 29
End If
Gyear_ = Gyear - 1
Temp1 = Gyear_ Mod 4
Temp2 = Gyear_ Mod 100
Temp3 = Gyear_ Mod 400
Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Reset Isleapyearp
Else
Set Isleapyearp
End If
Temp1 = Gmonth - 1
For Iloop = 1 To Temp1
Gdayofyear = Gmonth_a(iloop) + Gdayofyear
Next
Gdayofyear = Gday + Gdayofyear
If Gdayofyear > 79 Then
Temp1 = Gdayofyear - 79
Jyear = Gyear - 621
If Temp1 < 186 Then
Temp2 = Temp1 Mod 31
Temp3 = Temp1 / 31
If Temp2 = 0 Then
Jmonth = Temp3
Jday = 31
Else
Jmonth = Temp3 + 1
Jday = Temp2
End If
Else
Temp2 = Temp1 - 186
Temp3 = Temp2 Mod 30
Temp4 = Temp2 / 30
If Temp3 = 0 Then
Jmonth = Temp4 + 6
Jday = 30
Else
Jmonth = Temp4 + 7
Jday = Temp3
End If
End If
Else
Jyear = Gyear - 622
If Isleapyearp = 1 Then
Gdayofyear = Gdayofyear + 11
Else
Gdayofyear = Gdayofyear + 10
End If
Temp2 = Gdayofyear Mod 30
Temp3 = Gdayofyear / 30
If Temp2 = 0 Then
Jmonth = Temp3 + 9
Jday = 30
Else
Jmonth = Temp3 + 10
Jday = Temp2
End If
End If
Tmp1 = ""
Tmp = Str(jyear)
Tmp1 = Tmp1 + Tmp
Tmp1 = Tmp1 + "/"
Tmp = Str(jmonth)
Tmp = Format(tmp , "00")
Tmp1 = Tmp1 + Tmp
Tmp1 = Tmp1 + "/"
Tmp = Str(jday)
Tmp = Format(tmp , "00")
Jdate = Tmp1 + Tmp
Jday1 = Jday
Jmonth1 = Jmonth
End Function
'_______________________________________________________________________________

'called from ds1307clock.lib
'Whan use Time$ and Date$ this sub's called from DS Lib to Set and Get your data
Getdatetime:
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cstart : I2cwbyte Ds1307r
I2crbyte _sec , Ack : I2crbyte _min , Ack : I2crbyte _hour , Ack
I2crbyte Weekday , Ack : I2crbyte _day , Ack : I2crbyte _month , Ack
I2crbyte _year , Nack : I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 4 : I2cwbyte _day
I2cwbyte _month : I2cwbyte _year : I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cwbyte _sec : I2cwbyte _min
I2cwbyte _hour : I2cstop
Return
'_______________________________________________________________________________

'end of file
Sub Ahang2()
'Corona :: Rythm of The Night
Sound Speaker , 65 , 1274 'C2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Sound Speaker , 117 , 715 'Ais2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Wait 2
End Sub

$regfile = "m8def.dat"
$crystal = 8000000
$framesize = 128
$hwstack = 128
$swstack = 128
'$projecttime = 14
$lib "ds1307clock.lib"
'Globals
Dim Weekday As Byte , Isleapyear As Bit , Isleapyearp As Bit
Dim Jmonth_a(12) As Byte , Gmonth_a(12) As Byte
Dim Buzzer_hour As Byte
Dim Buzzer_min As Byte
Dim Buzzer1_hour As Eram Byte
Dim Buzzer1_min As Eram Byte
Dim Buzzer2_hour As Eram Byte
Dim Buzzer2_min As Eram Byte
Dim Buzzer3_hour As Eram Byte
Dim Buzzer3_min As Eram Byte
Dim Buzzer4_hour As Eram Byte
Dim Buzzer4_min As Eram Byte

Dim Buzzer5_hour As Eram Byte
Dim Buzzer5_min As Eram Byte

Dim Buzzer_m As Integer
Dim Buzzer_d As Integer
Dim Buzzer1_m As Eram Integer
Dim Buzzer1_d As Eram Integer
Dim Buzzer2_m As Eram Integer
Dim Buzzer2_d As Eram Integer
Dim Buzzer3_m As Eram Integer
Dim Buzzer3_d As Eram Integer
Dim Buzzer4_m As Eram Integer
Dim Buzzer4_d As Eram Integer

Dim Buzzer5_m As Eram Integer
Dim Buzzer5_d As Eram Integer


Dim Jday1 As Integer , Jmonth1 As Integer
Buzzer_hour = 0
Buzzer_min = 0
Config Portb.5 = Output

'Int
Enable Interrupts

'DS1307 Pins
Config Sda = Portb.0 : Config Scl = Portb.1

'Address of DS1307
Const Ds1307w = &HD0 : Const Ds1307r = &HD1

'Clock init
Config Clock = User
Config Date = Mdy , Separator = /

'LCD
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = _
Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2

'Keypad
Config Kbd = Portd

'Sub's
Declare Sub Init()
Declare Sub Main()
Declare Sub Task1()
Declare Sub Show()
Declare Sub Show1()
Declare Sub Ahang2()
Declare Function Jdate(byval Gdate As String) As String

'Backlight
Config Pinb.2 = Output : Backlight Alias Portb.2

'Speaker
Config Pinb.6 = Output : Speaker Alias Portb.6

'Main Prog Start Here:
Call Init()
Do
Call Main()
Loop
End
'_______________________________________________________________________________

'Keypad Decode Data Table
Keypad:
Data "1" , "2" , "3" , "Esc"
Data "4" , "5" , "6" , "F2"
Data "7" , "8" , "9" , "F3"
Data "*" , "0" , "#" , "Enter" , "no"
'_______________________________________________________________________________

Sub Init()
Cls : Cursor Off Noblink
Set Backlight
Sound Speaker , 240 , 50
Lcd "fza.ir"
Lowerline
Lcd "avr-clock-date"
Waitms 800
End Sub
'_______________________________________________________________________________

Sub Main()
Cls : Cursor Off Noblink
Call Task1()
'other task here...
End Sub
'_______________________________________________________________________________

Sub Task1()
Local _key As Byte
Local _num As String * 5
Cls
Do
Call Show()
_key = Getkbd()
_num = Lookupstr(_key , Keypad)

If _num = "1" Then
Incr _hour
If _hour > 23 Then _hour = 0
'when use (Time$ = str) to set data, the sub
'settime automatically called. else if you want to change _hour,
'_min and _sec you must call settime manually after change the var's.
Gosub Settime
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "2" Then
Incr _min
If _min > 59 Then _min = 0
Gosub Settime
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "4" Then
Incr _year
If _year > 99 Then _year = 11
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "5" Then
Incr _month
If _month > 12 Then _month = 1
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

If _num = "6" Then
Incr _day
If _day > 30 Then _day = 1
Gosub Setdate
Call Show()
Sound Speaker , 120 , 20
Waitms 200
End If

'Reset Date and Time (first usage and every time change backup battery)
If _num = "Esc" Then
Cls
'Date format is MM/DD/YY
Date$ = "10/04/12"
Time$ = "00:00:00"
Call Show()
Sound Speaker , 120 , 20
Waitms 200

Buzzer1_hour = 25
Buzzer1_min = 0
Buzzer2_hour = 25
Buzzer2_min = 0
Buzzer3_hour = 25
Buzzer3_min = 0
Buzzer4_hour = 25
Buzzer4_min = 0
Buzzer5_hour = 25
Buzzer5_min = 0
Buzzer1_m = 0
Buzzer1_d = 0
Buzzer2_m = 0
Buzzer2_d = 0
Buzzer3_m = 0
Buzzer3_d = 0
Buzzer4_m = 0
Buzzer4_d = 0
Buzzer5_m = 0
Buzzer5_d = 0


End If

'Buzzer settings
'///////////////////////Buzzer1
If _num = "7" Then
'Date format is MM/DD/YY
Cls
Waitms 200
Buzzer_hour = Buzzer1_hour
Buzzer_min = Buzzer1_min

Buzzer_m = Buzzer1_m
Buzzer_d = Buzzer1_d
Do
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer1_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B1"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer1 end

'///////////////////////Buzzer2
If _num = "8" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Do
Buzzer_hour = Buzzer2_hour
Buzzer_min = Buzzer2_min
Buzzer_m = Buzzer2_m
Buzzer_d = Buzzer2_d
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B2"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer2 end

'///////////////////////Buzzer3
If _num = "9" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Buzzer_hour = Buzzer3_hour
Buzzer_min = Buzzer3_min
Buzzer_m = Buzzer3_m
Buzzer_d = Buzzer3_d
Do

_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer3_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
If _num = "3" Then Exit Do

Home : Lcd "B3"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer3 end

'///////////////////////Buzzer4
If _num = "F3" Then
Buzzer_hour = Buzzer4_hour
Buzzer_min = Buzzer4_min
Buzzer_m = Buzzer4_m
Buzzer_d = Buzzer4_d
'Date format is MM/DD/YY
Cls
Waitms 200
Do

_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer4_d = Buzzer_d
Waitms 200
End If
'----------------------------------------
Sound Speaker , 120 , 20
Buzzer4_min = Buzzer_min
Waitms 200
End If
'///////////////////////Buzzer4 end
If _num = "3" Then Exit Do
Home : Lcd "B4"
Call Show1()
Loop
Cls
End If

'2222222222222222222222222222222222222222222222222222222222222222222222222222
If _num = "3" Then Exit Do

Home : Lcd "B1"
Call Show1()
Loop
Cls
End If
'///////////////////////Buzzer1 end

'///////////////////////Buzzer2
If _num = "*" Then

'Date format is MM/DD/YY
Cls
Waitms 200
Do
Buzzer_hour = Buzzer2_hour
Buzzer_min = Buzzer2_min
Buzzer_m = Buzzer2_m
Buzzer_d = Buzzer2_d
_key = Getkbd()
_num = Lookupstr(_key , Keypad)
If _num = "1" Then
Incr Buzzer_hour
If Buzzer_hour > 23 Then
Buzzer_hour = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_hour = Buzzer_hour
Waitms 200
End If
If _num = "2" Then
Incr Buzzer_min
If Buzzer_min > 59 Then
Buzzer_min = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_min = Buzzer_min
Waitms 200
End If
'--------------------day and month setting
If _num = "5" Then
Incr Buzzer_m
If Buzzer_m > 12 Then
Buzzer_m = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_m = Buzzer_m
Waitms 200
End If
If _num = "6" Then
Incr Buzzer_d
If Buzzer_d > 31 Then
Buzzer_d = 0
Cls
End If
Sound Speaker , 120 , 20
Buzzer2_d = Buzzer_d
Waitms 200
End If

'2222222222222222222222222222222222
Loop
End Sub
'_______________________________________________________________________________
Sub Show1()
Locate 1 , 3 : Lcd ">H(" ; Buzzer_hour ; ")min(" ; Buzzer_min ; ")"
Locate 2 , 1 : Lcd " >M(" ; Buzzer_m ; ")day(" ; Buzzer_d ; ")"
End Sub

Sub Show()
Home : Lcd Time$
Locate 1 , 11 : Lcd " "
Lowerline
Lcd Jdate(date$)

If Buzzer1_m = Jmonth1 Or Buzzer1_m = 0 Then
If Buzzer1_d = Jday1 Or Buzzer1_d = 0 Then
If Buzzer1_hour = _hour Then
If Buzzer1_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
If Buzzer2_m = Jmonth1 Or Buzzer2_m = 0 Then
If Buzzer2_d = Jday1 Or Buzzer2_d = 0 Then
If Buzzer2_hour = _hour Then
If Buzzer2_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If

If Buzzer3_m = Jmonth1 Or Buzzer3_m = 0 Then
If Buzzer3_d = Jday1 Or Buzzer3_d = 0 Then
If Buzzer3_hour = _hour Then
If Buzzer3_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
If Buzzer4_m = Jmonth1 Or Buzzer4_m = 0 Then
If Buzzer4_d = Jday1 Or Buzzer4_d = 0 Then
If Buzzer4_hour = _hour Then
If Buzzer4_min = _min Then
Set Portb.5
Call Ahang2()
Else
Reset Portb.5
End If
End If
End If
End If
End Sub
'_______________________________________________________________________________

Function Jdate(byval Gdate As String) As String
'Local Var's
Local Tmp As String * 5 , Tmp1 As String * 10
Local Jday As Integer , Jmonth As Integer , Jyear As Integer
Local Gyear As Integer , Gmonth As Integer , Gday As Integer
Local Gdayofyear As Integer , Gyear_ As Integer , Jdayofyear As Integer
Local Gnumdayofyear As Integer , Iloop As Byte , Temp1 As Integer
Local Temp2 As Integer , Temp3 As Integer , Temp4 As Integer
Gdayofyear = 0 : Gyear_ = 0 : Jday = 0 : Jmonth = 0 : Jyear = 0
Jdayofyear = 0 : Gnumdayofyear = 0 : Isleapyear = 0 : Isleapyearp = 0
Iloop = 0 : Temp1 = 0 : Temp2 = 0 : Temp3 = 0 : Temp4 = 0
Gmonth_a(1) = 31 : Gmonth_a(2) = 28 : Gmonth_a(3) = 31 : Gmonth_a(4) = 30
Gmonth_a(5) = 31 : Gmonth_a(6) = 30 : Gmonth_a(7) = 31 : Gmonth_a(8) = 31
Gmonth_a(9) = 30 : Gmonth_a(10) = 31 : Gmonth_a(11) = 30 : Gmonth_a(12) = 31
Gnumdayofyear = 365

'Calculate
Tmp = Mid(date$ , 7 , 2)
Gyear = Val(tmp) + 2000

Tmp = Mid(date$ , 1 , 2)
Gmonth = Val(tmp)

Tmp = Mid(date$ , 4 , 2)
Gday = Val(tmp)

Temp1 = Gyear Mod 4 : Temp2 = Gyear Mod 100
Temp3 = Gyear Mod 400 : Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Gmonth_a(2) = 28
Else
Gmonth_a(2) = 29
End If
Gyear_ = Gyear - 1
Temp1 = Gyear_ Mod 4
Temp2 = Gyear_ Mod 100
Temp3 = Gyear_ Mod 400
Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Reset Isleapyearp
Else
Set Isleapyearp
End If
Temp1 = Gmonth - 1
For Iloop = 1 To Temp1
Gdayofyear = Gmonth_a(iloop) + Gdayofyear
Next
Gdayofyear = Gday + Gdayofyear
If Gdayofyear > 79 Then
Temp1 = Gdayofyear - 79
Jyear = Gyear - 621
If Temp1 < 186 Then
Temp2 = Temp1 Mod 31
Temp3 = Temp1 / 31
If Temp2 = 0 Then
Jmonth = Temp3
Jday = 31
Else
Jmonth = Temp3 + 1
Jday = Temp2
End If
Else
Temp2 = Temp1 - 186
Temp3 = Temp2 Mod 30
Temp4 = Temp2 / 30
If Temp3 = 0 Then
Jmonth = Temp4 + 6
Jday = 30
Else
Jmonth = Temp4 + 7
Jday = Temp3
End If
End If
Else
Jyear = Gyear - 622
If Isleapyearp = 1 Then
Gdayofyear = Gdayofyear + 11
Else
Gdayofyear = Gdayofyear + 10
End If
Temp2 = Gdayofyear Mod 30
Temp3 = Gdayofyear / 30
If Temp2 = 0 Then
Jmonth = Temp3 + 9
Jday = 30
Else
Jmonth = Temp3 + 10
Jday = Temp2
End If
End If
Tmp1 = ""
Tmp = Str(jyear)
Tmp1 = Tmp1 + Tmp
Tmp1 = Tmp1 + "/"
Tmp = Str(jmonth)
Tmp = Format(tmp , "00")
Tmp1 = Tmp1 + Tmp
Tmp1 = Tmp1 + "/"
Tmp = Str(jday)
Tmp = Format(tmp , "00")
Jdate = Tmp1 + Tmp
Jday1 = Jday
Jmonth1 = Jmonth
End Function
'_______________________________________________________________________________

'called from ds1307clock.lib
'Whan use Time$ and Date$ this sub's called from DS Lib to Set and Get your data
Getdatetime:
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cstart : I2cwbyte Ds1307r
I2crbyte _sec , Ack : I2crbyte _min , Ack : I2crbyte _hour , Ack
I2crbyte Weekday , Ack : I2crbyte _day , Ack : I2crbyte _month , Ack
I2crbyte _year , Nack : I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 4 : I2cwbyte _day
I2cwbyte _month : I2cwbyte _year : I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cwbyte _sec : I2cwbyte _min
I2cwbyte _hour : I2cstop
Return
'_______________________________________________________________________________

'end of file
Sub Ahang2()
'Corona :: Rythm of The Night
Sound Speaker , 65 , 1274 'C2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Sound Speaker , 117 , 715 'Ais2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound Speaker , 110 , 758 'A2(1/16)
Sound Speaker , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Wait 2
End Sub

درود بر شما آقایِ احمدی ، با شما تماس گرفتم در رابطه با برنامه این پروژه ، از آنجایی که با کشیدنِ برقِ 5 ولتی و ریست شدن آی سی گفته بودین که برنامه چک خواهد شد .. ممنون میشم راهنمایی کنید ...اینم فایل Bas میباشد http://s5.picofile.com/file/8120044226/Jdate5.rar.html

سلام
من این پروژه رو روی برد برد بصورت کامل پیاده سازی کردم،اما هرکاری میکنم ساعت شروع بکار نمیکنه و به اینصورت نوشته شده a5:a5:a5 مطابق آموزش داده شده تمامی مراحل انجام دادم.اما باز کار نمیکنه!
خواهش میکنم راهنمایی بفرمائید.