實驗目的:
將取得的角度顯示於終端示窗並暸解磁力與夾角的關係。
程式說明:
'模組名稱、代碼宣告 Peripheral myCps As CompassA @ 3 ' 設定電子羅盤模組參數名稱 '全堿變數宣告 Dim bCalFlag As Byte '儲存羅盤校正完成旗標 Dim wAngle As Word '儲存角度值
Sub Main() ‘主程式區塊 CompassSet() Debug "Angle : " '無窮迴圈,反覆取得角度值 Do myCps.GetAngle(wAngle) Debug CSRXY(10,1),wAngle,CLREOL LOOP End Sub
Sub CompassSet() bCalFlag = 0 myCps.Calibration(0) '啟動校正模式 Do:Loop Until bCalFlag = 1 ‘條件迴圈,直到校正完成 Pause 120 End Sub '校正完成事件,此事件為預設開啟。無需使用者啟動 '當校成完成事,將校正旗標設為 1 Event myCps.CalEndEvent() bCalFlag = 1 End Event 補充說明:
(1) 由於不同環境下的磁場強度不同,因此於程式開始時先執行
校正指令Calibration(0),校正參數設定為 0 時需使用模組上
的校整完成安鈕結束校正。
(2)校正完成後會啟動校正完成事件,此事件較為特殊預設為啟動。
(3)校正時需以水平方式讓模組在原地旋轉360°一次以上。
|
課程目錄 聯 絡 我 們
|