COMFILE CUTOUCH CT1820, Руководство пользователя

Страница: 65 / 93

Sample 4: Numeric Input
This sample shows how one can implement a numeric keypad. Enter a number on the keypad, and the
value entered will be displayed on the screen.
1
1234
4
7
0
2
5
8
ENTER
3
6
9
#include "CT18XX"
Dim TX1 As Integer, TY1 As Integer
Dim I As Integer
I=0
Ct18contrast 150
On Pad Gosub GETTOUCH
Menuset 0,2,165,50,195,75
Menutitle 0,11,4,"1"
Menuset 1,2,205,50,235,75
Menutitle 1,11,4,"2"
Menuset 2,2,245,50,275,75
Menutitle 2,11,4,"3"
Menuset 3,2,165,85,195,110
Menutitle 3,11,4,"4"
Menuset 4,2,205,85,235,110
Menutitle 4,11,4,"5"
Menuset 5,2,245,85,275,110
Menutitle 5,11,4,"6"
Menuset 6,2,165,120,195,145
Menutitle 6,11,4,"7"
Menuset 7,2,205,120,235,145
Menutitle 7,11,4,"8"
Menuset 8,2,245,120,275,145
Menutitle 8,11,4,"9"
Menuset 9,2,165,155,195,180
Menutitle 9,11,4,"0"
Menuset 10,2,205,155,275,180
Menutitle 10,17,4,"ENTER"
I =0
Do
Loop
GETTOUCH:
TX1 = Sys(10)
TY1 = Sys(11)
If Menucheck(0,TX1,TY1) = 1 Then
Comfile Technology, Inc CT1820 User's Manual 65 Of 93