Android Question Counting the user steps

Sort by date Sort by votes
D

darabon

Active Member
B4X: 
Sub InitPedometer
    Dim pedometer As PhoneSensors
    pedometer.Initialize(19)
    If pedometer.StartListening ("Pedometer") = False Then
        Msgbox("Not supported","")
        Return
    End If
End Sub

Sub Pedometer_SensorChanged (Values() As Float)
    Log("Step counter: " & Values(0))
End Sub
 
Upvote 0
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…