Android Question Counting the user steps

[darabon]

I tried to use https://www.b4x.com/android/forum/threads/physical-activity-recognition-detection.42481/ or Sensor library to detect the user steps
But there didn't work
The best option is to use location but it takes many battery to use
The app must run on any device.
Please help me

 

[darabon]

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