숫자 키패드 모양의 화면을 표시하고, 입력한 값을 화면상에 표시하는 프로그램입니다.
#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 명령을 이용해서 일반수치로 바꾸어서 사용 해야 합니다.