다음은 화면상에 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,195,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
SET PAD 명령에 의해 터치입력이 활성화되고, ON PAD 명령에 의해 터치입력 시 점프할 라벨을 선언합니다.