Cómo utilizar la comunicación serie en vb

Utilizar la interfaz RS232 de 9 pines del PC y programar con el control MSComm incluido en VB6

Esquema de cableado del puerto serie de comunicación serie de dos PC:

'==============================

'El puerto serie de la PC utiliza el botón de comando para comenzar a recibir /Enviar programa VB

Private Sub Form_Load() MSComm1.PortOpen = True? 'Abrir el puerto del control de comunicación

End Sub

'Haga clic en " Enviar" botón de comando para enviar datos

Private Sub Command1_Click() MSComm1.Output = Text1.Text? 'Enviar los datos del cuadro de texto Text1 a la otra parte

End Sub

' Haga clic en el botón de comando "Recibir" para recibir datos

Private Sub Command2_Click() Dim st As String st = MSComm1.Input Text2.Text = st ?'Coloque los datos recibidos en el cuadro de texto Texto2

End Sub

'===============================

'El puerto serie de la PC recibe/envía automáticamente programas VB a intervalos regulares

Private Sub Form_Load() MSComm1.PortOpen = True? 'Abrir el puerto del control de comunicación Timer1.Interval = 100? 'Intervalo de tiempo de transmisión automática 100 milisegundos

End Sub

Private Sub MSComm1_OnComm() Dim st As String If MSComm1.InBufferCount gt 0 Then st = MSComm1.Input Text2.Text = st? 'Los datos a recibir Ponlos en el cuadro de texto Text2End If

End Sub

Private Sub Timer1_Timer() MSComm1.Output = Text1.Text '¿Enviar el contenido? del cuadro de texto Texto1

End Sub