練習 1:接收資料

實驗目的:
 
    透過超級終端機將資料傳輸至藍牙模組,並顯示於終端視窗。 

 
 程式說明:
   

'固定常數宣告

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

'Baudrate = 38400

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

#DEFINE RxPin 0       定義藍牙接收腳位為 Pin 0

'全域變數宣告

Dim bGetData As Byte  '儲存接收資料

Sub Main()  '主程式區塊

 

  Do

    GetByte()  '接收資料

    '將接收內容顯示於終端機

    Debug csrxy(1,1),"GetData: ",bGetData,CLREOL

  Loop

 

End Sub

 

Sub GetByte() 

  Serin RxPin,Baudmode,[bGetData]  '接收資料

End Sub

 
Comments