HTBasic Help
×
Menu
Index

Example: Slider Widget

 
10     ! *********************************************************************
20     ! Example: SLIDER Widget
30     !
40     ! This program creates a SLIDER widget and displays
50     ! the value set by the slider.
60     !
70     ! **********************************************************
80     !
90     CLEAR SCREEN
100   ASSIGN @Slider TO WIDGET "SLIDER"
110   CONTROL @Slider;SET ("TITLE":" Example: SLIDER Widget")
120   CONTROL @Slider;SET ("X":150,"Y":25,"WIDTH":250,"HEIGHT":200)
130   CONTROL @Slider;SET ("SYSTEM MENU":"Quit")
140   !
150   ON EVENT @Slider,"SYSTEM MENU" GOTO Finis
160   ON EVENT @Slider,"DONE" GOSUB Dispval
170   LOOP
180     WAIT FOR EVENT
190   END LOOP
200   !
210 Dispval: !
220   STATUS @Slider;RETURN ("VALUE":Sliderval)
230   DISP Sliderval
240   RETURN
250 Finis: !
260   ASSIGN @Slider TO *                                ! Delete SLIDER widget
270   END