Menuset 인덱스, 스타일, x1,y1, x2, y2

CT1721C, CT18XX

터치입력을 받을 보턴을 화면상에 표시하는 명령입니다. x1, y1 ~ x2, y2를 대각선으로 하는 박스가 보턴의 크기가 됩니다. 위치정보는 별도의 <인덱스> 기억공간에 저장해둡니다. 나중에 이 <인덱스>만을 가지고 해당보턴이 터치입력이 있었는지 여부를 체크하게 됩니다.

기존에 있던 Menuset 설정을 지우려면 Menuset 기존번호,0,0,0,0,0 으로 설정하시면 됩니다.

#include "CT18XX"
 Dim I As Integer
 Dim TX1 As Integer, TY1 As Integer
 Contrast 550
 On Pad Gosub GETTOUCH
 Menuset 0,2,120,155,195,200   '<--- 이곳
 Menutitle 0,20,14,"RESET"
 
 Do
    Locate 15,6
    Print DEC5 I
    Incr I
    Delay 200
 Loop
 
GETTOUCH:
 TX1 = Sys(10)
 TY1 = Sys(11)
 
 If Menucheck(0,TX1,TY1) = 1 Then
    Menureverse 0
    Ct18beep 20 '키터치음 발생
    I = 0
 End If
 Return

명령어 목록으로 가기