Inicio > Informática, Programación, Telecomunicaciones, Uncategorized > PROGRAMA DE COMUNICACION SERIAL PC A PC CON VISUAL BASIC MODO CONSOLA

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.

 

  1. octubre 28, 2008 a las 2:59 am

    Buena compadre, justo lo que necesitaba, funciona la raja.

  2. Ricardo Calabresse
    diciembre 28, 2009 a las 6:30 pm

    MUY bueno !!!!
    Estoy en el armado de “cosas electronicas” y queria comandarlas a distancia por medio de 2 Pcs…..
    Leo el articulo y te lo comento!!!!
    Desde Neuquen-Argentina:
    Ricardo.

  3. Romario0716
    noviembre 18, 2010 a las 4:23 am

    esta todo bien explicado…pero seria aun mas facil si montaras un video…de lo hace el programa…de resto perfecto..saludo…buen aporte

  4. linder
    febrero 10, 2011 a las 9:47 pm

    no sirve nada de esto

  5. octubre 17, 2011 a las 11:58 pm

    no se, no he entrado nunca la verdad, aunke hay links por todos lados!!!

  6. marzo 2, 2012 a las 11:52 pm

    I believe this is among the most vital info for me. And i’m glad reading your article. But wanna remark on few general items, The site style is perfect, the articles is truly excellent : D. Good job, cheers

  7. Diego Andrés
    abril 26, 2013 a las 8:27 am

    Está muy buena y concreta tu explicación. Tengo una consulta, sabes enviar y recibir cualquier tipo de archivos de una computadora a otra?? o archivos .txt???

  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: