Android Question Timer

[Olivier Zeegers]

I am trying to display a stopwatch to the user.

The moment the user pushes the record button and want to display in a label the time elapsed in format "hh:mm:ss:ms" and see the time running.

I assume one has to create a Timer Object and set it to enabled when the button is pressed and then in the Tick Sub update the label ? But how do I display it in this format ?

thank you

 

[Jeffrey Cameron]

When the user presses your start button, save Datetime.Now into a Long globals variable. In your Timer_Tick event, calculate the Elapsed by subtracting your start value from the current Datetime.Now value. Use this calculated long value to display in your label. something like:

' Disclaimer:   TYPED IN FORUM EDITOR, NOT TESTED
Sub Timer_Tick()
    Label1.Text = FormatTime(Datetime.Now - glStart)
End Sub

Public Sub FormatTime(TickVal As Long) As String
    Dim plDiff As Long
    Dim psTemp As String
    Dim piTenth As Int
    Dim piSec As Int
    Dim piMin As Int
    Dim piHours As Int
    
    plDiff = TickVal
    
    If plDiff = 0 Then
        psTemp = "0:00:00"
    Else
        piTenth = plDiff / 100
        piSec = piTenth / 10
        piTenth = piTenth - (piSec * 10)
        piMin = piSec / 60
        piSec = piSec - (piMin * 60)
        piHours = piMin / 60
        piMin = piMin - (piHours * 60)
            
        
        psTemp = NumberFormat2(piHours, 1, 0, 0, False) & ":" & _
                 NumberFormat2(piMin, 2, 0, 0, False) & ":" & _
                 NumberFormat2(piSec, 2, 0, 0, False)
    End If

    Return psTemp
End Sub

 

[Olivier Zeegers]

When the user presses your start button, save Datetime.Now into a Long globals variable. In your Timer_Tick event, calculate the Elapsed by subtracting your start value from the current Datetime.Now value. Use this calculated long value to display in your label. something like:

' Disclaimer:   TYPED IN FORUM EDITOR, NOT TESTED
Sub Timer_Tick()
    Label1.Text = FormatTime(Datetime.Now - glStart)
End Sub

Public Sub FormatTime(TickVal As Long) As String
    Dim plDiff As Long
    Dim psTemp As String
    Dim piTenth As Int
    Dim piSec As Int
    Dim piMin As Int
    Dim piHours As Int
   
    plDiff = TickVal
   
    If plDiff = 0 Then
        psTemp = "0:00:00"
    Else
        piTenth = plDiff / 100
        piSec = piTenth / 10
        piTenth = piTenth - (piSec * 10)
        piMin = piSec / 60
        piSec = piSec - (piMin * 60)
        piHours = piMin / 60
        piMin = piMin - (piHours * 60)
           
       
        psTemp = NumberFormat2(piHours, 1, 0, 0, False) & ":" & _
                 NumberFormat2(piMin, 2, 0, 0, False) & ":" & _
                 NumberFormat2(piSec, 2, 0, 0, False)
    End If

    Return psTemp
End Sub

thanx ! Does this Sub FormatTime that you wrote not exist in the B4A language ?

 

[Jeffrey Cameron]

Does this Sub FormatTime that you wrote not exist in the B4A language ?

Correct, I provided that as an example of how you could format the output.

 

[Erel]

Similar code is available here: https://www.b4x.com/android/forum/threads/b4x-convert-milliseconds-to-string.89851/#content

A very common mistake is to use DateTime.Time to format a milliseconds value to a string. This mistake is discussed in the date & time video tutorial: