B4R Code Snippet See human readable Arduino running time

hatzisn

Well-Known Member
Licensed User
With the following code you can see human readable Arduino running time:

B4X:
#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 300
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public Serial1 As Serial
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    AddLooper("TryLoop")
End Sub

Sub TryLoop
    Log(GetCurrentRunningHour(Millis))
End Sub


Sub GetCurrentRunningHour(curmillis As Double) As String
    Dim iH As Double
    Dim iM As Double
    Dim iSec As Double
    Dim sRet As String
    curmillis = curmillis/1000
 
    iH = Floor((curmillis/3600))
    iM = Floor((curmillis - iH * 3600 )/60)
    iSec = (curmillis - iH * 3600 - iM *60)
 
 
    sRet = JoinStrings(Array As String(NumberFormat(iH, 1, 0), ":", NumberFormat(iM, 2, 0), ":", NumberFormat(iSec, 2, 3)))
    Return sRet
End Sub
0:00:04.685
0:00:04.687
0:00:04.689
0:00:04.691
0:00:04.694
0:00:04.696
0:00:04.698
0:00:04.700
0:00:04.702
0:00:04.704
0:00:04.706
0:00:04.708
0:00:04.710
0:00:04.712
0:00:04.714
0:00:04.716
0:00:04.718
0:00:04.720
0:00:04.722
0:00:04.724
0:00:04.726
0:00:04.728
0:00:04.730
0:00:04.732
0:00:04.734
0:00:04.737
0:00:04.740
0:00:04.742
0:00:04.744
0:00:04.746
0:00:04.748
0:00:04.750
 
Last edited:
Top