Cómo leer los puertos serie utilizando Visual Basic

Incluso si los módems han sido reemplazados con acceso a Internet de alta velocidad, algunos equipos todavía los utilizan para la comunicación. Si está programando una aplicación que utiliza un módem, verificando que existe y funciona es importante para la interfaz de usuario. Microsoft .NET incluye un espacio de nombres y la clase de comunicarse con los puertos serie.

Instrucciones

Abra un nuevo proyecto

1 Crear una nueva aplicación de consola. En el menú de Visual Studio, haga clic en "Nuevo" y seleccione "Proyecto".

2 Seleccionar "Visual Basic" en el lado izquierdo de la ventana. En el lado derecho son diferentes plantillas de proyecto. Seleccione "Aplicación de consola." Haga clic en el botón "OK". Una nueva aplicación se configura en el espacio de trabajo de Visual Studio.

3 Haga clic en el nombre del proyecto en el cuadro de arriba a la derecha en el espacio de trabajo. Seleccione "Agregar referencia".

4 Haga clic en la pestaña "COM". Seleccione "Microsoft Comm Control 6.0" en el cuadro de lista y haga clic en "Seleccionar". Haga clic en "Aceptar" para cerrar la ventana de referencia.

Configuración del puerto serie

5 Crear una nueva variable COM. Es necesario asignar memoria y declarar una nueva variable. El texto siguiente llama a la clase COM para su uso en el resto del módulo. La variable de tampón se utiliza para contener el texto de respuesta desde el puerto serie.
Dim MyPort Como MSComm
MyPort = Nueva MSComm
Dim como secuencia mybuffer

6 Establecer el puerto a 1. La mayoría de las computadoras vienen con dos puertos serie. El código siguiente establece la comunicación con el puerto 1.
myPort.CommPort = 1

7 Crear ajustes comunes. Ajuste la velocidad de transferencia y dejar de bits de información necesaria para el control del módem. este conjuntos
myPort.Settings = "9600, N, 8,1"

8 Leer todo el búfer. Este código hace que el módem utilizar la memoria intermedia de la información cuando se envía al puerto serie.
myPort.InputLen = 0

Comunicarse con el puerto

9 Abrir el puerto serie. El puerto serie tiene que ser abierto y el buffer de entrada se aclaró que la aplicación pueda comunicarse con él. La tercera línea de código indica el puerto serie para devolver el texto a la aplicación.
myPort.PortOpen = True
myPort.InBufferCount () = 0
myPort.InputMode () = InputModeConstants.comInputModeText

10 Enviar un comando al puerto serie. Este comando pone a prueba la respuesta del módem.
myPort.Output = "ATV1Q0" & Chr (13)

11 Lea la respuesta desde el puerto serie. Este bucle lee el texto devuelto hasta un "OK" se alcanza.

DomyBuffer = myBuffer & myPort.Input

Loop Until InStr (mybuffer, "OK" y vbCrLf)

12 Cerrar el puerto. Después de usar el puerto serie, que es importante para cerrarla para otras aplicaciones.
myPort.PortOpen = False