COMFILE CUTOUCH CT1820, User Manual

Page: 63 / 93

Sample 2
This sample program is similar the previous sample program, but adds a "RESET" button to restart the
count at 0.
32 41
RESET
#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 ' Audio feedback
I = 0
End If
Return
Set Pad
is used to configure the dedicated kepad/touchpad port.
On Pad
is used to assign an interrupt
service routine to jump to when a touch event occurs.
Comfile Technology, Inc CT1820 User's Manual 63 Of 93