سلام
این برنامه را نوشته ام اما فقط 255:255:255 نمایش داده میشود
دیلش چی هست
این برنامه را نوشته ام اما فقط 255:255:255 نمایش داده میشود
دیلش چی هست
$regfile = "m16def.dat"
$crystal = 8000000
Config Scl = Portc.0
Config Sda = Portc.1
Dim _sec As Byte , _min As Byte , _hour As Byte
Const Ds1307w = &Hd0
Const Ds1307r = &HD1
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cls
Do
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Nack
I2cstop
Locate 1 , 1
Lcd _sec
Lcd ":"
Lcd _min
Lcd ":"
Lcd _hour
Loop
$crystal = 8000000
Config Scl = Portc.0
Config Sda = Portc.1
Dim _sec As Byte , _min As Byte , _hour As Byte
Const Ds1307w = &Hd0
Const Ds1307r = &HD1
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cls
Do
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Nack
I2cstop
Locate 1 , 1
Lcd _sec
Lcd ":"
Lcd _min
Lcd ":"
Lcd _hour
Loop
دیدگاه