German Problem mit GPS...

spezialmaterie

Member
Licensed User
Longtime User
Hallo,

hab folgendes Problem, hier mal der Code dazu:

B4X:
Sub Activity_Resume
If GPS1.GPSEnabled = False Then
       ToastMessageShow("GPS Empfänger einschalten.", True)
       StartActivity(GPS1.LocationSettingsIntent) 'Will open the relevant settings screen.
    Else
        GPS1.Start(0, 0) 'Listen to GPS with no filters.
    End If
End Sub

Wenn in nun öferts hinter verschienen Modulen hin und her schalte kommt dann immer:

Program pausend on line:xx
If GPS.GPSEnabled = False Then

und im Programm steht folgendes:

LastException: java.lang.NullPointerException

Das komische ist, das dieser Fehler nicht immer auftritt...

Ich hoffe mir kann wer helfen!

MfG
 

klaus

Expert
Licensed User
Longtime User
Ist die Activity_Resume Routine im gleichen Modul wo GPS1 deklariert wurde ?
Wenn nein dann musst den Modulnamen davor setzen zm Beispiel Main.GPS1.
Wenn nein musst Du mehr Code senden damit wir rausfinden können wo das Problem liegt.
Oder hast Du GPS1 in mehreren Modulen deklariert ?

Beste Grüsse.
 
Last edited:

spezialmaterie

Member
Licensed User
Longtime User
Ist alles im gleichen Modul drin...

B4X:
Sub Process_Globals
Dim GPS1 As GPS
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        GPS1.Initialize("GPS")
    End If
End Sub

Sub Activity_Resume
If GPS1.GPSEnabled = False Then
       ToastMessageShow("GPS Empfänger einschalten.", True)
       StartActivity(GPS1.LocationSettingsIntent)
    Else
        GPS1.Start(0, 0) 
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
GPS1.Stop
End Sub

Sub GPS_LocationChanged (location1 As Location)
Dim kmh As Int
Dim mua As Int
kmh=location1.Speed
mua = location1.Altitude
kmh = kmh * 3.6
gpskoordinaten.Text=  "  " & location1.ConvertToMinutes(location1.Latitude) & "  /  " & location1.ConvertToMinutes(location1.Longitude)& "  /  "& mua & "m ü.A." & "  /  " & kmh & " km/h" 
End Sub

Das ist alles was im Programm mit dem GPS Empfänger gemacht wird.

Hab herausgefunden dass dieser Fehler immer nur beim zweiten Aufruf des Moduls kommt. Beim ersten mal funktioniert immer alles.

MfG
 

klaus

Expert
Licensed User
Longtime User
Dein Code sollte normal funktionieren.
Kannst Du dein Projekt als zip Datei senden dann könnte Ich es mal versuchen um zu finden wo der Fehler liegt.

Beste Grüsse.
 

spezialmaterie

Member
Licensed User
Longtime User
Ich beende das Modul so:

B4X:
Activity.RemoveViewAt(0)
Activity.Finish

sonst hängt eigendlich nichts mit dem GPS zusammen...

EDIT:

hab jetzt noch was getestet, hab in Activity_Resume nur
B4X:
GPS1.Start(0,0)
eingetragen, aber der Fehler ist der Selbe...
 
Last edited:

klaus

Expert
Licensed User
Longtime User
Ich schreibe es noch einmal:
Sende dein Projekt als zip Datei dann könnte Ich es mal versuchen um zu finden wo der Fehler liegt.

Bloss mit ein Paar Programmzeilen ist es schwierig herausfinden wo das Problem liegt. Wir können nichts testen und müssen rumdifteln wo der Fehler liegen könnte.

Beste Grüsse.
 
Top