Android Question anywheresoftware.b4a.keywords.Common.CallSub4

[Deleted member 103]

Hi,

here's a mistake (of many) I do not understand.
Is triggered by this code, but why?

Sub GpsTimer_Tick
    Dim IntervalNext As Double
    Dim time As Long
    Dim DistanceTheoretically As Double
    DateTime1 = DateTime.Now
    time      = DateTime1 - lngTimer

    If Not(IsPaused(Main)) Then
        CallSub2(Main, "ShowClocktime", DateTime.time(time))
    End If
...

 

[Erel]

The actual error is probably in ShowClocktime.

 

[Deleted member 103]

The actual error is probably in ShowClocktime.

Public Sub ShowClocktime(Clocktime As String)
lblClock.Text = Clocktime
End Sub

There is nothing special here.

 

[Erel]

Maybe the label is not initialized in some case?

How are you building the layout?

 

[Deleted member 103]

How are you building the layout?

The layout has been created with the designer.

Can this be the error because the Timer is started by Starter Service?

Sub Service_Create
    GpsTimer.Initialize("GpsTimer", 100) '20)
    GpsTimer.Enabled=True
End Sub

Should it be better that way?

Sub Service_Create
    GpsTimer.Initialize("GpsTimer", 100) '20)
End Sub

Sub Service_Start (StartingIntent As Intent)
    GpsTimer.Enabled=True
End Sub

 

[Erel]

Can this be the error because the Timer is started by Starter Service?

No.

The layout has been created with the designer.

How are you loading it?

 

[Deleted member 103]

How are you loading it?

By Activity_Create

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("frmMain")
...

 

[Erel]

And you aren't removing it, right?

Do you get this crash report often?

 

[Deleted member 103]

And you aren't removing it, right?

Do you get this crash report often?

 

[Knoppi]

time      = DateTime1 - lngTimer

you calculate with time, is 'time' a valid time?

 

[Erel]

I've changed the way the error is handled internally in the case of CallSub for the next version of B4A. The crash report will be more meaningful.

@Filippo If you like send me an email and I'll send you the updated core.

 

[ilan]

@Filippo can you upload a small project that demonstrates that issue?

btw why are you running a timer in starter service when you want to update a label in main activity?

why not run it in main activity? like this it will only run when your main activity is active.

 

[Deleted member 103]

I've changed the way the error is handled internally in the case of CallSub for the next version of B4A. The crash report will be more meaningful.

@Filippo If you like send me an email and I'll send you the updated core.

Thank you Erel, it is not necessary, I have solved it differently.
I'm updating my label "lblClock" with an extra timer in the main activity, and no longer using the starter service.

@ilan
The appendix is an example.

I have found that the starter service, if the main activity is in pause, triggers too much event, and this is probably the error.
Try one time

Sub GpsTimer_Tick
    Dim time As Long
    time = DateTime.Now
   
    'If Not(IsPaused(Main)) Then CallSub2(Main, "ShowClock", time)
   
    CallSub2(Main, "ShowClock", time)
   
End Sub

and once so and look at the unfiltered events.

Sub GpsTimer_Tick
    Dim time As Long
    time = DateTime.Now
   
    If Not(IsPaused(Main)) Then CallSub2(Main, "ShowClock", time)
   
    'CallSub2(Main, "ShowClock", time)
   
End Sub

As it seems, you always have to check before a CallSub whether an activity is paused.

 

[ilan]

Thank you Erel, it is not necessary, I have solved it differently.
I'm updating my label "lblClock" with an extra timer in the main activity, and no longer using the starter service.

@ilan
The appendix is an example.

I have found that the starter service, if the main activity is in pause, triggers too much event, and this is probably the error.
Try one time

Sub GpsTimer_Tick
    Dim time As Long
    time = DateTime.Now
  
    'If Not(IsPaused(Main)) Then CallSub2(Main, "ShowClock", time)
  
    CallSub2(Main, "ShowClock", time)
  
End Sub

and once so and look at the unfiltered events.

Sub GpsTimer_Tick
    Dim time As Long
    time = DateTime.Now
  
    If Not(IsPaused(Main)) Then CallSub2(Main, "ShowClock", time)
  
    'CallSub2(Main, "ShowClock", time)
  
End Sub

As it seems, you always have to check before a CallSub whether an activity is paused.

the example works for me. i still would do it differently.
why are you using a timer from the starter service?
why not use that timer in the activity that should show the output of that timer_tick??

 

[Deleted member 103]

why are you using a timer from the starter service?
why not use that timer in the activity that should show the output of that timer_tick??

Because it should actually go and because I spare some timer and everything is central.
But saving, as it looks, is not always a good solution.