Enviar "00" por puerto serie
Publicado por McRight2k (21 intervenciones) el 19/09/2002 02:35:34
Hola a todos...
Estoy retocando una aplicación con Visual Basic que hice para leer por el puerto serie y ahora quiero escribir también.
La cosa es que para enviar datos (OUT) convierto los datos en hexadecimal a carácteres (al contrario de la recepción) pero cuando tiene un dato "00" y lo intenta convertir a carácter, sorpresa, no existe código para el "00", entonces como envío?
Ejemplo:
For i = 1 To Len(Cadena) Step 2
Cadena_Envio = Cadena_Envio & Chr(Val("&h" & Mid(Cadena, i, 2)))
Next i
Si Cadena = "3BF71100A1929C6F5B58E09AE145"
Cadena_Envio termina siendo = ";÷" , lo que equivale a "3BF711", a partir del 00, ya no incluye nada mas en la conversión a carácteres de los números hexadecimales.
alguien me puede echar una mano????
Gracias y salu2
Estoy retocando una aplicación con Visual Basic que hice para leer por el puerto serie y ahora quiero escribir también.
La cosa es que para enviar datos (OUT) convierto los datos en hexadecimal a carácteres (al contrario de la recepción) pero cuando tiene un dato "00" y lo intenta convertir a carácter, sorpresa, no existe código para el "00", entonces como envío?
Ejemplo:
For i = 1 To Len(Cadena) Step 2
Cadena_Envio = Cadena_Envio & Chr(Val("&h" & Mid(Cadena, i, 2)))
Next i
Si Cadena = "3BF71100A1929C6F5B58E09AE145"
Cadena_Envio termina siendo = ";÷" , lo que equivale a "3BF711", a partir del 00, ya no incluye nada mas en la conversión a carácteres de los números hexadecimales.
alguien me puede echar una mano????
Gracias y salu2
Valora esta pregunta
0