alperincesu
| | Tarih: 14.07.2006, 11:36 Mesaj konusu: pcf 8583 real time clock pic basic kullanımı! | |
| Kod: ===================== test code ================
define lcd_dreg porta
define lcd_dbıt 0
define lcd_rsreg portb
define lcd_rsbıt 4
define lcd_ereg portb
define lcd_ebıt 5
sda var portb.1 ' ı2c data pin
scl var portb.2 ' ı2c clock pin
h var byte
m var byte
s var byte
pause 500
ı2cwrite sda,scl, %10100001,2,[0,0,0]
pause 100
loop:
ı2cread sda, scl, %10100001,2,[s,m,h]
pause 100
lcdout $fe, 2, hex2(h),":",hex2(m),":",hex2(s)
goto loop
end
other code
s var byte
m var byte
h var byte
symbol scl = portc.3
symbol sda = portd.0
decimalesec var byte
decimalemin var byte
decimaleora var byte
s1 var byte
s2 var byte
m1 var byte
m2 var byte
h1 var byte
h2 var byte
ı2cread sda,scl,%10100001,2,[s]
ı2cread sda,scl,%10100001,3,[m]
ı2cread sda,scl,%10100001,4,[h]
you must convert bcd format
decimalesec = ((s >> 4) * 10) + (s & $0f)
s1 = decimalesec dig 1
s2 = decimalesec dig 0
decimalemin = ((m >> 4) * 10) + (m & $0f)
m1 = decimalemin dig 1
m2 = decimalemin dig 0
..............
............
|
|
