내용으로 건너뛰기
사용자 도구
사이트 도구
검색
도구
문서 보기
이전 판
역링크
최근 바뀜
미디어 관리자
사이트맵
로그인
>
English
현재 위치:
index
»
ct1820
»
sample_10_출력_포트_제어
ct1820:sample_10_출력_포트_제어:index
이 문서는 읽기 전용입니다. 원본을 볼 수는 있지만 바꿀 수는 없습니다. 문제가 있다고 생각하면 관리자에게 문의하세요.
====== SAMPLE 9: 출력 포트 제어 ====== 본 프로그램은 출력포트의 On / Off 상태를 바꿀수 있는 프로그램입니다. <code xbasic> #include "CT18XX" Dim TX1 As Integer Dim TY1 As Integer Dim Ixx As Integer Basic_FORM1 Byteout 4,0 Byteout 5,0 Byteout 6,0 On Pad Gosub TouchOccur Do Loop TouchOccur: TX1 = Sys(10) TY1 = Sys(11) Ct18beep 10 If Menucheck(0,TX1,TY1) = 1 Then Menureverse2 0,1 Reverse 32 Elseif Menucheck(1,TX1,TY1) = 1 Then Menureverse2 1,1 Reverse 33 Elseif Menucheck(2,TX1,TY1) = 1 Then Menureverse2 2,1 Reverse 34 Elseif Menucheck(3,TX1,TY1) = 1 Then Menureverse2 3,1 Reverse 35 Elseif Menucheck(4,TX1,TY1) = 1 Then Menureverse2 4,1 Reverse 40 Elseif Menucheck(5,TX1,TY1) = 1 Then Menureverse2 5,1 Reverse 41 Elseif Menucheck(6,TX1,TY1) = 1 Then Menureverse2 6,1 Reverse 42 Elseif Menucheck(7,TX1,TY1) = 1 Then Menureverse2 7,1 Reverse 43 Elseif Menucheck(8,TX1,TY1) = 1 Then Menureverse2 8,1 Reverse 44 Elseif Menucheck(9,TX1,TY1) = 1 Then Menureverse2 9,1 Reverse 45 Elseif Menucheck(10,TX1,TY1) = 1 Then Menureverse2 10,1 Reverse 46 Elseif Menucheck(11,TX1,TY1) = 1 Then Menureverse2 11,1 Reverse 47 Elseif Menucheck(12,TX1,TY1) = 1 Then Menureverse2 12,1 Reverse 48 Elseif Menucheck(13,TX1,TY1) = 1 Then Menureverse2 13,1 Reverse 49 Elseif Menucheck(14,TX1,TY1) = 1 Then Menureverse2 14,1 Reverse 50 Elseif Menucheck(15,TX1,TY1) = 1 Then Menureverse2 15,1 Reverse 51 Elseif Menucheck(16,TX1,TY1) = 1 Then Menureverse2 16,1 Reverse 52 Elseif Menucheck(17,TX1,TY1) = 1 Then Menureverse2 17,1 Reverse 53 Elseif Menucheck(18,TX1,TY1) = 1 Then Menureverse2 18,1 Reverse 54 Elseif Menucheck(19,TX1,TY1) = 1 Then Menureverse2 19,1 Reverse 55 Endif Return End Sub Basic_FORM1() Font 0,0 Style 0,0,0 Menuset2 0,1,70,80,105,100 Menutitle 0,10,4,"32" Menuset2 1,1,110,80,145,100 Menutitle 1,10,4,"33" Menuset2 2,1,150,80,185,100 Menutitle 2,10,4,"34" Menuset2 3,1,190,80,225,100 Menutitle 3,10,4,"35" Menuset2 4,1,5,115,40,135 Menutitle 4,10,4,"40" Menuset2 5,1,45,115,80,135 Menutitle 5,10,4,"41" Menuset2 6,1,85,115,120,135 Menutitle 6,10,4,"42" Menuset2 7,1,125,115,160,135 Menutitle 7,10,4,"43" Menuset2 8,1,165,115,200,135 Menutitle 8,10,4,"44" Menuset2 9,1,205,115,240,135 Menutitle 9,10,4,"45" Menuset2 10,1,245,115,280,135 Menutitle 10,10,4,"46" Menuset2 11,1,285,115,319,135 Menutitle 11,9,4,"47" Menuset2 12,1,5,150,40,170 Menutitle 12,10,4,"48" Menuset2 13,1,45,150,80,170 Menutitle 13,10,4,"49" Menuset2 14,1,85,150,120,170 Menutitle 14,10,4,"50" Menuset2 15,1,125,150,160,170 Menutitle 15,10,4,"51" Menuset2 16,1,165,150,200,170 Menutitle 16,10,4,"52" Menuset2 17,1,205,150,240,170 Menutitle 17,10,4,"53" Menuset2 18,1,245,150,280,170 Menutitle 18,10,4,"54" Menuset2 19,1,285,150,319,170 Menutitle 19,9,4,"55" Font 6,1 Glocate 50,25 Gprint "OUT PORT CHECK" Font 4,0 End Sub </code>
ct1820/sample_10_출력_포트_제어/index.txt
· 마지막으로 수정됨: 2016/04/19 03:22 저자
Comfile Technology
문서 도구
문서 보기
이전 판
역링크
맨 위로