Re: DS1307 Problems help please !!! :-)
Code:
mainloop:
Gosub gettime ' Read the time from the RTC
IF (RTCHour=$00) and (RTCMin=$01) Then
Gosub Light_On ' Light on
ENDIF
IF (RTCHour=$00) and (RTCMin=$02) Then
Gosub Light_Off ' Light off
ENDIF
Pause 500 ' Do it about 2 times a min
Goto mainloop ' Do it forever and ever and ever
Light_On: high Light
return
Light_Off: Low light
return
End
Last edited by sayzer; - 19th September 2018 at 14:11.
"If the Earth were a single state, Istanbul would be its capital." Napoleon Bonaparte
Bookmarks