Código fuente de recopilación del puerto serie de Vb

Private subform_Load()

Marcar I como un número entero

Usar MSComm1

si. CommPort lt gt2then.com port = 2 'Establece Com2 como puerto de comunicación.

. Configuraciones = "9600, N, 8, 1 " 'Establece los parámetros del puerto de comunicación en 9600 Hz, sin paridad, 8 bits de datos, 1 bit de parada. (Lo que necesita más explicación aquí es: configuración =" bbbb, p, d, s ".

Significado: b: velocidad en baudios; p: paridad (paridad); d: bits de datos; s: bit de parada )

. 'InBufferSize = 1024 'Establece los datos recibidos en el búfer en 1024 bytes.

. OutBufferSize = 512

. InputMode = comInputModeText 'Establece el modo de recepción de datos en formato hexadecimal 16.

. 'InputLen = 1 'Establece el número de bytes que la entrada lee del búfer de recepción a la vez en 1.

. RTreshold = 1 'Configurado para generar un evento OnComm cuando se recibe un byte.

. OutBufferCount = 0 'Borrar el búfer de envío.

. InBufferCount = 0 'Borrar el búfer de recepción.

Si no. Luego abre el puerto

. PortOpen = True 'Abre el puerto de comunicación.

Terminará si...

Terminará con...