Intermec PB32 Fingerprint Developer's Guide (old) - Page 135
The next example shows how the date and time formats are set and the names
View all Intermec PB32 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 135 highlights
Chapter 7 - Controlling the Printer WEEKDAY$ (DATE$) TIMEDIFF (TIME$, "120000") The next example shows how the date and time formats are set and the names of months are specified. Finally, a number of date and time parameters printed to the standard OUT channel: 10 FORMAT DATE$ "MMM/DD/YYYY" 20 FORMAT TIME$ "hh.mm pp" 30 NAME DATE$ 1, "Jan":NAME DATE$ 2, "Feb" 40 NAME DATE$ 3, "Mar":NAME DATE$ 4, "Apr" 50 NAME DATE$ 5, "May":NAME DATE$ 6, "Jun" 60 NAME DATE$ 7, "Jul":NAME DATE$ 8, "Aug" 70 NAME DATE$ 9, "Sep":NAME DATE$ 10, "Oct" 80 NAME DATE$ 11, "Nov":NAME DATE$ 12, "Dec" 90 A%=WEEKDAY(DATE$) 100 PRINT WEEKDAY$(DATE$)+""+DATE$("F")+""+TIME$("F") 110 PRINT "Date:",DATE$("F") 120 PRINT "Time:",TIME$("F") 130 PRINT "Weekday:", WEEKDAY$(DATE$) 140 PRINT "Week No.:",WEEKNUMBER (DATE$) 150 PRINT "Day No.:", DATEDIFF ("030101",DATE$) 160 PRINT "Run time:", TICKS\6000;" minutes" 170 IF A%5 THEN PRINT "It is ";WEEKDAY$(DATE$); ". Stay home!" RUN The printer returns (for example): Monday Apr/03/2003 08.00 am Date: Apr/03/2003 Time: 08.00 am Weekday: Thursday Week No.: 14 Day No.: 93 Run time: 1 minutes It is Thursday. Go to work! This example shows how the TICKS function is used to delay the execution for a specified period of time: 10 20 30 40 1000 1010 1020 RUN INPUT "Enter delay in sec's: ", A% B%=TICKS+(A%*100) GOSUB 1000 END SOUND 440,50(Start signal) IF B%