Hay caracteres confusos en la comunicación serie en vb

VB usa codificación Unicode y los datos enviados a través del puerto serie usan codificación ANSI. Se puede mostrar normalmente en VB después de la conversión:

¿Privado? ¿Sub? Timer1_Timer()

¿Atenuado? buf()? ¿Como? "bytes" se establecerá en una matriz de bytes

buf? =?MSComm1. ¿ingresar? Lea los datos del búfer en la matriz buf.

¿Y si? ¿UBound(buf)? gt=?0? ¿Y luego qué? Determine si hay datos en el búfer.

Texto recibido. ¿Palabra? =?Texto recibido. ¿Palabra? ¿amperio? vbCrLf? ¿amperio? StrConv(buf,?vbUnicode)? Convertir a Unicode

¿Fin? Si

¿Finalizar? Sub está limitado a condiciones. Este código no ha sido probado. Si tiene alguna pregunta, por favor pregúnteme.