home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Basic_Plus_Examples / METRWDGT < prev    next >
Encoding:
Text File  |  2005-03-02  |  1.1 KB  |  30 lines
  1. 10    ! *********************************************************
  2. 20    ! Example: METER Widget
  3. 30    !
  4. 40    ! This program generates a METER widget with a 360 degree
  5. 50    ! scale. When the pointer is within the HIGH and LOW
  6. 60    ! LIMITS areas, beeps are generated.
  7. 70    !
  8. 80    ! *********************************************************
  9. 90    !
  10. 100       INTEGER N,M
  11. 110       ASSIGN @Meter TO WIDGET "METER"
  12. 120       CONTROL @Meter;SET ("TITLE":" Example: METER Widget")
  13. 130       CONTROL @Meter;SET ("X":50,"Y":25,"WIDTH":250,"HEIGHT":250)
  14. 140       CONTROL @Meter;SET ("ALARM RANGES":"LOW,HIGH","ALARM TYPE":"BEEP")
  15. 150       CONTROL @Meter;SET ("LOW LIMIT":10,"HIGH LIMIT":90,"SWEEP ANGLE":360)
  16. 160       CONTROL @Meter;SET ("MIDDLE PEN":0,"NEEDLE PEN":6,"NEEDLE WIDTH":2)
  17. 170       CONTROL @Meter;SET ("SYSTEM MENU":"Quit")
  18. 180       ON EVENT @Meter,"SYSTEM MENU" GOTO Finis
  19. 190   !
  20. 200       FOR M=1 TO 3
  21. 210           FOR N=1 TO 100
  22. 220               WAIT .1
  23. 230               CONTROL @Meter;SET ("VALUE":N)
  24. 240           NEXT N
  25. 250       NEXT M
  26. 260   !
  27. 270  Finis:!
  28. 280       ASSIGN @Meter TO * ! Delete METER widget
  29. 290       END
  30.