Hola.. Como ven el nombre lo dice..
ando trabajando en una calculadora pero necesito hacer una suma hexadecimal .. Alguien me podria decir como hacerla?
tuve unos conflictos con el post anterior.. estaba en una zona indicada bueno en fin "X"..
quisiera que me ayuden con esto.. si alguien puede se los agradeceria ando empezando en esto no se como se hace si pueden ayudarme seria muy bueno .. Gracias de antemano hasta luego

Hola de nuevo,bueno ahora si esta posteado en la categoria de visual basic 6 y con titulo correcto ,dejemos todo atras lo que paso y bienvenido al foro!!.con respecto a tu duda yo he realizado hace mucho un conversor de unidades muy completo y bueno entre ellos hay una opcion para convertir las numeros a diferentes numeraciones...hexadecimal,octal,binario..etc...ah ora lo que podrias hacer es ingresar 2 numeros hexadecimales a cada uno pasarlos a decimal y multiplicarlos...y el resultado pasarlo a hexadecimal y listo ahi esta la calculadora.....busca como convertir de una base a otra que hay en internet y si tenes dudas postea...

saludos.

valla Gracias Por La Bienvenida
Acabe de hacer ello pero para lo que necesito ahora no me sirve
quisiera que vieras como es mas omenos

Lo que necesito es hacer que lo que ponga en un textbox se sume con El Valor que se encuentra en el codigo pero la suma tendria que ser hexadecimal algo asi

Resultado1.Text = Val(Valor1.Text) + Val(22F2D4)

Si me entiendes? bueno para mi es refacil pero no se como se hace una suma Hexadecimal porque como ves hay Letras alli 22F2D4
Quisiera saber si hay algun codigo especial para ello
mas omenos llegue a entender algo que los numeros Hex van con (&H) pero no se como hacerlo porque no me da la suma exacta lo cual seria asi

Resultado1.Text = Val(Valor1(El cual Seria un Valor como este siempre) "0057E9C0.Text) + Val(22F2D4)

pero no se donde iria el signo Hexadecimal o como iria para que me diera la respuesta Exacta Que seria 7ADC94
Pero no me da ese resultado si hago lo siguiente

Resultado1.Text = Val(0057E9C0.Text) + Val(&H22F2D4)

si hago eso entonces me saldria esto : 7002290388 el cual deberia ser 007ADC94 Me imagino que sin los dos "00"
Si me puedes volver a ayudar te lo agradeceria solo necesito saber como hacer que se haga la suma Hexadecimal quiero que me de ese valor : 7ADC94 Claro y muchos otros mas pero me imagino que si me sirve con el 1ero de alli me guiaria para el resto..
si me pueden ayudar seria muy bueno
Hasta Pronto.
PD: Te dejare un MP (PM) = Mmensaje Privado. Me imagino que sabes que es un MP.
Hasta Luego

bueno mira aca te paso un codigo haber si mas o menos vas viendo como es:

en un modulo(bas) pone esto:

Código:

Option Explicit
Public Numero As String
Public DeBase As Integer
Public tobase As Integer

Public Function HexToDec(ByVal HexStr As String) As Double
Dim mult As Double
Dim DecNum As Double
Dim ch As String
mult = 1
DecNum = 0
Dim i As Integer
For i = Len(HexStr) To 1 Step -1
ch = Mid(HexStr, i, 1)
If (ch >= "0") And (ch <= "9") Then
DecNum = DecNum + (Val(ch) * mult)
Else
If (ch >= "A") And (ch <= "F") Then
DecNum = DecNum + ((Asc(ch) - Asc("A") + 10) * mult)
Else
If (ch >= "a") And (ch <= "f") Then
DecNum = DecNum + ((Asc(ch) - Asc("a") + 10) * mult)
Else
HexToDec = 0
Exit Function
End If
End If
End If
mult = mult * 16
Next i
HexToDec = DecNum
End Function

Public Function DecToHex(ByVal DecNum As Double) As String
Dim remainder As Integer
Dim HexStr As String
HexStr = ""
Do While DecNum <> 0
remainder = DecNum Mod 16
If remainder <= 9 Then
HexStr = Chr(Asc(remainder)) & HexStr
Else
HexStr = Chr(Asc("A") + remainder - 10) & HexStr
End If
DecNum = DecNum \ 16
Loop
If HexStr = "" Then HexStr = "0"
DecToHex = HexStr
End Function

Public Function Convertir(ByVal numToConvert As Variant, ByVal DeBase As Integer, ByVal tobase As Integer) As Variant
Select Case DeBase
Case 10
If Not Verificar(Numero, "0123456789") Then
MsgBox "Decimales solo acepta del 0 al 9", vbExclamation
Exit Function
End If
Case 16
If Not Verificar(Numero, "0123456789ABCDEFabcdef") Then
MsgBox "La Base Hexadecimal sólo acepta del 0 al 9 y de las letras A a la F", vbExclamation
Exit Function
End If
End Select
If DeBase = tobase Then
Convertir = numToConvert
Exit Function
End If
Select Case DeBase
 Case 10
 Select Case tobase
 Case 16
 Convertir = DecToHex(numToConvert)
 Exit Function
 End Select
 Case 16
 Select Case tobase
 Case 10
 Convertir = HexToDec(numToConvert)
 Exit Function
 End Select
End Select
End Function

Private Function Verificar(valor As String, bag As String) As Boolean
Dim i As Integer
Verificar = True
For i = 1 To Len(valor)
If InStr(1, bag, Mid(valor, i, 1)) = 0 Then
Verificar = False
Exit Function
End If
Next i
End Function

en el formulario pone:

Código:

Private Sub Form_Load()
Numero = "22F2D4"
DeBase = 16
tobase = 10
MsgBox "El numero convertido es : " & Convertir(Numero, DeBase, tobase), vbInformation, "Bases Numeracion"
End Sub

ejecutalo y fijate que te devuelve cuanto vale ese 22F2D4 en decimal, el
codigo es entendible ,le decis un numero y despues a la base que lo queres convertir, 16 o 10...

ahora vamos a un ejemplo bien facil....vamos a sumar una A y una B de hexadecimal...la A vale 10 y la B vale 11...entonces tendria que dar 21 que en hexadecimal el 21 vale 15...el codigo seria algo asi:

Código:

Private Sub Form_Load()
Numero = "A"
DeBase = 16
tobase = 10
vNum1 = Convertir(Numero, DeBase, tobase)
Numero = "B"
DeBase = 16
tobase = 10
vNum2 = Convertir(Numero, DeBase, tobase)
Suma = vNum1 + vNum2
Numero = Suma
DeBase = 10
tobase = 16
Resultado = Convertir(Numero, DeBase, tobase)
MsgBox "La Suma es: " & Resultado, vbInformation, "Bases Numeracion"
End Sub

saludos.

Valla muy Explicito el Code..
pero aun asi no me sirve.. porque yo quiero que me de la respuesta en "Hex" osea que la respuesta sea la suma de el numero que se ponga con el otro numero que estara en el code del proyecto ejemplo

Resultado1.Text = Val(Valor1.Text) + Val(22F2D4) 'El Reultado Seria (7AC4A4) que seria lo que saldria en el textbox llamado Resultado1.

Pero el resultado que me dara sera en Decimal osea no me sirve claro si es lo que entendi de el code.. porque el code lo qe hace es Sumar 2 numeros Hex y convertirlos en un numero Decimal eso es lo que me muestra el MsgBox ..

Lo que yo deseo es simple pero no lo se hacer

Resultado1.Text = Val(Valor1.Text) + Val(22F2D4) 'El Reultado Seria (7AC4A4) Lo que debe mostrar el Resultado1 (Textbox) Pero que salga en Hex.

Claro los 2 numeros que se pondran seran "Hexcadecimales" en los 2 textbox en el Valor1 y obvio en el code el valor (22F2D4)

Osea en el TextBox Resultado1 (En este caso muchos otros) claro esos llevan otros numeros Hex
se supone que tendria que salir este valor 7AC4A4 pero no.. solo lo vuelve Decimal pero no me sirve obvio necesito que salga Hexadecimal y por mas vueltas que le doy al code no encuentro la manera de hacer eso
Si me puedes decir como seria seria perfecto

Aver paresco canson con esto pero necesito ayuda..

te lo pondre el code hare un miniproyecto aparte y pongo el code aqui para que lo descargues y si pueds lo revises

Rapidshare

Alli Esta mas explicito mas entendible aunque creo que es facil.. bueno si lo puedes bajar y ver seria mejor y si puedes lo editas y lo subes o me dices como hacerlo..
si no puedes no hay problema ya vere como le hago.. Hasta pronto Gracias de antemano
Saludos.

Hay Dios Perdona no se que paso.. aqui esta el link

http://rapidshare.com/files/14619711...lator.rar.html

Saludos.

el codigo que te puse muestra el resultado en hexadecimal y los 2 numeros que se ingresan tambien lo son...,no son en decimal... en el codigo se pasan a decimal para poder sumarlos y demas ,pero eso no importa porque el usuario ni lo ve,simplemente tenes que adaptarlo como vos queres, pupongamos que tenes los controles de tu formulario que me pasaste seria algo asi:

Código:

Private Sub Calcular_Click()
Numero = Valor1.Text 'escribis el hexadecimal que quieras
DeBase = 16
tobase = 10
vNum1 = Convertir(Numero, DeBase, tobase)
Numero = "22F2D4" 'aca pones el otro hexadecimal
DeBase = 16
tobase = 10
vNum2 = Convertir(Numero, DeBase, tobase)
Suma = vNum1 + vNum2
Numero = Suma
DeBase = 10
tobase = 16
Resultado1.Text = Convertir(Numero, DeBase, tobase) 'resultado de la suma en HEXADECIMAL
End Sub

mas facil...no se

los ceros adelante no hacen falta...los ceros adelante no valen nada..si los pones o no es lo mismo...

saludos.

DIOS MIO SANTISIMO!! SAQUE UN 20!! :O!!! FELICIDADES ERES MUY MUY BUENO DEBERIAS SER SUPER MODERADOR..
TE FELICITO MUCHISIMAS GRACIAS NO SABRIA COMO PAGARTE..!!
COMO DICE MI ABUE... "QUE DIOS TE LO PAGUE" JEJE..
WAO ME SORPRENDISTE.. PARA TI SERIA ALGO DIFICIL PERO PARA MI ES MUY MUY BUENO GRACIAS AMIGO FELICIDADES UNA VES MAS

SALUDOS.!

Buenas,
yo pienso que seria mas facil algo como:
Resultado1.Text = HEX(cdbl("&H" & Valor1.Text) + cdbl("&H22F2D4"))
Saludos.

Wao.. Ahora me queda 1 duda..
Cuales son los valores de los numeros Hex?
dime si estoy equivocado

1 = 1A = 10
2 = 2B = 11
3 = 3C = 12
4 = 4D = 13
5 = 5E = 14
6 = 6F = 15
7 = 7
8 = 8
9 = 9

Dime Si Es Asi o ando mal Porfavor gracias Eres Muy Bueno

=OOO .. Valla Sr. "Critico" eso era lo que buscaba algo facil practico mucho mejor Muchisimas Gracias es muy muy bueno esa opinion :O..!! me sorprendiste yo pensaba que era algo asi.. ejjeeje seba123neo Iso mucha cosa cuando ese code que me dijo el Sr. "Critico" Fue Perfecto :P Sea como sea muchisisimas gracias a los 2 Felicidades
Gracias
Saludos.

Hay Dios yo si molesto pero ahora hay un problema..
me toco hacer la operacion pero ahora es restando y si lo hago me sale error en tu code seba123neo me dice este MsgBox
MsgBox "Decimales solo acepta del 0 al 9", vbExclamation
no se que hacer.. y ahora es una resta..
a y en cuanto al code de
"Critico"
no me hace la resta..
Resultado1.Text = HEX(cdbl("&H" & Valor1.Text) + cdbl("&H22F2D4"))
si le pongo suma normal hace la suma perfecta pero no me sirve para resta.. dios perdonen lo canson que soy esque ando empezando y necesito ayuda..
si me puede alguno de los 2 ayudar se los volveria a agraecer :$
a si me van a decir que al modulo le cambie los signos de "+" por "-" ya lo hice y nada hay es donde sale el error ese.. tambien ise lo mismo con el code de "critico" porfavor ayudenme.. Hasta luego espero me ayuden Gracias
Saludos.

Oye Z1ru$Black el code de los dos si funciona, no tienes que cambiar nada solo que cuando vaz a realizar la resta el numero mayor tiene que estar primero y el menor en segundo por ejemplo:

aqui Seba coloco A en vNum1 y B en vNum2 pero B en Hexadecimal es mayor que A, osea ( A: 10 B: 11 ) y 10 - 11: -1.

el codigo no esta hecho para calcular un code hexadecimal negativo, esmas creo que no existe asi que deberias solo invertir los valores en este code:
Private Sub Form_Load()
Numero = "B" ' Numero Mayor Primero
DeBase = 16
tobase = 10
vNum1 = Convertir(Numero, DeBase, tobase)
Numero = "A" ' Numero Menor en segundo
DeBase = 16
tobase = 10
vNum2 = Convertir(Numero, DeBase, tobase)
Suma = vNum1 + vNum2
Numero = Suma
DeBase = 10
tobase = 16
Resultado = Convertir(Numero, DeBase, tobase)
MsgBox "La Suma es: " & Resultado, vbInformation, "Bases Numeracion"
End Suby asi da 1 espero haberte ayudado xD! saludos

ups se me olvido una cosa en esta parte tambien cambia el signo para poder restar
Suma = vNum1 - vNum2

Claro descpues tu acomodas las variables y todo eso, y con respecto al code de "Critico" tambien se puede :

Resultado1.Text = HEX(cdbl("Valor Mayor") - cdbl("Valor Menor"))

Ahora si Saludos xD!

:O!... Sorprendente la ayuda de este foro :O.!!
muchas gracias nike42 Muy perfecto ..!!
MUCHISIMAS GRACIAS A TODOS .. AHORA SI A TERMIARLO.. ^^,
GRACIAS AMIGO'S :$..
Hasta Pronto doy este tema como concluido Felicidades de veras Repito xD Gracias..

Para eso estamos todos para ayudarnos jejeje xD!

Saludos, veo que ya has resuelto tu problema, sin embargo quisiera acotar algo a la representación de número negativos.

En hexadecimal natural, un número negativo se debe representar de la misma forma que en decimal, con un "-" adelante.
Sin embargo, cuando hablamos de computadores, se requiere una convención especial para representar números negativos en binario (y por ende su representación en hexadecimal), en dicha convención se utiliza el bit más significativo (el de más a la izquierda) para representar el signo (0 para positivo y 1 para negativo), si el número es negativo, el valor absoluto se codifica en complemento a 2.

de esta forma el valor -1 en 16 bit será FFFF y el -1 en 32 bit será FFFFFFFF Por desgracia al trabajar con la función HEX esta nos devuelve la representación negativa en 16 bit, de ahí que no te funcione restar un valor mayor a uno menor.

interesante entonces por eso es que no da negativo, buena aclaracion garfield gracias. Saludos

una solución es que antes de convertir a hexadecimal revises el signo y utilices el valor absoluto.

por ejemplo:

Código:

Resultado = Val("&H" & Text1) - Val("&H" & Text2)
If Resultado < 0 Then
 Text3 = "-" & Hex(Abs(Resultado))
Else
 Text3 = Hex(Resultado)
End If

Iniciado por Critico

Buenas,
yo pienso que seria mas facil algo como:
Resultado1.Text = HEX(cdbl("&H" & Valor1.Text) + cdbl("&H22F2D4"))
Saludos.

fácil y sencillo muy bien