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.
