English

현재 위치: index » ct1820 » sample_4_숫자입력

ct1820:sample_4_숫자입력:index

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

--- ct1820:sample_4_숫자입력:index [2016/04/19 03:07]
Comfile Technology 만듦
+++ ct1820:sample_4_숫자입력:index [2017/10/19 22:44] (현재)
Comfile Technology
@@ 줄 1: / 줄 1: @@
+====== 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 명령을 이용해서 일반수치로 바꾸어서 사용
+해야 합니다.