Problemas al leer datos de un GPS mediante SerialPort VB.NET 2005

Como conectas el GPS ala Pocket? (Bluetooth, integrado...)


saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com
http://www.desarrolloMobile.NET

"ycono" escribió en el mensaje
news:
Hola estoy desarrollando una aplicacion desde vb.net 2005 que
basicamente es conectar el GPS al puerto CF, estoy haciendo uso del
control SERIAL PORT, al parecer ya puedo abrir el puerto, no me marca
error de que no exista el puerto ni otra cosa, estoy usando el puerto
COM7, les dejo el codigo para quien le sea util :

If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
Try
With SerialPort1
.PortName = "COM7"
.BaudRate = 4800
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = StopBits.One
End With
SerialPort1.Open()
Label2.Text = SerialPort1.PortName & " Conectado"
Catch ex As Exception
MsgBox(ex.ToString)
End Try

Por otro lado estoy tratando de recuperar los datos del GPS pero no me
resulta, eh tratado de varias formas usando de los metodos de
SERIALPORT pero no logro recuperar nada del GPS, si alguien pudiera
ayudarme a entender como tengo hacer para leer el string que manda el
gps que es un NMEA, estoy intentando usar DataReceived a continuacion
les dejo el codigo que estoy tratando de hacer funcionar :

Public Sub updatetextbox()
Dim sdatos As String = SerialPort1.ReadExisting
With txtDataReceived
'.Font = New Font("Garamond", 12.0!, FontStyle.Bold)
'.WordWr()
'txtDataReceived.Text = SerialPort1.ReadExisting()
'SerialPort1.ReadBufferSize = txtDataReceived.Text
''SerialPort1.ReadExisting = txtDataReceived.Text
''txtDataReceived.Text = SerialPort1.Read
txtDataReceived.Text = SerialPort1.ReadExisting
.AcceptsReturn
End With
End Sub

algunas lineas estan en comentarios ya que UPDATETEXTBOX, pero lei aque
para usar algunas de esas propiedades debe ser un RICH TEXTBOX lo cual
no soporta el Compact Framework, mi pregunta es : ¿COMO PUEDO LEER LOS
DATOS DEL GPS Y A QUE CONTROL LO TENGO QUE ASOCIAR?
Saludos

Lo conecto al la ranura Compact Flash de la pocket pc
Saludos

José Miguel Torres wrote:

Como conectas el GPS ala Pocket? (Bluetooth, integrado...)


saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com
http://www.desarrolloMobile.NET

"ycono" escribió en el mensaje
news:
Hola estoy desarrollando una aplicacion desde vb.net 2005 que
basicamente es conectar el GPS al puerto CF, estoy haciendo uso del
control SERIAL PORT, al parecer ya puedo abrir el puerto, no me marca
error de que no exista el puerto ni otra cosa, estoy usando el puerto
COM7, les dejo el codigo para quien le sea util :

If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
Try
With SerialPort1
.PortName = "COM7"
.BaudRate = 4800
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = StopBits.One
End With
SerialPort1.Open()
Label2.Text = SerialPort1.PortName & " Conectado"
Catch ex As Exception
MsgBox(ex.ToString)
End Try

Por otro lado estoy tratando de recuperar los datos del GPS pero no me
resulta, eh tratado de varias formas usando de los metodos de
SERIALPORT pero no logro recuperar nada del GPS, si alguien pudiera
ayudarme a entender como tengo hacer para leer el string que manda el
gps que es un NMEA, estoy intentando usar DataReceived a continuacion
les dejo el codigo que estoy tratando de hacer funcionar :

Public Sub updatetextbox()
Dim sdatos As String = SerialPort1.ReadExisting
With txtDataReceived
'.Font = New Font("Garamond", 12.0!, FontStyle.Bold)
'.WordWr()
'txtDataReceived.Text = SerialPort1.ReadExisting()
'SerialPort1.ReadBufferSize = txtDataReceived.Text
''SerialPort1.ReadExisting = txtDataReceived.Text
''txtDataReceived.Text = SerialPort1.Read
txtDataReceived.Text = SerialPort1.ReadExisting
.AcceptsReturn
End With
End Sub

algunas lineas estan en comentarios ya que UPDATETEXTBOX, pero lei aque
para usar algunas de esas propiedades debe ser un RICH TEXTBOX lo cual
no soporta el Compact Framework, mi pregunta es : ¿COMO PUEDO LEER LOS
DATOS DEL GPS Y A QUE CONTROL LO TENGO QUE ASOCIAR?
Saludos