Visual Basic - Funcion Contraria a Hex

Life is soft - evento anual de software empresarial
 
Vista:

Funcion Contraria a Hex

Publicado por Juan Tzunun (10 intervenciones) el 24/08/2004 01:21:20
Hola a todos,
Alguien me puede decir como puedo convertir un valor hex a long o integer, por ejemplo
hex(255)=FF
cualquierfuncion("FF")=255

Gracias de antemano.
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:Funcion Contraria a Hex

Publicado por Skrank (99 intervenciones) el 24/08/2004 02:39:42
Hola que tal.
El código del ejemplo tiene el defecto de tener muchas variables pero funciona.

Option Explicit
Dim i As Integer
Dim DaTo1 As String
Dim DaTo2 As Integer
Dim Todo As Long

Private Sub Command2_Click()
Todo = 0
For i = 1 To Len(Text1)
DaTo1 = Mid(Text1, i, 1)
DaTo1 = UCase(DaTo1)
If Asc(DaTo1) > 70 And Asc(DaTo1) < 92 Then
MsgBox ("Este Valor No Vale")
Exit Sub
End If
If Asc(DaTo1) > 64 And Asc(DaTo1) < 71 Then
DaTo2 = Asc(DaTo1) - 55
Else
DaTo2 = CInt(DaTo1)
End If
Call TodaLaSuma(DaTo2)
Next
MsgBox (Todo)
End Sub

Public Sub TodaLaSuma(DaTo As Integer)
Todo = Todo + DaTo * (16) ^ (Len(Text1) - i)
End Sub
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:Funcion Contraria a Hex

Publicado por Dante (72 intervenciones) el 24/08/2004 03:29:16
Es muy sencillo
Sólo tienes que concatenar la expresión en hexa con "&H" y luego le aplicas la función val
Por ejemplo: si el valor hexa es 1A y está en una variable o textbox llamado valorh, haces

x="&H" & valorh
y luego n= val(x)

m = Val("&h" & "1a")
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:Funcion Contraria a Hex

Publicado por Cristian (108 intervenciones) el 24/08/2004 04:19:42
Hola
Muchas gracias Dante aunque la pregunta no la hice yo pero esto es algo que yo no sabia que se podia hacer tan facil.
Lo probe y funciono bien
Saludos
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:Funcion Contraria a Hex

Publicado por Juan Tzunun (10 intervenciones) el 24/08/2004 22:35:07
Gracias Dante si que me funciono. y a ti Skrank tambien gracias por contestar mi pregunta

muy Agradecido.
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