練習 1:取得角度

實驗目的:
 
    將取得的角度顯示於終端示窗並暸解磁力與夾角的關係
 
 程式說明:
   

'模組名稱、代碼宣告

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°一次以上。
    
Comments