Programación de puertos serie a través de Visual Basic 6

Visual Basic es el lenguaje de programación desarrollado por Microsoft. Visual Basic es una representación visual del lenguaje de programación básico clásico. Visual Basic 6 es la versión de la aplicación de programación que se publicó antes de la versión de .NET. Durante la programación con Visual Basic, puede que tenga que acceder a diferentes partes de la computadora para que el programa pueda hacer lo que tiene que hacer. Leer y / o enviar datos a los puertos serie en el equipo utilizando la codificación correcta de Visual Basic.

Instrucciones

1 Abra Microsoft Visual Basic 6. El cuadro de diálogo "Nuevo proyecto" aparece cada vez que VB6 abierta. En la pestaña "Nuevo", haga clic en "EXE estándar". Si quieres trabajar en un proyecto existente, haga clic en la pestaña "existente" y luego seleccione el proyecto.

2 Haga clic en la opción de menú "Proyecto" y luego "Agregar módulo". Haga clic en "Abrir" cuando aparezca el cuadro de diálogo "Agregar módulo" en la pantalla.

3 Escriba una función para crear una instancia del puerto serie del ordenador. Desde los puertos serie son por lo general "COM1" y "COM2," utilizar esto como referencia para asegurarse de que se está conectando el puerto serie correcto.

"OpenSerialPort Función () As String

Dim getString as String = " "

Dim comSerial Como IO.Ports.SerialPort

comSerial = My.Computer.Ports.OpenSerialPort ( "COM1")

Función del final "

4 Tipo en la función que va a leer los datos de la serie utilizando la variable "comSerial" que ya establecidas.

"Función readSerialPort (comSerial como IO.Ports.SerialPort) as String

Dim getString como String = ""

Using comSerial

Hacer

Dim Recibir como secuencia = comSerial.ReadLine ()

Si receptora es nada entonces

Salir Do

Más

returnStr & = Recepción e vbCrLf

Terminara si

Lazo

comSerial.Close ()

El uso de terminar

Volver getString

Función del final "

5 Escriba el siguiente procedimiento Sub que envía datos al puerto serie. Una vez que se establece este procedimiento sub en este módulo, se le puede llamar desde cualquier parte del proyecto actual para enviar datos a los puertos serie en cualquier momento que elija.

"(datos ByVal como secuencia) Sub sendDataToSerial

Using comSendData As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")

comSendData.WriteLine (datos)

comSendData.Close ()

El uso de terminar

End Sub "

6 Pasar la información al procedimiento secundario mediante una variable llamada "datos". Un ejemplo de esto es:

"Dim como secuencia de datos

datos = "Se trata de datos de ejemplo para transmitir al puerto serie COM1"

Console.WriteLine ( "escribir los datos en el puerto serie COM1:" los datos y)

sendDataToSerial (datos) "

7 Coloque el código en cualquier función, método o procedimiento durante el proyecto para escribir los datos en el puerto serie. Ejecutar el código pulsando la tecla "F5" "Ctrl" y juntos.

8 Guarde el proyecto haciendo clic en el icono "Guardar" en la barra de herramientas.