GETDIRPORT


語法

       Result = GETDIRPORT Port 

        如果連接埠號碼是一個常數，你可以使用下列任一種格式型態。

        Result = GETDIRPORT0

        Result = GETDIRPORT1

        Result = GETDIRPORT2.

 

操作

        取得指定的連接埠的I/O方向設定。

  • Port – 常數或變數值(0-2)，用來指定連接埠號碼。連接埠0包含引腳 P0-P7，連接埠1包含引腳 P8-P15，連接埠2包含引腳P16-P23。對一個24引腳的BASIC Commander ®來說，連接埠的值是0或1。
  • Result – 接收連接埠方向設定的位元組變數。

 

說明

        用GETDIRPORT指令來讀取應用程式中指定引腳現在的I/O方向設定， I/O方向可以在程式執行中作輸入輸出模式切換。0表示輸出，1表示輸入模式。索引值較小的引腳為資料位元組中順序較低的位元。例如，P0的設定會出現在資料讀取的位元0。I/O方向在程式開始後預設為輸入。

 

範例

        下面的例子改變了P0的I/O方向，它是經由7個電阻將7個LED連接到VCC，而LED會依此產生相對應的 on/off。

 

Sub Main()
    Dim Key As Byte
    Dim PortStatus As Byte    

Start:                          ' P0 ~ P7 are default input mode
    WRITEPORT0 &H00             ' Write low to output buffers
   
    Do
        Debugin "Input any key to turn on LED 0, 2, 4, 6: ", %CHR Key, CR
        SETDIRPORT 0, &HAA      ' Switch P0, P2, P4, P6 to OUTPUT mode
        PortStatus = GETDIRPORT0
        Debug "Port0 status is: ", %BIN PortStatus, CR, CR
        Debugin "Input any key to turn on LED 1, 3, 5, 7: ", %CHR Key, CR
        SETDIRPORT 0, &H55      ' Switch P1, P3, P5, P7 to OUTPUT mode
        PortStatus = GETDIRPORT0
        Debug "Port0 status is: ", %BIN PortStatus, CR, CR
    Loop   
End Sub