Sub GPS_LocationChanged (Location1 As Location)
olat=Location1.ConvertToMinutes(Location1.Latitude)
olon=Location1.ConvertToMinutes(Location1.Longitude)
lblLat.Text = "Lat = " & olat
lblLon.Text = "Lon = " & olon
Compute_date_time(Location1.Time / 1000)
End Sub
Sub GPS_UserEnabled (Enabled As Boolean)
ToastMessageShow("GPS device enabled = " & Enabled, True)
End Sub
Sub GPS_GpsStatus (Satellites As List)
check
lblSatellites.Text = "Satellites:" & CRLF
For i = 0 To Satellites.Size - 1
Dim Satellite As GPSSatellite
Satellite = Satellites.Get(i)
lblSatellites.Text = lblSatellites.Text & CRLF & Satellite.Prn & _
" " & Satellite.Snr & " " & Satellite.UsedInFix & " " & Satellite.Azimuth _
& " " & Satellite.Elevation
Next
End Sub
Sub GPS_NMEA (timestamp As Long, Sentence As String)
End Sub
Sub check
If gps1.GPSEnabled = False Then
ToastMessageShow("Please enable the GPS device.", 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