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 ®來說,連接埠的值是01
  • Result 接收連接埠方向設定的位元組變數。

 

說明

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

 

範例

        下面的例子改變了P0I/O方向,它是經由7個電阻將7LED連接到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