El código fuente de VB de Commix (software de depuración de puerto serie) necesita con urgencia puntuaciones altas. Se requieren puntos adicionales para respuestas satisfactorias.

El siguiente es el código principal:

Private Sub Cmd_Click()

MSComm1. CommPort = 1 'Determina el número de serie.

MSComm1. Configuraciones = "9600, n, 8, 1 " 'Cadena utilizada para configurar la velocidad en baudios, el bit de paridad, el bit de datos y el bit de parada.

MSComm1. PortOpen = True 'Abre el puerto serie.

MSComm1. Output = "abcd " 'Envía la cadena "abcd" al puerto serie.

MSComm1. 'Cierra el puerto serie.

Conector final

subcomm privado 1 _ on comm()' Este evento se activa cuando se recibe el valor de retorno del puerto serie.

Definir una variable de cadena.

S = MSComm1. 'Entrada' coloca el valor de retorno del puerto serie en la variable de cadena s.

Muestra el contenido devuelto por el puerto serie en forma de cuadro de mensaje.

Conector final