2002-10-30 12:27

''example swich led on/off with a button
     $TYPECHECK ON
     $INCLUDE "rapidq.inc"
     $INCLUDE "qled.inc"
     DECLARE SUB button_click
     CREATE form AS QFORM
      CREATE button AS QBUTTON
       left=40:top=40
       CAPTION="Push me"
       onclick=button_click
      END CREATE
      CREATE led AS qled
       left=20:top=45
      END CREATE
     END CREATE

     form.SHOWMODAL

     SUB button_click
      IF led.ldon=true THEN
       led.off
      ELSE
       led.ON
      END IF
     END SUB

2002-10-30 12:27