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
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