Programación del puerto serie vb

Cualquier programa que utilice un puerto serie para enviar y recibir puede utilizar un único puerto RS232 para cortocircuitar los pines 2 y 3 para lograr una autorrecepción espontánea para la depuración de código.

Cree un nuevo proyecto de VB, seleccione la opción del menú del proyecto y verifique el componente Microsoft Comm Control 6.0. El control MSCOMM está disponible en la caja de herramientas de VB y se agrega al formulario. > Sub privado cmdSend_Click()

Dim strSend como cadena

strSend = Text2

MSComm1.Output = strSend

End Sub

Private Sub Form_Load()

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

MSComm1.InputMode = comInputModeText 'Usar texto para recibir

MSComm1.InBufferCount = 0 'Borrar el buffer de recepción

MSComm1.OutBufferCount = 0 'Borrar el buffer de transmisión

MSComm1.RTreshold = 1 'Generar evento MSComm

MSComm1.PortOpen = True

Text1 = ""

End Sub

Private Sub MSComm1_OnComm() 'Recibir datos

Atenuar strBuff como cadena

Seleccione caso MSComm1.CommEvent

Caso 2

strBuff = MSComm1.Input

Texto1 = Texto1 amp; strBuff

Fin de selección

Fin de sub