User Tools

Site Tools

한국어

cubloc:timeset:index

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.

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

Go CUBLOC home

cubloc/timeset/index.txt · Last modified: 2016/04/14 11:07 (external edit)