I just tried out my nav program on a hTC Touch HD using GPSDriver. I get invalid data (-9999) for Lattitude and Longitude. The program has been tested on other devices with internal GPS rx and works fine. Is this a known problem? Below is the Sub for acquiring the gps data:
Sub Timer1Internal_Tick
Main.Hardware.KeepAlive 'Reset the idle timers to prevent device shutdown
Main.Timer2.Enabled = True 'After Timer2 ticks, grey out posn marker, i.e. signal lost
Main.trackTimer = Main.trackTimer+1
gpsInternal.GetDeviceData
If gpsInternal.GetGpsData (6000) Then
'Update gpsDataArr
Main.gpsDataArr.altAMSL = gpsInternal.SeaLevelAltitude 'External: Altitude
Main.gpsDataArr.CourseOverGnd = gpsInternal.Heading 'External: CourseOverGround
Main.gpsDataArr.DecimalLat = gpsInternal.Latitude 'External: DecimalLatitude
Main.gpsDataArr.DecimalLon = gpsInternal.Longitude 'External: DecimalLongitude
Main.gpsDataArr.nSats = gpsInternal.SatellitesInViewCount 'External: NumberOfSatellites
Main.gpsDataArr.SpdOverGnd = gpsInternal.Speed 'External: SpeedOverGround 'in NM?
Main.gpsDataArr.Status = gpsInternal.SatelliteUsedCount & " / " & gpsInternal.SatellitesInViewCount
Main.gpsDataArr.updatedBy = "Internal Rx"
Main.moveMap
End If
End Sub
Saj.
Sub Timer1Internal_Tick
Main.Hardware.KeepAlive 'Reset the idle timers to prevent device shutdown
Main.Timer2.Enabled = True 'After Timer2 ticks, grey out posn marker, i.e. signal lost
Main.trackTimer = Main.trackTimer+1
gpsInternal.GetDeviceData
If gpsInternal.GetGpsData (6000) Then
'Update gpsDataArr
Main.gpsDataArr.altAMSL = gpsInternal.SeaLevelAltitude 'External: Altitude
Main.gpsDataArr.CourseOverGnd = gpsInternal.Heading 'External: CourseOverGround
Main.gpsDataArr.DecimalLat = gpsInternal.Latitude 'External: DecimalLatitude
Main.gpsDataArr.DecimalLon = gpsInternal.Longitude 'External: DecimalLongitude
Main.gpsDataArr.nSats = gpsInternal.SatellitesInViewCount 'External: NumberOfSatellites
Main.gpsDataArr.SpdOverGnd = gpsInternal.Speed 'External: SpeedOverGround 'in NM?
Main.gpsDataArr.Status = gpsInternal.SatelliteUsedCount & " / " & gpsInternal.SatellitesInViewCount
Main.gpsDataArr.updatedBy = "Internal Rx"
Main.moveMap
End If
End Sub
Saj.