A
amredries
Guest
Jeg har brukt sanntid clom ds1302 med pic 16F877
synes at det fungerer, men jeg fant ut at det teller sekunder 0 til 99
ikke 60 sekunder der somthing feil sted når telle sekundene det hopper
for eksempel 35 36 45
koden er
klokke:
lav RST 'nullstille klokken
lav sclk
'angir første tiden 8:00 16/07/99
rtcyear = $ 99
rtcday = $ 06
rtcmonth = $ 07
rtcdate = $ 16
rtchr = $ 08
rtcmin = 0
rtcsec = 0
gosub fullStopp
'************************************************* **************
fullStopp: 'stille klokken
RST = 1 'aktivere data tx
shout io, sclk, lsbfirst, [$ 8e, 0] 'aktiverer skrive
RST = 0 'reset RTC
RST = 1 'klar for tx
'skrive alle 8 RTC registre i burst mode
Shout io, sclk, LSBFIRST, [$ være, rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, RT cyear, 0]
RST = 0 'reset RTC
return
'************************************************* **************
gettime: 'lese tid fra RTC
RST = 1 'klar for tx
shout io, sclk, LSBFIRST, [$ bf] 'Les alle 8 RTC registre i burst mode
Shin io, sclk, LSBPRE, [rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, rtcyea r, rtccontrol]
RST = 0 'Tilbakestill RTC
Tilbake
Jeg bruker picbasic
behage hjelpe meg
takk
synes at det fungerer, men jeg fant ut at det teller sekunder 0 til 99
ikke 60 sekunder der somthing feil sted når telle sekundene det hopper
for eksempel 35 36 45
koden er
klokke:
lav RST 'nullstille klokken
lav sclk
'angir første tiden 8:00 16/07/99
rtcyear = $ 99
rtcday = $ 06
rtcmonth = $ 07
rtcdate = $ 16
rtchr = $ 08
rtcmin = 0
rtcsec = 0
gosub fullStopp
'************************************************* **************
fullStopp: 'stille klokken
RST = 1 'aktivere data tx
shout io, sclk, lsbfirst, [$ 8e, 0] 'aktiverer skrive
RST = 0 'reset RTC
RST = 1 'klar for tx
'skrive alle 8 RTC registre i burst mode
Shout io, sclk, LSBFIRST, [$ være, rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, RT cyear, 0]
RST = 0 'reset RTC
return
'************************************************* **************
gettime: 'lese tid fra RTC
RST = 1 'klar for tx
shout io, sclk, LSBFIRST, [$ bf] 'Les alle 8 RTC registre i burst mode
Shin io, sclk, LSBPRE, [rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, rtcyea r, rtccontrol]
RST = 0 'Tilbakestill RTC
Tilbake
Jeg bruker picbasic
behage hjelpe meg
takk