Hola...
Estoy peleandome con un programa de VB6 para recibir/enviar datos en hexadecimal.
Para ello, en la recepción hago lo siguiente:
'Modo de entrada datos texto
Com1.InputMode = 0
Private Sub MSComm1_OnComm()
Recepcion = Com1.Input
For i = 1 To Len(Recepcion)
Datos_Hex = Datos_Hex & Chr(Val("&h" & Mid(Recepcion, i, 1)))
Next i
End Sub
'Hasta aquí todo bien, recibo los datos en hexadecimal correctamente. Pero al enviar...
For i = 1 To Len(Enviar_Hex) Step 2
Enviar_Chr = Enviar_Chr & Chr(Val("&h" & Mid(Enviar_Hex, i, 2)))
Next i
Com1.output = Enviar_Chr
'Al parecer funciona bien, excepto si los datos a enviar en hexadecimal, son "00", en ese caso no lo envía porque --> Chr(Val(00)) no es nada, por lo que los 0 no puedo enviarlos por el puerto serie.
Agradecería cualquier opinión.
Gracias |
