Cómo usar vb para escribir código de comunicación serial entre la computadora y el microcontrolador

Ejemplo de control de MSComm

El siguiente ejemplo sencillo demuestra la comunicación serie básica con un módem:

Private Sub Form_Load ( )

' Búfer para guardar la subcadena de entrada

Dim Instring As String

' Usa COM1.

MSComm1.CommPort = 1

' 9600 baudios, sin paridad, 8 bits de datos, 1 bit de parada.

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

' Cuando la entrada está ocupada

' Le dice al control que lea todo el buffer.

MSComm1.InputLen = 0

' Abre el puerto.

MSComm1.PortOpen = True

' Envía un comando de atención al módem.

MSComm1.Output = "ATV1Q0" amp; Chr$(13) 'Asegurar

' El módem responde "OK".

' Espera a que los datos regresen al puerto serie.

Do

DoEvents

Buffer$ = Buffer$ amp MSComm1.Input

Bucle hasta InStr(Buffer$, "OK" amp; vbCRLF)

' Lee la respuesta "OK" del puerto serie. .

'Cierra el puerto serie.

MSComm1.PortOpen = False

End Sub

Nota El control MSComm puede obtener datos del puerto mediante sondeo o métodos controlados por eventos. Este sencillo ejemplo utiliza el método de sondeo. Para ver un ejemplo de un enfoque basado en eventos, consulte la ayuda de eventos de OnComm.