내용으로 건너뛰기
사용자 도구
사이트 도구
검색
도구
문서 보기
이전 판
역링크
최근 바뀜
미디어 관리자
사이트맵
로그인
>
English
현재 위치:
index
»
ct1820
»
sample_4_숫자입력
ct1820:sample_4_숫자입력:index
이 문서는 읽기 전용입니다. 원본을 볼 수는 있지만 바꿀 수는 없습니다. 문제가 있다고 생각하면 관리자에게 문의하세요.
====== SAMPLE 4 : 숫자입력 ====== 숫자 키패드 모양의 화면을 표시하고, 입력한 값을 화면상에 표시하는 프로그램입니다. {{ :ct1820:sample_4_숫자입력:dsc_0126.jpg?nolink |}} <code xbasic> #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 </code> 최종결과인 I 는 BCD 코드 형태로 값이 저장되어 있으므로, BCD2BIN 명령을 이용해서 일반수치로 바꾸어서 사용 해야 합니다.
ct1820/sample_4_숫자입력/index.txt
· 마지막으로 수정됨: 2017/10/19 22:44 저자
Comfile Technology
문서 도구
문서 보기
이전 판
역링크
맨 위로