Home All Groups Group Topic Archive Search About
Author
8 Aug 2006 8:19 AM
Hugh Janus
I am trying to receive GPS data into a pocket PC 5.0.  I am using the
device emulator.  The main PC has a bluetooth dongle connected and is
bonded with the bluetooth GPS transmitter to COM8.  In the device
emulator, I am mapping Serial Port 1 to COM8.  The below code *should*
work as far as I can see but it does not.  It hangs on the ReadLine
line.  Any ideas anyone?
If I use hyperterminal on the main computer to read COM8 I can see the
GPS data so the GPS is working OK.  Help!?!!


Private Sub ReadGPS

        Debug.WriteLine("Starting")
        Application.DoEvents()

        Debug.WriteLine("Creating COM Port")
        Dim GPSCom As New IO.Ports.SerialPort
        With GPSCom

            .PortName = "COM1"
            .BaudRate = "2400"
            .DataBits = 8
            .Parity = IO.Ports.Parity.None
            .StopBits = IO.Ports.StopBits.One
            .NewLine = "$"
            .Open()

        End With

        Application.DoEvents()
        Debug.WriteLine("Attempting read.")
        Application.DoEvents()

        Do

            Debug.WriteLine(GPSCom.ReadLine)
            Application.DoEvents()

        Loop

    End Sub

Author
8 Aug 2006 4:43 PM
tommaso.gastaldi
..BaudRate = Should be integer, I guess (not a string)

Try also with ReadChar to check receive. In case add line crlf.

Tommaso

Hugh Janus ha scritto:

Show quoteHide quote
> I am trying to receive GPS data into a pocket PC 5.0.  I am using the
> device emulator.  The main PC has a bluetooth dongle connected and is
> bonded with the bluetooth GPS transmitter to COM8.  In the device
> emulator, I am mapping Serial Port 1 to COM8.  The below code *should*
> work as far as I can see but it does not.  It hangs on the ReadLine
> line.  Any ideas anyone?
> If I use hyperterminal on the main computer to read COM8 I can see the
> GPS data so the GPS is working OK.  Help!?!!
>
>
> Private Sub ReadGPS
>
>         Debug.WriteLine("Starting")
>         Application.DoEvents()
>
>         Debug.WriteLine("Creating COM Port")
>         Dim GPSCom As New IO.Ports.SerialPort
>         With GPSCom
>
>             .PortName = "COM1"
>             .BaudRate = "2400"
>             .DataBits = 8
>             .Parity = IO.Ports.Parity.None
>             .StopBits = IO.Ports.StopBits.One
>             .NewLine = "$"
>             .Open()
>
>         End With
>
>         Application.DoEvents()
>         Debug.WriteLine("Attempting read.")
>         Application.DoEvents()
>
>         Do
>
>             Debug.WriteLine(GPSCom.ReadLine)
>             Application.DoEvents()
>
>         Loop
>
>     End Sub
Author
8 Aug 2006 6:34 PM
Dick Grier
Hi,

>>
I am mapping Serial Port 1 to COM8.  The below code *should*
work as far as I can see but it does not.  It hangs on the ReadLine
line.  Any ideas anyone?
<<

You say that you are mapping Serial Port 1 to COM8.  Are you sure this is
what you want?  COM8 should be mapped to Serial Port 0 (COM1 on your PPC
emulator), Serial Port 1 is COM2, not COM1.

Dick

--
Richard Grier, MVP
Hard & Software
Author of Visual Basic Programmer's Guide to Serial Communications, Fourth
Edition,
ISBN 1-890422-28-2 (391 pages, includes CD-ROM). July 2004, Revised March
2006.
See www.hardandsoftware.net for details and contact information.