====== AN36002 - 화면에 보턴표시 및 터치입력 받기 ======

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

<code xbasic>

#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 
</code>

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

{{ :cublocapp:an36002:dsc_0124.jpg?nolink |}}

[[cublocapp:index|큐블록 어플리케이션 노트]]