'-------------------------------------------------------------------------------
Option Explicit

'-------------------------------------------------------------------------------
Public Sub Main()

' This program reads an Analog Devices ADXL202 accelerometer and
' displays each component of the 2D acceleration vector.

    Dim Ax As Single, Ay As Single
    Dim Tx As String

    ' Unit conversion, g to cm/s^2.
    Const Scale As Single = 981.0

    Call Init

    Do
        ' Read acceleration vector.
        Call GetAccelerations(Ax, Ay)

        ' Convert to cm/s^2.
        Debug.Print "X: "; CStr( CInt(Ax * Scale) );

        Debug.Print ", Y: "; CStr( CInt(Ay * Scale) )
    Loop

End Sub
'-------------------------------------------------------------------------------
Private Sub Init()

    ' For calibration.
    Call GetPeriod

End Sub
'-------------------------------------------------------------------------------