Menureverse 인덱스

CT1721C, CT18XX

해당 <인덱스>의 메뉴버튼을 반전시켜주는 명령어입니다.

#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

명령어 목록으로 가기