La comunicación serie VB tiene una alta utilización de la CPU

Su programa sigue ejecutando su código en un bucle y, por supuesto, el uso de la CPU es alto. De hecho, no es necesario ocuparse de esto en absoluto. Sus eventos se pueden incluir en eventos MSComm_OnComm. Te doy una referencia del programa para que este evento solo se genere cuando recibas los datos. Si no recibe datos, el siguiente código no se ejecutará.

Subcomando privado 1_OnComm()

Atenuar cadena como cadena

Atenuar temperatura en forma de entero

Marcar I como un entero

Dim arry(2) es un número entero

Seleccione el caso Comm1. CommEvent

Aceptación de caso

inbyte = Comm1. Confirmar

str = Comm1. Entrada

Texto1. Texto = Com1. Dentro del buffer

For i = LBound(inbyte) to UBound(inbyte)

se recibirá str = str+Hex(inbyte(I))+Chr(32)'; Los datos se convierten a hexadecimal y se muestran como una cadena.

cadena = cadena + Chr(inbyte(i))

cadena = cadena + Chr(inbyte(i))

temp = temp + CInt(con Bytes en unidades (I))

Siguiente I

arry(count) = temp

count = count + 1

Si cuenta = 1, entonces

temp = arry(0) * 256 + arry(1)

txtsend. Texto = txtsend. Text&"& Submarine Thermal Reactor (abreviatura de reactor térmico submarino)

txtReceive. Text = txtReceive. Text&"&"count" format(String, "0.00")

Comm1. InBufferCount = 0

Terminará si...

Finalizar selección

Finalizar conector