Visual Basic - URGENTE COMO SUMAR HEXADECIMALES

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE COMO SUMAR HEXADECIMALES

Publicado por manuel (33 intervenciones) el 01/04/2003 16:36:25
Hola, a ver si alguien me puede ayudar a sumar hexadecimales:

De esta forma:

por ejemplo:

F6 + E6 (siempre serían dos dígitos) y mostrar la suma en un text-box.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE COMO SUMAR HEXADECIMALES

Publicado por Julio Aguilar (92 intervenciones) el 01/04/2003 20:57:22
Los hexadecimales se reprecentan anteponiendoles &H
Ejemplo la suma solicitada:

Dim valH
valH = Hex(&HF6& + &HE6&)

Al final ValH=1DC
Espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Si pero, no me vale... ¿Ideas?

Publicado por Manuel (33 intervenciones) el 02/04/2003 03:19:34
Ante todo gracias, pero necesito hacerlo de la siguiente forma:

Dim cadena1
Dim cadena2
Dim resultado

cadena1 = Mid(Text1, 2,2) 'aquí sale por ejemplo F6
cadena2 = Mid(Text1, 4,2) 'aquí sale por ejemplo E6

resultado = Hex(cadena1 + cadena2)
Text2.Text = resultado

Pero no sale ni de broma, lo que realmente necesito es sumar dos trozos de una cadena en hexadecimal... no se si me explico suficientemente... pero no hay manera...

Gracias por las molestias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Si pero, no me vale... ¿Ideas?

Publicado por maCo (7 intervenciones) el 02/04/2003 20:08:42
resultado = Hex(CInt(\"&H\" & cadena1) + CInt(\"&H\" & cadena2))

quizas asi ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Si pero, no me vale... ¿Ideas?

Publicado por Eduardo (2 intervenciones) el 03/04/2003 13:54:42
dim Resultado as string
Resultado=hex$(val(\"&H\"&Cadena1)+val(\"&H\"&Cadena2))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar