Código fuente del programa de puerto serie

StrData privado como cadena

Subcomando privado 1_Click()'Enviar

MSComm1. Salida = "123456 "

Conector final

Subform_Load() privado

MSComm1. Configuraciones = "9600, N, 8, 1 "

Mscomm1. "rthreshold=1" activa el evento ONCOMM.

MSComm1. Puerto Abierto = Verdadero

MSComm1. "Modo de entrada = CominputModeText" Recibir ASCII

Texto1 = " "

Conector final

Sub privado MSComm 1_on com()

Seleccionar un resumen del caso. MSComm1. CommEvent

Aceptación de caso

strData = Mscomm1. Entrada

0 = texto 1 & strData

Finalizar selección

Finalizar conector