練習 1:暸解重力加速度

實驗目的:
 
   取得X、Y、Z個軸向的受力值並顯示於終端視窗中,暸解靜態、動態時各軸向受力值的變化。
 
 程式說明:
 

'設定加速度模組參數名稱

Peripheral myG As Accelerometer3A @ 2  '全堿變數宣告

'儲存XYZ各軸向受力的數位化電壓值

Dim iXFource,iYFource,iZFource As Integer 

Dim bGStatus As Byte  '儲存加速度模組偵測狀態

 

Sub Main()  '主程式區塊

 

    '無窮迴圈,反覆偵測加速度並顯示於終端視窗

    Do 

          Do

          bGStatus = myG.GetRefreshStatus()

          Loop Until bGStatus = 1

          '取得XYZ各軸向受力值     

          myG.GetXYZForce(iXFource,iYFource,iZFource)

    

          '顯示偵測結果 

          Debug CSRXY(1,1),"X-Fource : ",iXFource, CLREOL

          Debug CSRXY(1,2),"Y-Fource : ",iYFource, CLREOL

          Debug CSRXY(1,3),"Z-Fource : ",iZFource, CLREOL

          Pause 100

    LOOP

   

End Sub

 

 
補充說明:
 
    由於三軸加速度感測器的靈敏度與地心引力的變化關係,三軸加速度感測器所取得的受力值會有些許的跳動是屬於正常現向。
Comments