Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / QLED / ledbutton1.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
''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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2023-2-3  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-10-30 12:27:44