Sub btnNearest_Click
Dim CurrentLat As Double
Dim CurrentLon As Double
Dim Curs As Cursor
Curs = Starter.SQL0.ExecQuery("SELECT * FROM config")
Curs.Position = 0
CurrentLat = Curs.GetDouble("lat")
CurrentLon = Curs.GetDouble("lon")
Curs.close
LogColor("Current Lat: " & CurrentLat, Colors.Red)
LogColor("Current Lon: " & CurrentLon, Colors.Red)
If CurrentLat = 0 And CurrentLon = 0 Then
ToastMessageShow("You have no Current Coordinates", False)
Else
Dim c As Cursor
c = Starter.SQL0.ExecQuery("Select * from stations where (lat) and (lon) order by (abs(lon -(" & CurrentLon & ")) +( abs(lat -(" & CurrentLat & "))*1)) Limit 2;")
LogColor("Records: " & c.RowCount, Colors.Blue)
For i = 0 To c.RowCount - 1
c.Position = i
LogColor("Nearest : " & c.GetString("saps"), Colors.Blue)
LogColor("Nearest Lat: " & c.GetString("lat"), Colors.Blue)
LogColor("Nearest Lon: " & c.GetString("lon"), Colors.Blue)
Log(CRLF)
Dim Lat As Double
Dim Lon As Double
Lat = c.GetString("lat")
Lon = c.GetString("lon")
Dim MarkerText As String = "SAPS"
Dim ExtraText As String = c.GetString("saps")
gmap1 = MapFragment1.GetMap
Dim m1 As Marker = gmap1.AddMarker(Lat, Lon, MarkerText) '<< java.lang.RuntimeException: Object should first be initialized (GoogleMap).
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(Lat, Lon, 10)
gmap1.AnimateCamera(CameraPosition1)
m1.Snippet = ExtraText
Next
pnlMap.Visible = True
End If