사용자 도구

사이트 도구

English

ct1820:sample_4_숫자입력:index

SAMPLE 4 : 숫자입력

숫자 키패드 모양의 화면을 표시하고, 입력한 값을 화면상에 표시하는 프로그램입니다.

 #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
 I = I << 4
 I = I + 1
 CT18beep 20             '키터치음 발생
 Elseif Menucheck(1,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 2
 CT18beep 20
 Elseif Menucheck(2,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 3
 CT18beep 20
 Elseif Menucheck(3,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 4
 CT18beep 20
 Elseif Menucheck(4,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 5
 CT18beep 20
 Elseif Menucheck(5,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 6
 CT18beep 20
 Elseif Menucheck(6,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 7
 CT18beep 20
 Elseif Menucheck(7,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 8
 CT18beep 20
 Elseif Menucheck(8,TX1,TY1) = 1 Then
 I = I << 4
 I = I + 9
 CT18beep 20
 Elseif Menucheck(9,TX1,TY1) = 1 Then
 I = I << 4
 CT18beep 20
 Elseif Menucheck(10,TX1,TY1) = 1 Then
 Locate 3,5
 Print Hex4 i
 I = 0
 CT18beep 20
 End If
 Locate 3,3
 Print HEX4 I
 Return 

최종결과인 I 는 BCD 코드 형태로 값이 저장되어 있으므로, BCD2BIN 명령을 이용해서 일반수치로 바꾸어서 사용 해야 합니다.

ct1820/sample_4_숫자입력/index.txt · 마지막으로 수정됨: 2017/10/19 22:44 저자 Comfile Technology