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.