TimeSet address, value
address | Address of time value (0 to 6) |
value | Time value. (0 to 255) |
Use the TimeSet command to store new time values.
The following is an example showing how to set the time, and output the current time to the debug window:
Const Device=CB290 Dim i As Byte TimeSet 0,0 'Sec TimeSet 1,&H32 'Min TimeSet 2,&H11 'Hour TimeSet 3,&H1 'Date TimeSet 4,&H5 'Day of the week TimeSet 5,&H6 'Month TimeSet 6,&H5 'Year Do i = Time(6) Debug "Year ","200",Hex i, " " i = Time(5) Select Case i Case 0 Debug "January" Case 1 Debug "February" Case 2 Debug "March" Case 3 Debug "April" Case 4 Debug "May" Case 5 Debug "June" Case 6 Debug "July" Case 7 Debug "August" Case 8 Debug "September" Case 9 Debug "November" Case 10 Debug "December" End Select i = Time(3) Debug " ", Hex2 i 'Print date Debug " " i = Time(4) Select Case i Case 0 Debug "Sunday " Case 1 Debug "Monday " Case 2 Debug "Tuesday " Case 3 Debug "Wednesday " Case 4 Debug "Thursday " Case 5 Debug "Friday " Case 6 Debug "Saturday " End Select Debug Cr i = Time(2) Debug Hex2 i,":" i = Time(1) Debug Hex2 i,":" i = Time(0) Debug Hex i,Cr Delay 1000 Loop