German Was versteht man unter "android.location.Location"-Format ?

[cubetennis]

Hallo,

wie lautet die richtige Syntax für die Funktion
Location1.DistanceTo("48:44.28", "9:18.30") bzw.
Location1.BearingTo("48:44.28", "9:18.30") ???

wie kann man den Altitude-Wert bekommen
Location1.Altitude ???

Hier ist die Codesequenz aus dem GPS-Tutorial:

Sub GPS_LocationChanged (Location1 As Location)
lblLat.Text = "Lat = " & Location1.ConvertToMinutes(Location1.Latitude)
lblLon.Text = "Lon = " & Location1.ConvertToMinutes(Location1.Longitude)
lblSpeed.Text = "Speed = " & Location1.Speed
lblAltitude.Text = "Altitude = " & Location1.Altitude
lblDistance.Text = "Distance = " & Location1.DistanceTo("48:44.28", "9:18.30")
lblBearing.Text = "Bearing = " & Location1.BearingTo("48:44.28", "9:18.30")
End Sub

Für einen Tipp wäre ich sehr dankbar.

Grüße

 

[klaus]

Das Location Objekt enthält die Werte einer Stelle.
Dieses Objekt wird in der GPS_LocationChanged (Location1 AsLocation) übergeben.

Lat = Location1.Latitude
- Der Lat Wert

Lon = Location1.Longitude
- Der Long Wert

Speed = Location1.Speed
- Die Geschwindigkeit gegenüber der vorhergehenden Stelle

Altitude = Location1.Altitude
- Die Höhe

Richtung = Location1.Bearing
- Die Richtung gegenüber der vorhergehenden Stelle

Distanz = Location1.DistanceTo("48:44.28", "9:18.30")
-Distanz von der Location1 Stelle zur Stelle Lat "48:44.28" Lon "9:18.30"

RichtungNach = Location1.BearingTo("48:44.28", "9:18.30")
-Richtung von der Location1 Stelle zur Stelle Lat "48:44.28" Lon "9:18.30"

Beste Grüsse.

 

[cubetennis]

Hallo Klaus,

vielen Dank für die Erklärung.
Habe denn noch folgende Fragen:

1. Warum zeigt diese Codezeile
lblAltitude.Text = "Altitude = " & Location1.Altitude
bei der Ausführung des Programms gar nicht an ?
(HTC Desire Android 2.1, Basic4android 1.10)

2. Warum gibt der Compiler bei dieser Codezeile
lblDistance.Text = "Distance = " & Location1.DistanceTo("48:44.28", "9:18.30")
folgende Fehlermeldung aus ?

Error description: Too many parameters.
Occurred on line: 42
lblDistance.Text = "Distance = " & Location1.DistanceTo("48:44.28", "9:18.30")
Wie lautet die richtige Syntax ?

Für eine Hilfe wäre ich Dir sehr dankbar.

Grüße

 

[corwin42]

2. Warum gibt der Compiler bei dieser Codezeile
lblDistance.Text = "Distance = " & Location1.DistanceTo("48:44.28", "9:18.30")
folgende Fehlermeldung aus ?

DistanceTo benötigt ein zweites Location Objekt als Parameter. Also z.B.

Dim Location2 as Location
Location2.Initialize2("48:44.28", "9:18.30")

lblDistance.Text = "Distance = " & Location1.DistanceTo(Location2)

 

[klaus]

1. Warum zeigt diese Codezeile
lblAltitude.Text = "Altitude = " & Location1.Altitude
bei der Ausführung des Programms gar nicht an ?
(HTC Desire Android 2.1, Basic4android 1.10)

Versuche mal mit Location1.AltitudeValid zu testen ob ein gültiger Höhenwert zur Verfügung steht.

Beste Grüsse.

 

[cubetennis]

:sign0060:

Es hat alles geklappt !

Vielen Dank

Thanh