Data Sheet
dScript
dScript User Manual v2.15
main: threadsleep 100 ; give LCD modules time to power up
s1 = " dS3484 Date & Time"
s1[0] = 12
s1[1] = 19
s1[2] = 4
LCD05.Write(s1,0,s1.Length)
do
gosub lookUpDay
gosub lookUpMonth
s1 = " " + Day + " " + {d02} UTC.Day + " " + Month + " 20" +
{d02} UTC.Year + " " + {d02} UTC.Hour + ":" + {d02} UTC.Minute + "." + {d02}
UTC.Second
s1[0] = 2
s1[1] = 41
LCD05.Write(s1,0,s1.Length)
threadsleep 200
loop
lookUpDay: select UTC.Wday
case 0
Day = "SUN"
case 1
Day = "MON"
case 2
Day = "TUE"
case 3
Day = "WED"
case 4
Day = "THU"
case 5
Day = "FRI"
case 6
Day = "SAT"
else
Day = "Huh"
endselect
return
lookUpMonth: select UTC.Month
case 0
Month = "JAN"
case 1
Month = "FEB"
case 2
Month = "MAR"
case 3
Month = "APR"
Copyright © 2016, Devantech Ltd.
All rights reserved.
www.robot-electronics.co.uk
39