mot.Initialize
tmrAttitude.Initialize("tmrAttitude",500)
tmrAttitude.Enabled = True
End Sub
Sub tmrAttitude_Tick
Dim attitude() As Double = mot.GetAttitude
Dim Acceleration() As Double = mot.GetUserAcceleration
Log("yaw: " & NumberFormat(attitude(0) * 180 / cPI, 1, 2) & Chr(0xB0))
Log("pitch: " & NumberFormat(attitude(1) * 180 / cPI, 1, 2) & Chr(0xB0))
Log("roll: " & NumberFormat(attitude(2) * 180 / cPI, 1, 2) & Chr(0xB0))
End Sub