Measuring distance on move

Agrartec · #1 (**permalink**) 06-22-2007, 10:53 PM

I have made a small application to measure the distance on moving. By now I`ve only tested it at 6 to 10 km/h. And so far it worked not bad, but there are still some bugs that I didn`t get rid of yet.
I think one problem is that the timers should work syncronised, but I don`t know how to manage that.

Or maybe I did a big mistake and don`t see/know it. I am not so sure if the calculation with those utm-data is correct. The tests weren`t much precise so far.

If some of you can need this then you are welcome to help me a little bit.
At first you need to add the .dll for serial and GPS of course and you must replace the port and baud-rate to those your GPS-reciever uses.

edit: I forgot to say that its only possible to start measuring when standing still (speed < 1). This can be changed in the code.

BerndB · #2 (**permalink**) 06-28-2007, 01:58 PM

Hi agrartec,

this is a version without the 2. timer.

For good precission you should not calculate with rounded UTM-Data.
(If you watch the data, you see that most differences happen behind the comma)

In this version I introduced an additional button to switch the GPS-device.
Then it's possible to restart the GPS connection, after a power off and power on of you PDA, automatically.

Code:

Sub Timer1_Tick
  if serial.InBufferCount>0 then 
    GPS.GPSStream(gps.GPSStream(Serial.InputString)) 'Takes the data received from the GPS to GPSStream.
  else      
    ' reactivate GPS after a power off/on automatically when GPS was active before
    sleep(2000)
    if serial.InBufferCount<=0 then      
      if BtGPS.color=cGreen then
        serial.EnableOnComm =false
        Serial.PortOpen = false 'Closes the seria
        TBsats.text=""
        serial.EnableOnComm =true
        Serial.PortOpen = true 
      end if    
    end if
  end if
End Sub

Ciao
BerndB

Erel · #3 (**permalink**) 06-28-2007, 02:17 PM

Nice tip

Agrartec · #4 (**permalink**) 06-28-2007, 10:43 PM

Thanks a lot, works better than my version.

A little hint so that it really works: it is "cgray" and not "cgrey".

Cableguy · #5 (**permalink**) 06-28-2007, 11:10 PM

A note about cGray!!
VB supports both cGrey and cGray althought the correct English form is Grey....So sometimes developers wich code in bth platforms get mixed up...
Basic4PPC is a "English correct" enviroment!!!

RandomCoder · #6 (**permalink**) 06-29-2007, 10:57 AM

Quote:

Basic4PPC is a "English correct" enviroment!!!

Not strictly true... colour is still spelt Color

Regards
RandomCoder

JJM · #7 (**permalink**) 06-29-2007, 11:27 AM

Hello,

On Harrap's dictonnary
gray is an americain word
grey is a britanic word !!!...
bye

JJ M

Cableguy · #8 (**permalink**) 06-29-2007, 05:56 PM

I think that Colour is not a English word but more of an Americanized form of the word...

A derivated word like colored is not written "coloured"....

Anyway this is

RandomCoder · #9 (**permalink**) 06-29-2007, 06:13 PM

You started it!

Regards,
RandomCoder

Agrartec · #10 (**permalink**) 07-01-2007, 02:07 PM

Ok, it seems that there are small differences in English and American spelling. But I had the problem that only "cgray" was accepted by B4ppc. When I use the code as BerndB wrote it, then I get error "cgrey is not a variable" or so.

Does the code work at other people here with "cgrey"?

Greets John.