$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Print "soheil"
wait 1
'--------------------------- ds 1307 -----------------------------------------
$lib "ds1307clock.lib"
'configure the scl and sda pins
Config Sda = Portc.7
Config Scl = Portc.6
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
'------------------------------ key --------------------------------------------
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input
'------------------------------------------------------------------------------
Config Debounce = 30
Dim A As Byte , B As Byte , Data1 As Byte , C As Byte
Dim Dates As Byte
Dim Seco As Byte , Mine As Byte , Hour As Byte
Dim Day As Byte , Month As Byte , Year As Byte , Weekday As Byte
'----------------------------------------------------------------------------
Cursor Off
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Ack 'sec
I2crbyte Mine , Ack ' MINUTES
I2crbyte Hour , Ack ' Hours
I2crbyte Day , Ack
I2crbyte Month , Ack
I2crbyte Year , Nack
I2cstop
Gosub Seco
'-----------------------------
Cls
'chap '
Cls
'-------------------------------------------------------------------------------
Main:
Do
Gosub Ds1307
Gosub Disply_12
Gosub Chekkey
Loop
'-------------------------------------------------------------------------------
Ds1307:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Ack 'sec
I2crbyte Mine , Ack ' MINUTES
I2crbyte Hour , Ack
I2crbyte Day , Ack
I2crbyte Month , Ack
I2crbyte Year , Nack ' Hours
I2cstop
Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour)
Year = Makedec(year) : Month = Makedec(month) : Day = Makedec(day)
If Seco > 59 Then Seco = 0
If Mine > 59 Then Mine = 0
If Hour > 23 Then
Hour = 0
Gosub Seco
End If
Return
'-------------------------------------------------------------------------------
'( 24_12:
If Pinc.4 = 1 Then Gosub Disply_24
If Pinc.4 = 0 Then Gosub Disply_12
Return
'-------------------------------------------------------------------------------
Disply_24:
Locate 1 , 1
Lcd "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Locate 2 , 6
Lcd "(24)"
Return
')
'-------------------------------------------------------------------------------
Disply_12:
If Hour = 0 Then Hour = 12
If Hour > 12 Then Hour = Hour - 12
Print "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Print "Date = " ; Year ; "/" ; Month ; "/" ; Day ;
Return
'-------------------------------------------------------------------------------
Chekkey:
Debounce Pinc.0 , 0 , Seco , Sub
Debounce Pinc.1 , 0 , Mine , Sub
Debounce Pinc.2 , 0 , Hour , Sub
Debounce Pinc.3 , 0 , Day , Sub
Debounce Pinc.4 , 0 , Month , Sub
Debounce Pinc.5 , 0 , Year , Sub
Return
'---------------------------------------------
Seco:
Incr Seco
If Seco > 59 Then Seco = 0
Seco = Makebcd(seco)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte Seco
I2cstop
Return
'-------------------------------------
Mine:
Incr Mine
If Mine > 59 Then Mine = 0
Mine = Makebcd(mine)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 1 ' starting address in 1307
I2cwbyte Mine
I2cstop
Return
'-------------------------------------
Hour:
Incr Hour
If Hour > 23 Then Hour = 0
Hour = Makebcd(hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 2 ' starting address in 1307
I2cwbyte Hour
I2cstop
Return
'-------------------------------------
Day:
Incr Day
If Day > 31 Then Day = 0
Day = Makebcd(day)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte Day
I2cstop
Return
'-------------------------------------
Month:
Incr Month
If Hour > 12 Then Hour = 0
Month = Makebcd(month)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 5 ' starting address in 1307
I2cwbyte Month
I2cstop
Return
'-------------------------------------
Year:
Incr Year
Year = Makebcd(year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 6 ' starting address in 1307
I2cwbyte Year
I2cstop
Return
'-------------------------------------
End
: Minu = Format(minu , "00" : Seco = Format(seco , "00"Enable Interrupts Enable Int0 Config Int0 = Falling On Int0 Main1 Config Sda = Portd.6 Config Scl = Portd.5 Dim _sec As Byte Dim _min As Byte Dim _hour As Byte Dim S_e_c As String * 2 Dim M_i_n As String * 2 Dim H_o_ur As String * 2 Const Ds1307w = 208 Const Ds1307r = 209 I2cstart I2cwbyte Ds1307w I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 0 I2cwbyte 16 I2cstop Do : Loop End Main1: I2cstart I2cwbyte Ds1307w I2cwbyte 0 I2cstart I2cwbyte Ds1307r I2crbyte _sec , Ack I2crbyte _min , Ack I2crbyte _hour , Nack I2cstop Waitms 10 _hour = Makedec(_hour) _min = Makedec(_min) _sec = Makedec(_sec) H_o_ur = Str(_hour) M_i_n = Str(_min) S_e_c = Str(_sec) H_o_ur = Format(h_o_ur , "00") : M_i_n = Format(m_i_n , "00") : S_e_c = Format(s_e_c , "00") _hour = Val(h_o_ur) : _min = Val(m_i_n) : _sec = Val(s_e_c) Cls : Lcd _hour ; ":" ; _min ; ":" ; _sec Return
oo:
دیدگاه