PROGRAMA DE COMUNICACION SERIAL PC A PC CON VISUAL BASIC MODO CONSOLA

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.