En primer lugar quiero agradecer por la aceptación que han tenido mis artículos y sus opiniones, las cuales me han motivado a seguir escribiendo y brindando información a todo el que la necesita.
Este tutorial consiste en un programa escrito en lenguaje VISUAL BASIC “consola”, que permite la conexión entre 2 computador a través del puerto serial, dicho programa es muy sencillo no necesita de configuración de la rata de transmisión, ni tampoco del control de flujo, como se configuran en otros programas como el hyperterminal.
<!–[if !supportLists]–>1- <!–[endif]–>Creación del proyecto: este fue realizado con VISUAL STUDIO 2005 pero es igual para algunas versiones anteriores y para la nueva versión 2008.
Le damos nuevo proyecto y le damos seleccionamos VISUAL BASIC aplicación consola
<!–[if gte vml 1]> <![endif]–><!–[if !vml]–><!–[endif]–>
Después de crear el proyecto nos aparecerá algo en la pantalla como esto:
<!–[if gte vml 1]> <![endif]–><!–[if !vml]–><!–[endif]–>
<!–[if !supportLists]–>2- <!–[endif]–>Programa: para usarlo solo tienen que copiar y pegar sobre lo que les aparece en el proyecto que crearon:
PROGRAMA DE TRANSMICION DE DATOS
Module Module1
Sub SendSerialData(ByVal data As String)
‘Envia una cadena string al puerto serie
Dim Data As String
Data = “HOLA” ‘coloca lo que desees transmitir al puerto.
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort(“COM1″)
com1.WriteLine(data)
com1.Close()
End Using
End Sub
End Module
PROGRAMA DE RECEPCIÓN DE DATOS
Module Module1
Function ReceiveSerialData() As String
‘Recibe una cadena string que halla sido escrita en el puerto
Dim returnStr As String = “”
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort(“COM1″)
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
Console.WriteLine(returnStr)
End If
Loop
com1.Close()
End Using
End Function
End Module
3 – Explicación: el programa consiste en un modulo de transmisión de datos al puerto serie y otro de recepción de datos, también se puedes combinar las 2 programas para que ambos escriban y lean.
EL programa de recepción debe estar en modo run, cuando este todo listo se ejecutara el de transmisión quien enviara la cadena string solo una vez y deberá ser recibida por el otro PC inmediatamente.
Los programas no pueden ser probados en el mismo PC por la utilización del puerto del puerto serial.
Espero que les ejecute a todos y que les sirva.
Cualquier duda comentario o sugerencia será recibida.
De nuevo gracias por los comentarios de los anteriores artículos y/o tutoriales son una motivación para seguir escribiendo.
