Avatar billede simonth Nybegynder
26. november 2006 - 11:22 Der er 2 kommentarer og
1 løsning

Ingen data fra GPS

Hej.

Jeg har følgende kode, der forbinder til COM7 på min PDA (HP 6515 med indbygget GPS) med hastigheden 57600.

Public Class Form1
    Dim WithEvents serialPort As New IO.Ports.SerialPort


    Private Sub Form1_Load( _
      ByVal sender As System.Object, _
      ByVal e As System.EventArgs) _
      Handles MyBase.Load
        txtDataReceived.Multiline = True
        txtDataReceived.WordWrap = True
        Dim ports As String() = serialPort.GetPortNames()
        Dim port As String
        For Each port In ports
            cbbCOMPorts.Items.Add(port)
        Next port
        txtDataReceived.Text = "Test. Have not got any data yet."


        'btnDisconnect.Enabled = False

    End Sub

    Private Sub DataReceived( _
      ByVal sender As Object, _
      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
      Handles serialPort.DataReceived

        txtDataReceived.Invoke(New _
                      myDelegate(AddressOf updateTextBox), _
                      New Object() {})
    End Sub

    Public Delegate Sub myDelegate()
    Public Sub updateTextBox()
        With txtDataReceived
            .Text = serialPort.ReadExisting
        End With
    End Sub

    Private Sub btnConnect_Click( _
      ByVal sender As System.Object, _
      ByVal e As System.EventArgs) _
      Handles btnConnect.Click
        If serialPort.IsOpen Then
            serialPort.Close()
        End If
        Try
            With serialPort
                .PortName = cbbCOMPorts.Text
                .BaudRate = 57600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .Encoding = System.Text.Encoding.Unicode
                .DtrEnable = True
                .RtsEnable = True

            End With
            serialPort.Open()

            'Timer1.Enabled = True

            lblMessage.Text = cbbCOMPorts.Text & " connected."

            btnConnect.Enabled = False
            btnDisconnect.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub


    Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click

        Try
            serialPort.Close()
            lblMessage.Text = "Disconnected."
            btnConnect.Enabled = True 'Can respond to user interaction
            btnDisconnect.Enabled = False 'Can NOT respond to user interaction
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        txtDataReceived.Text = serialPort.ReadExisting
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtDataReceived.Text = serialPort.ReadExisting
    End Sub
End Class

http://img85.imageshack.us/img85/9241/1qj1.jpg

Men når jeg trykker på "Button1" sker der ingenting, "Test. have not got any data yet" forsvinder, men der kommer ikke noget GPS data..
Jeg har tjekket med et andet program, at GPSen virker, så det burde ikke være der problemet er.
GPSen virker også i det medfølgende program Tomtom navigator.

Porten skulle være rigtig nok, da jeg har læst mig frem til på 3 forskellige hjemmesider at COM7 er porten, og det andet program der virkede, det brugte også COM7. Jeg har også prøvet med hastigheden 4800.

Hvad kan fejlen/problemet være?
Håber der er nogen der kan hjælpe.
Avatar billede lifo Nybegynder
26. november 2006 - 11:44 #1
første fejl jeg kan se er at det er lavet i VB
Avatar billede simonth Nybegynder
26. november 2006 - 12:07 #2
Doh ja...Normalt laver jeg i C# men havde for et år siden lavet et program der brugte seriel kommunikation, og det var i VB og så havde jeg ikke lige tænkt på at det jo var i VB da jeg oprettede spørgsmålet.. Undskyld. Jeg kan lige prøve at konventere koden, 2.sek.
Avatar billede simonth Nybegynder
16. januar 2007 - 17:48 #3
Lukker.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester