Puerto serie
Publicado por Fran (2 intervenciones) el 14/07/2007 07:25:15
Hola a todos, estoy intentando comunicar con un equipo electrónico por medio de un programita en Microsof visual - basic, utilizo el control para el puetro que viene en la librería de instalación . Me permite escribir y leer utilizando los metodos del control. El problema me surge cuando leo no es el formato Hexadecimal. ¿Que función puedo utilizar para convertir el valor leído a hexadecimal? y para escribir en el puerto ¿Cómo formo la trama?. Disculpad, pero stoy un poco verde en estos temas. Os adjunto las lineas de código de lectura/escritura.
WRITE:
sp.NewLine = vbCrLf
sp.WriteLine(Texto.Text)
consola.AppendText("Enviado..: " & Texto.Text & vbCrLf)
READ:
Private Sub sp_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
Dim s As String = sp.ReadExisting
Dim Escritor As New Delegado(AddressOf Me.Mostrar)
Me.Invoke(Escritor, s)
'consola.AppendText("Datos recibidos..:" & s & vbCrLf)
End Sub
Sub Mostrar(ByVal d As String)
consola.AppendText("Datos recibidos..:" & d & vbCrLf)
End Sub
------------------Gracias
WRITE:
sp.NewLine = vbCrLf
sp.WriteLine(Texto.Text)
consola.AppendText("Enviado..: " & Texto.Text & vbCrLf)
READ:
Private Sub sp_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
Dim s As String = sp.ReadExisting
Dim Escritor As New Delegado(AddressOf Me.Mostrar)
Me.Invoke(Escritor, s)
'consola.AppendText("Datos recibidos..:" & s & vbCrLf)
End Sub
Sub Mostrar(ByVal d As String)
consola.AppendText("Datos recibidos..:" & d & vbCrLf)
End Sub
------------------Gracias
Valora esta pregunta
0