====== TimeSet ======

''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.

{{ :cubloc:timeset:rtc.png?nolink |}}

The following is an example showing how to set the time, and output the
current time to the debug window:

<code xbasic>
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
</code>

{{ :cubloc:timeset:rtcdebugscreen.png?nolink |}}

[[cubloc:index#system_library:|Go CUBLOC home]]