'=================================================================== ' RF24G 發射端範例程式 '=================================================================== Peripheral myT As RF24G @ 0 ' 設定模組編號為0 Dim g_bTxReady As Byte ' 宣告傳送狀態參數 Sub Main() ' 主程式開始 Dim bTx As Byte ' 宣告傳送資料參數 Debug CLS ' 清除終端視窗顯示 myT.SetMode(0) ' 設定模式為發射模式 myT.SetCh(0) ' 設定傳輸頻道為0 myT.SetRFID(0) ' 設定辨識碼為0 myT.SetRegCode(0) ' 設定註冊碼為0 myT.EnTxReadyEvent() ' 啟動傳送完成事件 myT.Config() ' 更新設定值 '------------------------------------------------------------------- ' 用FOR迴圈重複傳送動作一百次 '------------------------------------------------------------------- For bTx=1 To 100 ' 會執行一百次的FOR迴圈 g_bTxReady = 0 ' 清除傳送狀態 myT.SendVar(bTx) ' 傳送bTx '------------------------------------------------------------------- ' 用DO迴圈等待傳送完畢 '------------------------------------------------------------------- Do Loop Until g_bTxReady=1 Debug CSRXY(1, 1), %DEC3R bTx ' 顯示傳送值於終端視窗 Pause 1000 ' 等待一段時間讓接收端接收 Next Debug CSRXY(1, 2), "傳送完畢" ' 顯示傳送結束 End Sub Event myT.TxReadyEvent() ' 傳送完成事件 g_bTxReady = 1 ' 將傳送狀態設為1 End Event