Sub Process_Globals
Dim Accelerometer As PhoneAccelerometer
End Sub
Sub Globals
Dim Titre1 As ImageView
Dim Titre2 As ImageView
Dim LabelX As Label
Dim LabelY As Label
Dim LabelZ As Label
Dim LabelTot As Label
Dim LabelXmax As Label
Dim LabelXmin As Label
Dim LabelYmax As Label
Dim LabelYmin As Label
Dim LabelZmax As Label
Dim LabelZmin As Label
Dim LabelGmax As Label
Dim LabelGmin As Label
Dim Xmax As Float, Xmin As Float, Ymax As Float, Ymin As Float, Zmax As Float, Zmin As Float, Amax As Float, Amin As Float
Dim Calibration As Boolean
Dim NbCount As Int
Dim CurrentCount As Int
Dim MaxScale As Float
Dim Raz As Button
Dim BtnQuit As Button
Dim Secu As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
If firstTime Then
Activity.LoadLayout("layGui")
MaxScale=1
NbCount=50
CurrentCount=0
'calibration si le fichier calib.txt n'existe pas
If File.Exists(File.DirDefaultExternal,"calib.txt")=False Then
'si on ne peut pas ecrire sur la sd
'pas de calibration
If File.ExternalWritable = False Then
Msgbox("Ecriture impossible sur la SD card.", "Pas de calibration possible")
Calibration=False
Return
Else
Msgbox("Poser votre GSM à plat et presser OK","Calibration")
Calibration=True
End If
Else
MaxScale=File.ReadString(File.DirDefaultExternal,"calib.txt")
End If
End If
End Sub
Sub Activity_Resume
Accelerometer.StartListening("Accelerometer")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Accelerometer.StopListening
End Sub
Sub Accelerometer_AccelerometerChanged (X As Float, Y As Float, Z As Float)
Dim Ax As Float
Dim Ay As Float
Dim Az As Float
Ax=(X/9.81)/MaxScale
Ay=(Y/9.81)/MaxScale
Az=(Z/9.81)/MaxScale
'Calibration de l'accelero
If Calibration=True Then
Calibrate(AX,AY,AZ)
Return
End If
Atot=Sqrt(Ax*Ax+Ay*Ay+Az*Az)
SetMiniMax(Ax,Ay,Az,Atot)
LabelX.Text=" X: " & FormatVal(Ax,3,True)
LabelY.Text=" Y: " & FormatVal(AY,3,True)
LabelZ.Text=" Z: " & FormatVal(Az,3,True)
LabelTot.Text= FormatVal(Atot,1,False) & " G"
LabelXmax.Text="Xmax: " & FormatVal(Xmax,2,True)
LabelYmax.Text="Ymax: " & FormatVal(Ymax,2,True)
LabelZmax.Text="Zmax: " & FormatVal(Zmax,2,True)
LabelXmin.Text="Xmin: " & FormatVal(Xmin,2,True)
LabelYmin.Text="Ymin: " & FormatVal(Ymin,2,True)
LabelZmin.Text="Zmin: " & FormatVal(Zmin,2,True)
LabelGmin.Text=FormatVal(Amin,1,False) & " Gmin"
LabelGmax.Text=FormatVal(Amax,1,False) & " Gmax"
End Sub