New GPSDriver library

schimanski · Nov 13, 2008

It does'n run anymore....

The problem is, that it runs until I have installed and started the GPSSettings.exe. I have tried any baudrates and I have deinstalled the GPSSettings.exe, but it doesn't run anymore. So, I think, that GPSSettings write perhaps something in the registry or other thinks, that now blocked the GPS intermidiate driver......

Erel · Nov 13, 2008

It must be somewhere in the registry. I'm sorry but I don't know where.
Did you try to do a soft reset?

schimanski · Nov 13, 2008

Softreset

Hello Erel!

Yes, I have made a soft reset, but the same problem. I can try a hardreset, but it's a lot of work after that and not my own device....

agraham · Nov 14, 2008

The registry settings for the Intermediate Driver are here :- GPS Intermediate Driver Registry Settings

Georg · Nov 15, 2008

I run the gpsdriverdemo.exe on a HTC3300 WM 6.0 with internal GPS and it doesn't work, also when i change the GPS to external it doesn't work but with the old GPS and serial2 it works with the settings for external GPS.
I checkted the registry settings and compared it with other devices, i couldn't found a difference. Any idea why?

schimanski · Nov 16, 2008

Convert from decimallatitude to latitude

Hello!

The new GPSDriver.dll only works with the latitude-format as "dd.dddd". To create a NMEA-protokoll, I need the latitude and longitude in the format of the GPS.dll "ddmm.mm". I have create a very big sub with a lot of sting-function to convert the new GPS.latitude and longitude in a NMEA-format. Is there an easier way to convert these things?

best regards

schimanski

agraham · Nov 16, 2008

schimanski said:
Is there an easier way to convert these things?

If you need NMEA sentences then have you looked at my GPSDriverNMEA library http://www.b4x.com/forum/additional-libraries/3319-gpsdrivernmea-library.html which will return NMEA sentences from the Intermediate Driver.

Alternatively how about this. I couldn't get it any smaller

B4X:

Sub ToDegMins(DecLatLon)
  Return Int(DecLatLon) & Format((DecLatLon - Int(DecLatLon)) * 60, "N2")
End Sub

schimanski · Nov 16, 2008

That's what im looking for....

Thanks, agraham!!!

I think, that I can use both of your solutions - and your convert is much shorter than my sub.....:sign0060:

schimanski · Nov 17, 2008

Hello agraham!

I have implement your sub in my application, but it dont' works all the time.

B4X:

Sub ToDegMins(DecLatLon)
  Return Int(DecLatLon) & Format((DecLatLon - Int(DecLatLon)) * 60, "N2")
End Sub

For example: 51.2345678° is 5114.07, but 51.1345678° is only 518.07.

What do I have to do, to get the right LatLon for my NMEA-protocoll?

Thanks al lot....

Georg · Nov 17, 2008

DeviceState is off

Hi,

what is wrong in this code.
It always shows that the gpsint.DeviceState is "0ff"
when i change the do while to
Do While (gpsint.SatelliteUsedCount < 4)
..
GPS runs
but it shows gpsint.DeviceState is "0ff"

what is wrong? Me, the code or the GPS

Sub Displaycheck
Label52.Width = 1
n = 1
Label51.Visible = True
Label52.Visible = True
gpsint.GetGpsData(6000)
Label51.Text = gpsint.DeviceState & " " & gpsint.ServiceState
Do While (Not(gpsint.DeviceState = "On" ) OR (gpsint.SatelliteUsedCount < 4))
gpsint.GetGpsData(6000)
Label51.Text = gpsint.DeviceState & CRLF & SatelliteUsedCount & " (" & SatellitesInViewCount & ")" & CRLF & "zu wenig Sats " & SatelliteUsedCount &
Label52.Width = n/100
DoEvents
n = n + 1
If n > 8000 Then
Timerint.Enabled = False
gpsint.close
Return
End If
Loop
..

agraham · Nov 17, 2008

schimanski said:
What do I have to do, to get the right LatLon for my NMEA-protocoll?

:signOops: Try this refinement

B4X:

  Return Format(Int(DecLatLon),"00") & Format((DecLatLon - Int(DecLatLon)) * 60, "00.00")

agraham · Nov 17, 2008

Georg said:
what is wrong? Me, the code or the GPS

You I'm afraid, you are not getting the device data. Also that Do loop is a bad idea, it will eat processor cycles and battery life. You should use a timer with a period of about one second or longer. There is no point in checking the GPS more often than that as the data only comes in slowly so won't change very quickly.

B4X:

 Sub Displaycheck
Label52.Width = 1
n = 1
Label51.Visible = True
Label52.Visible = True
gpsint.GetGpsData(6000)
[COLOR="Red"]gpsint.GetDeviceData[/COLOR]
Label51.Text = gpsint.DeviceState & " " & gpsint.ServiceState
Do While (Not(gpsint.DeviceState = "On" ) OR (gpsint.SatelliteUsedCount < 4))
gpsint.GetGpsData(6000)
[COLOR="Red"]gpsint.GetDeviceData[/COLOR]
Label51.Text = gpsint.DeviceState & CRLF & SatelliteUsedCount & " (" & SatellitesInViewCount & ")" & CRLF & "zu wenig Sats " & SatelliteUsedCount & 
Label52.Width = n/100
DoEvents
n = n + 1
If n > 8000 Then
Timerint.Enabled = False 
gpsint.close
Return
End If
Loop

derez · Nov 17, 2008

Schimanski

The problem is the leading zero, so just add it using if. It is not as clean but works.

Sub ToDegMins(DecLatLon)
st = (DecLatLon - Int(DecLatLon)) * 60
if st < 10 then st = "0" & Format(st, "N2") else st = Format(st, "N2")
Return Int(DecLatLon) & st
End Sub

agraham · Nov 17, 2008

derez said:
The problem is the leading zero

I realised that it might also need a leading zero on "Int(DecLatLon)" depending upon whether a fixed length string is expected. Note my "clean" solution above using a custom number formatting string.

Georg · Nov 17, 2008

Latitute Error

Thanks agraham,

now it works with

gpsint.GetDeviceData

but here is an other error. I get an Error Message on

If gpsint.Latitude <> gpsint.InvalidData AND gpsint.Longitude <> gpsint.InvalidData Then
lat = gpsint.Latitude
lon = gpsint.Longitude
utm() = Converter.WGS84LatLonToUTM(lat,lon)
End If

12.5543616666667,52.4029533333333,148
12.5543633333333,52.402955,148
12.5543633333333,52.402955,148
12.5543616666667,52.402955,148
12.5543633333333,52.402955,148
12.55437,52.4029566666667,148
12.55437,52.4029566666667,148
12.5543683333333,52.4029566666667,148
12.55437,52.4029566666667,148
12.5543716666667,52.40296,148
12.5543716666667,52.40296,148
12.5543716666667,52.40296,148
12.55438,522.4029766666667,148

the Mistake is the lat 522.40...

I get this error also at the app gpsdriverdemo.exe

this error was not in the old GPS.dll

schimanski · Nov 17, 2008

Convert coordinates

Thanks derez and thanks agraham!!!

I've tested your new code, agraham, with all different coordinates:

B4X:

Return Format(Int(DecLatLon),"00") & Format((DecLatLon - Int(DecLatLon)) * 60, "00.00")

It runs without any problems....:sign0060:

agraham · Nov 18, 2008

Georg said:
I get an Error Message

I assume this is using the GPSDriver dll. What does the Error Message say and can you log the input values that cause the error so we can reproduce it?

Georg · Nov 18, 2008

Hi

the input Values are the lat and the lon in my last Message. I saved it in a file and when i get the error and cancel the program it stops on this line
utm() = Converter.WGS84LatLonToUTM(lat,lon)

perhaps that is a better way to say it

If gpsint.Latitude <> gpsint.InvalidData AND gpsint.Longitude <> gpsint.InvalidData Then
lat = gpsint.Latitude
lon = gpsint.Longitude

FileOpen (c9,"latlon.txt",cWrite,cAppend,cASCII)
textlaton = lon & "," & lon & "," & gpsint.SeaLevelAltitude
FileWrite (c9,textlaton)
FileClose (c9)
utm() = Converter.WGS84LatLonToUTM(lat,lon) 'Programm canceled here

End If

latlon.txt

12.55437,52.4029566666667,148
12.5543716666667,52.40296,148
12.5543716666667,52.40296,148
12.5543716666667,52.40296,148
12.55438,522.4029766666667,148

by the way if you use this lat/lon you can see where i liv. Thats the reason of my english

agraham · Nov 18, 2008

Georg said:
.12.55438,522.4029766666667,148

To be clear. These values were returned by the GPSDriver library as latitude, longitude and altitude?

Erel · Nov 18, 2008

It looks like a problem between the GPS hardware and the driver.
You can filter out results where the latitude is not between +-180.

New GPSDriver library

Well-Known Member

B4X founder

Well-Known Member

Expert

Member

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Member

Expert

Expert

Expert

Expert

Member

Well-Known Member

Expert

Member

Expert

B4X founder

Privacy & Transparency

Privacy & Transparency