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 . NET . Mientras que la programación con Visual Basic, puede que tenga que acceder a diferentes partes de la computadora para que el programa puede hacer lo que usted necesita que haga. Leer y /o enviar datos a los puertos serie del equipo con la derecha codificación de Visual Basic . Instrucciones
1

Abra Microsoft Visual Basic 6 . El cuadro de diálogo "Nuevo proyecto" aparece cada vez que se abre VB6 . 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 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 de la computadora. Desde los puertos serie son por lo general " COM1" y " COM2 ", utilice esto como una referencia para asegurarse de que está conectado al puerto serie correcto.

"Función OpenSerialPort () as String

getString dévil como secuencia = ""

Dim comSerial como IO.Ports.SerialPort

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

End Function "
4

Escriba la función que va a leer los datos de la serie utilizando la variable " comSerial " que ya establecido .

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

getString dévil como secuencia = ""

Uso comSerial

¿

Dim Recibir As String = comSerial.ReadLine ()
< p> Si la recepción no es nada entonces

Exit Do

demás

returnStr & = Recepción y vbCrLf

End If

Loop

comSerial.Close ()

End Using

Volver getString

End Function "
5

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

"Sub sendDataToSerial (datos ByVal como secuencia )

Uso comSendData Como IO.Ports.SerialPort = Usando

End Sub "
6

pasar la información al procedimiento sub utilizando una variable llamada " datos " . Un ejemplo de esto es:

"datos dévil como secuencia
datos

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

Console.WriteLine ( " Escribir los datos en el puerto serie COM1 : "& datos)

sendDataToSerial (data) "
7

Coloque el código en cualquier función, método o procedimiento durante el proyecto para escribir los datos al puerto serie . Ejecute el código pulsando las teclas " F5" " Ctrl" y en conjunto.
8

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