練習 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