Android Question anywheresoftware.b4a.keywords.Common.CallSub4

Deleted member 103 · Oct 8, 2017

Hi,

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

B4X:

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 · Oct 8, 2017

The actual error is probably in ShowClocktime.

Deleted member 103 · Oct 8, 2017

Erel said:
The actual error is probably in ShowClocktime.

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

There is nothing special here.

Erel · Oct 8, 2017

Maybe the label is not initialized in some case?

How are you building the layout?

Deleted member 103 · Oct 8, 2017

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?

B4X:

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

Should it be better that way?

B4X:

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

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

Erel · Oct 9, 2017

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

No.

Filippo said:
The layout has been created with the designer.

How are you loading it?

Deleted member 103 · Oct 9, 2017

How are you loading it?

By Activity_Create

B4X:

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

Erel · Oct 9, 2017

And you aren't removing it, right?

Do you get this crash report often?

Deleted member 103 · Oct 9, 2017

Erel said:
And you aren't removing it, right?

Do you get this crash report often?

Knoppi · Oct 9, 2017

B4X:

time      = DateTime1 - lngTimer

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

Erel · Oct 10, 2017

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 · Oct 10, 2017

@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 · Oct 10, 2017

Erel said:
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

B4X:

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.

B4X:

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 · Oct 10, 2017

Filippo said:
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

B4X:

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.

B4X:

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 · Oct 10, 2017

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.

Android Question anywheresoftware.b4a.keywords.Common.CallSub4

Deleted member 103

Guest

Erel

B4X founder

Deleted member 103

Guest

Erel

B4X founder

Deleted member 103

Guest

Erel

B4X founder

Deleted member 103

Guest

Erel

B4X founder

Deleted member 103

Guest

Knoppi

Active Member

Erel

B4X founder

ilan

Expert

Deleted member 103

Guest

Attachments

ilan

Expert

Deleted member 103

Guest

Similar Threads

Android Question anywheresoftware.b4a.keywords.Common.CallSub4

Deleted member 103

Guest

B4X founder

Deleted member 103

Guest

B4X founder

Deleted member 103

Guest

B4X founder

Deleted member 103

Guest

B4X founder

Deleted member 103

Guest

Active Member

B4X founder

Expert

Deleted member 103

Guest

Attachments

Expert

Deleted member 103

Guest

Similar Threads

Privacy & Transparency

Privacy & Transparency