Urgente: enséñeme un código de programa simple para enviar y recibir datos usando el puerto serie vb para realizar la transmisión de datos entre dos computadoras a través de com1. Muchas gracias

Opciones explícitas

Subcomando privado1_Click()

Si Len(Text1.

Atenuar I como entero

Atenuar SendByte() como byte

I = Len(Text1.Text)

ReDim SendByte(I - 1)

Para I = 0 a UBound(SendByte)

SendByte(I) = Asc(Mid(Text1.Text, I + 1, 1))Configuración = "9600,n,8, 1"

MSComm1.CommPort = 1 'Número de puerto de comunicación, ajústelo según la situación real

MMSComm1.NullDiscard = False

MSComm1.MSComm1.NullDiscard = False

MSComm1.RTreshold = 1

MSComm1.InputMode = comInputModeBinary

MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()

Seleccione caso MSComm1.CommEvent

Caso 2

Dim InByte, I como entero

InByte = MSComm1 .Input

Para I = 0 a UBound(InByte)

Text2.Text = Text2.Text & "&H" & Hex(InByte(i)) & " "

Siguiente

Fin Seleccionar

Fin Sub