HTBasic Help
×
Menu
Index

Example: Limits Widget

 
10     ! *********************************************************************
20     ! Example: LIMITS Widget
30     !
40     ! This program generates a LIMITS widget. In the program,
50     ! the value is increased from 1 to 99. The LOW limit is
60     ! set to 20 and the HIGH limit is set to 80. Since the
70     ! ALARM RANGES is set to "OUTSIDE" ("O"), and ALARM TYPE
80     ! is "BEEP", the alarm sounds when the pointer is in the
90     ! red ranges.
100   !
110   ! **********************************************************
120   !
130   DIM Value(1:100)
140   ASSIGN @Lim TO WIDGET "LIMITS"
150   CONTROL @Lim;SET ("TITLE":" Example: LIMITS Widget")
160   CONTROL @Lim;SET ("LOW LIMIT":20,"HIGH LIMIT":80)
170   CONTROL @Lim;SET ("ALARM TYPE":"BEEP","ALARM RANGES":"O")
180   CONTROL @Lim;SET ("MINIMUM":0,"MAXIMUM":100)
190   CONTROL @Lim;SET ("SYSTEM MENU":"Quit")
200   ON EVENT @Lim,"SYSTEM MENU" GOTO Finis
210   LOOP
220     FOR I=1 TO 99
230       Value(I)=I
240       CONTROL @Lim;SET ("VALUE":Value(I))
250       WAIT .1
260     NEXT I
270   END LOOP
280 Finis:   !
290   ASSIGN @Lim TO *                ! Delete LIMITS widget
300   END