다음은 화면상에 RESET 보턴을 그리고, 그 보턴이 터치되었을때 0으로 리셋하는 프로그램입니다.

#include “CT18XX”
   Dim I As Integer
 Ct18contrast 150  ' LCD CONTRAST SETTING
   Dim TX1 As Integer, TY1 As Integer
   Contrast 550  
 On Pad Gosub GETTOUCH 
   Menuset 0,2,120,155,215,200
   Menutitle 0,20,14,"RESET"
 
   Do
        Locate 15,6
        Print DEC5 I
        Incr I
        Delay 200
   Loop
 
GETTOUCH:
 TX1 = Sys(10)
 TY1 = Sys(11)
   If Menucheck(0,TX1,TY1) = 1 Then
        CT18beep 20    
        I = 0
   End If
   Return 

• 위 소스를 ctrl+c로 카피한뒤 CUBLOC Studio에서 ctrl+v하실 수 있습니다.

큐블록 어플리케이션 노트