ini codenya.
$regfile = "m8535.dat"
$crystal = 12000000
'------------------------ lcd -------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cls
'--------------------------- 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.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Portb = Output
Config Portd = Output
Declare Sub Test(byval A1 As Byte)
'------------------------------------------------------------------------------
Config Debounce = 30
Dim A1 As Byte , B1 As Byte , B2 As Byte
Dim Seco As Byte , Mine As Byte , Hour As Byte
'-------------------------------------------------------------------------------
Cursor Off
'-------------------------------------------------------------------------------
Cls
Locate 1 , 1
Lcd "Jam Digital"
Waitms 100
Cls
'-------------------------------------------------------------------------------
Main:
Do
Gosub Ds1307
Gosub 24_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 , nack ' Hours
I2cstop
Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour)
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 "Jam = " ; Hour ; ":" ;
A1 = Hour
Call Test(a1)
Portd = &B00001000
Portb = B2
Waitms 30
Portd = &B00000100
Portb = B1
Waitms 30 'call sub with parameters
Lcd Mine ; ":" ;
A1 = Mine
Call Test(a1)
Portd = &B00000010
Portb = B2
Waitms 30
Portd = &B00000001
Portb = B1
Waitms 30
Lcd Seco
Locate 2 , 6
Lcd "(24 Jam)"
Wait 1
Return
'-------------------------------------------------------------------------------
Disply_12:
If Hour = 0 Then Hour = 12
If Hour > 12 Then Hour = Hour - 12
Locate 1 , 1
Lcd "Jam = " ; Hour ; ":" ;
A1 = Hour
Call Test(a1)
Portd = &B00001000
Portb = B2
Waitms 30
Portd = &B00000100
Portb = B1
Waitms 30
Lcd Mine ; ":" ;
A1 = Mine
Call Test(a1)
Portd = &B00000010
Portb = B2
Waitms 30
Portd = &B00000001
Portb = B1
Waitms 30
Lcd Seco
Locate 2 , 6
Lcd "(12 Jam)"
Return
'-------------------------------------------------------------------------------
Chekkey:
Debounce Pinc.1 , 0 , Seco , Sub
Debounce Pinc.2 , 0 , Mine , Sub
Debounce Pinc.3 , 0 , Hour , 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 > 12 And Pinc.4 = 0 Then Hour = 0
Hour = Makebcd(hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 1 ' starting address in 1307
I2cwbyte Hour
I2cstop
Return
Sub Test(byval A1 As Byte ) 'start sub
B1 = A1 mod 10
B1 = Lookup(B1 , Dta)
B2 = A1 / 10
B2 = Lookup(B2 , Dta)
End Sub
Dta:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10
'-------------------------------------------------------------------------------