¿Cómo envía un programa VB.NET un mensaje de cadena al puerto Com de la computadora y luego recibe y muestra el mensaje de cadena enviado?

delegar subconjunto de devolución de llamada de texto (cadena de entrada byval como cadena)' declara una clase delegada y declara que hay un parámetro que satisface la función y su tipo es cadena.

Sub ShowString privado (ByVal comData como cadena)

txt_Re. Text amp= comData 'Coloque los datos recibidos en el cuadro de texto de recepción - txt_Re. El texto es el cuadro de texto de recepción.

txt_Re. InicioSelección = txt_Re. Longitud del texto

txt_Re. ScrollToCaret()

Conector final

puerto subserie privado 1 _ datos recibidos (byval remitente es el objeto, byval e es el sistema. io . ports . serial datareceiveddeventargs) maneja el puerto serie 1 .datareceived 'Recibir eventos automáticamente.

atenuar en datos As String = puerto serie 1. El lector existe

Atenuar d como nuevo SetTextCallback(dirección de la cadena mostrada)

Llamada(d, inData)

Conector final

Privado subbutton1_click (tratar al remitente como system.object, byval e como system.eventargs) maneja el botón1. Haga clic en Enviar instrucciones.

Puerto serie 1. Escribir("123")

Conector final