====== MODPORT 테스트 프로그램 ======

{{ :ct1820:모드포트_test프로그램:modport_test.png?nolink |}}

MODPORT 의 8 점입력을 읽어들여 화면에 표시합니다. 동시에 읽어들인 값을 MD-DOSO8 출력모듈에 출력합니다.

<code xbasic>
#include "CT18XX"
Dim TX1 As Integer
Dim TY1 As Integer
On Pad Gosub TouchOccur
'
'********************* 메인 do 루프 ************************
'
Locate 1,1
Print "MD-DIDC8 Input Status"
Locate 3,3
Print "7 6 5 4 3 2 1 0"
Locate 3,4
Print "==============="
Do
    Locate 2,5
    Print hex2 MPin(1,7),hex2 MPin(1,6),hex2 MPin(1,5),hex2 MPin(1,4),hex2 MPin(1,3),hex2 MPin(1,2),hex2 _
             MPin(1,1),hex2 MPin(1,0)
    MPsource 2,0,MPin(1,0)
    MPsource 2,1,MPin(1,1)
    MPsource 2,2,MPin(1,2)
    MPsource 2,3,MPin(1,3) 
    MPsource 2,4,MPin(1,4)
    MPsource 2,5,MPin(1,5)
    MPsource 2,6,MPin(1,6)
    MPsource 2,7,MPin(1,7)
    Wait 500
Loop

TouchOccur:
    TX1 = Sys(10)
    Y1 = Sys(11)
    Pset TX1,TY1
    Ct18beep 10
    Return 
</code>
    
{{ :ct1820:모드포트_test프로그램:modport_test2.png?nolink |}}    

MODPORT 입력모듈인 MD-DIDC8 에는 <입력 시뮬레이터> 를 사용하였습니다.

간편하게 토글스위치를 ON /OFF 해서 입력상태를 바꿀수 있는 모듈입니다. 터치입력한 지점에는 점을 표시합니다.