練習 2:發送資料


實驗目的:
 
    透過終端視窗輸入資料,傳送於超級終端機。 

 
 程式說明:
   

'固定常數宣告

#DEFINE Baudmode 4044 '定義傳輸模式設定

'Baudrate = 38400

'Baudmode = (4096-(2000000\Baudrate)) 

#DEFINE TxPin 1       '定義藍牙發射腳位為 Pin 1

'全域變數宣告

Dim sSendData As String*20     '儲存傳輸資料

 

Sub Main()  '主程式區塊

    '無窮迴圈,反輸入資料並傳送

    Do

    '輸入傳送資料

       Debugin CSRXY(1,1),"SendData:",sSendData

       SendString()  '傳送資料

       Debug bSendData,CLREOL  '將傳送內容顯示於終端機

    Loop 

End Sub

 

Sub SendByte() 

  Serout TxPin,Baudmode,[bSendData]  '傳送資料

End Sub

 
Comments