German GPS-Kompass programmieren

Harry1952

Member
Licensed User
Longtime User
Hallo, vielleicht könnt ihr mir helfen.
Ich benutze zum ersten Mal die GPS-Funktionen und komme nun damit nicht weiter.
Es geht darum, dass locate1.bearing immer 0,0 meldet.
Vertikale Positionsänderungen zu den Satelliten werden nicht erkannt.

Ich kann also, wenn ich mich mit dem Tablet/Handy um die eigene Achse drehe, keine Positionsänderung feststellen. Daher kann ich natürlich auch nicht den Nordpol meines Kompass entsprechend einstellen.
Hier mal der entsprechende Teil meines Quellcodes:

Sub Anzeige(location1 As Location)

'aktueller Abstand zm Nordpol
NordpolLocation.Initialize2("90.00000","0.00000")
'Entfernung zum Nordpol in km
EntfToNP = location1.DistanceTo(NordpolLocation)/1000
'Richtung zum Nordpol

'Dieser Teil meldet IMMER "Keine Drehung erkannt"!
'Egal was ich mache...
If location1.BearingValid Then
lblWinkel.Text = location1.Bearing
Else
lblWinkel.Text = "Keine Drehung erkannt"
End If

aktRichtungNP = location1.Bearing 'to(NordpolLocation)

'Richtungsänderung
Bild.Initialize(File.DirAssets,"kompassrose.png")

If aktRichtungNP < 0 Then
KompasRichtung = 360 - Abs(aktRichtungNP)
Else
KompasRichtung = Abs(aktRichtungNP)
End If
'Kompassnadel drehen
imgKompassrose.Bitmap = imgPro.rotateBitmap (Bild,KompasRichtung)

end sub

Kann mir vieleicht jemand einen Tipp dazu geben?
Ich habe da vermutlich irgend Etwas noch nicht richtig verstanden.

Danke
 

Harry1952

Member
Licensed User
Longtime User
Sorry! Hab was gefunden.
Ich muss den entsprechenden Sensor:
AddSensor(ps.TYPE_ORIENTATION, "ORIENTATION", True)
abfragen und location1.Bearing damit setzen.

:sign0148:Suchen hilft
 
Top