Android Question anywheresoftware.b4a.keywords.Common.CallSub4

'Starter-Service
Sub Service_Create
   ...
   'Settings-Menu
   SetDefaults
End Sub

Sub SetDefaults
    'defaults are only set on the first run.
    ...
    If Not(manager.GetAll.ContainsKey("lstClockSynchModus")) Then manager.SetString("lstClockSynchModus", Language.value("GPS"))   
    ...
End Sub

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

    Private IsExternKeyUp As Boolean = True

    'Objekte für die Atomzeit
    Private Thread1 As Thread
    Private Thread2 As Thread

    Private phone1 As Phone
    Private plyVolume As Double
    Private oldVolume As Int
   
    'Timer für Verzögerungszeit
    Private delaytime As Timer
    Private lgdelaytime As Long

    Private LiteLimitTimer As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
...
  If FirstTime = True Then
     
     LiteLimitTimer.Initialize("LiteLimitTimer", 5 * DateTime.TicksPerMinute)
         
     'Objekte für die Atomzeit
     Thread1.Initialise("Thread1")
     Thread2.Initialise("Thread2")
     
     delaytime.Initialize("delaytime", 1000)

   End If
...
End Sub

#Region Atomzeit
' must be startet in a non-gui background thread
' the undescores prevents the sub name from obfuscation, so Thread1.Start will find this sub even with the compile option "Relaese (obfuscated)"

Sub GetAtomTime
    Dim args(0) As Object
    Thread1.Start(Me, "Get_Current_Time", args)
End Sub

Sub Get_Current_Time
    Dim str() As String = Regex.Split("—", Starter.manager.getString("lstTimeServer"))
    Dim TimeServer As String = str(1).Trim
    '    Log("TimeServer=" & TimeServer)
    sntp.NtpServerName = TimeServer              ' only needed if you don't want to use the default server "0.us.pool.ntp.org"
    sntp.TimeOut = 10000                      ' only needed if you don't want to use the default timeout value of 30000 milliseconds (30 seconds)
    sntpticks = sntp.getGmtNtpTime
End Sub

Sub Thread1_Ended(endedOK As Boolean, error As String) 'The thread has terminated. If endedOK is False error holds the reason for failure
    Dim args(0) As Object
    ' to perfom giu-actions directly after receiving the time
    ' we have to do this with the help of a separate gui-thread
    Log("endedOK=" & endedOK & " ;error=" & error)
    Thread2.RunOnGuiThread("Show_Results", args)
End Sub

Sub Show_Results
    If sntpticks > -1 Then
        Starter.lngTimer = DateTime.Now - sntpticks
        Starter.IsAtomTimeSet = True
    Else
        Starter.lngTimer = 0
        Starter.IsAtomTimeSet = False
    End If
    '    Log("Thread1_Ended: lngTimer=" & lngTimer)
    '    Log("DateTime.Now=" & DateTime.Now)
    '    Log("sntp.getGmtNtpTime=" & sntpticks)
End Sub
#End Region

#Region Atomzeit
' must be startet in a non-gui background thread
' the undescores prevents the sub name from obfuscation, so Thread1.Start will find this sub even with the compile option "Relaese (obfuscated)"

Sub GetAtomTime
    Thread1.Start(Me, "Get_Current_Time", null)
End Sub

Sub Get_Current_Time
    Dim str() As String = Regex.Split("—", Starter.manager.getString("lstTimeServer"))
    Dim TimeServer As String = str(1).Trim
    '    Log("TimeServer=" & TimeServer)
    sntp.NtpServerName = TimeServer              ' only needed if you don't want to use the default server "0.us.pool.ntp.org"
    sntp.TimeOut = 10000                      ' only needed if you don't want to use the default timeout value of 30000 milliseconds (30 seconds)
    sntpticks = sntp.getGmtNtpTime
End Sub

Sub Thread1_Ended(endedOK As Boolean, error As String) 'The thread has terminated. If endedOK is False error holds the reason for failure
    ' to perfom giu-actions directly after receiving the time
    ' we have to do this with the help of a separate gui-thread
    Log("endedOK=" & endedOK & " ;error=" & error)
    Thread2.RunOnGuiThread("Show_Results", null)
End Sub

Sub Show_Results
    If sntpticks > -1 Then
        Starter.lngTimer = DateTime.Now - sntpticks
        Starter.IsAtomTimeSet = True
    Else
        Starter.lngTimer = 0
        Starter.IsAtomTimeSet = False
    End If
    '    Log("Thread1_Ended: lngTimer=" & lngTimer)
    '    Log("DateTime.Now=" & DateTime.Now)
    '    Log("sntp.getGmtNtpTime=" & sntpticks)
End Sub
#End Region