Funciones para un electronico en VB.

[LABmouse]

Hola amigos, queria hacer una consulta sobre algo en particular sobre manipulación de bytes en VB.NET 2010, por eso uso este hilo para preguntar.

Estoy en un rato libre y deseo hacer algo en vb pero me ha llevado mas tiempo de lo esperado.


hay 2 textbox, uno para escribir un dato e hexadecimal y otro para escribir datos e binario, lo que pretendo es:

Pasar ese string en el Tb hexadecimal a decimal para enviar por puerto serial.
Pasar ese string en el Tb binario a decimal para enviar por puerto serial.


Por ahora intento con el hexa lo siguiente:

Código: vb.net

1. Dim Value As Integer
2.  
3. Value = CInt("&H" & TbMsgHex.Text)
4. SerialPort1.Write(Chr(Value))

                         


Al depurar paso a paso el programa, veo que funciona bien, pues al escribir "9F", en la variable Value obtengo 159 lo que es totalmente correcto, pero al enviar por puerto serial, veo que llega es el numero 63 o 3F en hex... 

Entonces el problema creo esta al escribir:  Chr(Value), pero no conozco otra forma de poder enviar el byte por puerto sere.


Sobre el binario, no intento nada por ahora hasta que complete el ed hex.

Saludos!

[BrunoF]

Hola!

VB.NET es un lenguaje OOP y como tal, acepta sobrecarga de métodos.

Podrías utilizarlo así:

SerialPort1.Write(New Byte() {CByte(Value)}, 0, 1)

[LABmouse]

aunque no logro entender de buenas a primeras como funciona, debo decirte que funciono Perfecto amigo Bruno.

Muchísimas gracias, por tu ayuda.