---

Hejsa folkens..

Kan nogen fortælle mig om der findes en modsætning i vb til Hex()
funktionen. Jeg har en række tal som hexadecimal, og kunne godt tænke mig at
få dem lavet om til good old 10-talssystem tal Hex() gør det
tilsyneladende kun den anden vej. Er der en indbygget funktion? eller skal
jeg undersøge formlen for konvertering mellem to talsystemer?


- Sune

---

Ja. Val() :)

Hvis du sætter "&h" foran tallet blivet det betragtet som Hex Tal. Så
Val("&h"& lHexVal) giver resultat'et i decimal..
<Sune@lithium.dk> wrote in message
news:3b7d1119$0$9446$4d4eb98e@news.dk.uu.net...
> Hejsa folkens..
>
> Kan nogen fortælle mig om der findes en modsætning i vb til Hex()
> funktionen. Jeg har en række tal som hexadecimal, og kunne godt tænke mig
at
> få dem lavet om til good old 10-talssystem tal Hex() gør det
> tilsyneladende kun den anden vej. Er der en indbygget funktion? eller skal
> jeg undersøge formlen for konvertering mellem to talsystemer?
>
>
> - Sune
>
>

---

Som det har været diskuteret tidligere i gruppen skal man være varsom med et
bruge Val til at løse problemet.

Prøv følgende:
Private Sub Command1_Click()

Print Val("&H" & Hex(40000))

End Sub

Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi Val
tager 2-kompliment til tallet.
Hvis du er sikker på at dine hex-værdier er under 32767 (integer) er
ovenstående ikke noget problem, hvis dine værdier overstiger 32767, skal du
lave en funktion selv.

Under sidste diskussion kom der flere virkelige elegante forslag.

MVH Carsten

"Rayman" <rayman_dk@email.com> skrev i en meddelelse
news:5Taf7.160$XT1.8077@news.get2net.dk...
> Ja. Val() :)
>
> Hvis du sætter "&h" foran tallet blivet det betragtet som Hex Tal. Så
> Val("&h"& lHexVal) giver resultat'et i decimal..
> <Sune@lithium.dk> wrote in message
> news:3b7d1119$0$9446$4d4eb98e@news.dk.uu.net...
> > Hejsa folkens..
> >
> > Kan nogen fortælle mig om der findes en modsætning i vb til Hex()
> > funktionen. Jeg har en række tal som hexadecimal, og kunne godt tænke
mig
> at
> > få dem lavet om til good old 10-talssystem tal Hex() gør det
> > tilsyneladende kun den anden vej. Er der en indbygget funktion? eller
skal
> > jeg undersøge formlen for konvertering mellem to talsystemer?
> >
> >
> > - Sune
> >
> >
>
>

---

Carsten Jessen skrev:
> Som det har været diskuteret tidligere i gruppen skal man være varsom med
et
> bruge Val til at løse problemet.
>
> Prøv følgende:
> Private Sub Command1_Click()
>
> Print Val("&H" & Hex(40000))
>
> End Sub
>
> Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi Val
> tager 2-kompliment til tallet.
> Hvis du er sikker på at dine hex-værdier er under 32767 (integer) er
> ovenstående ikke noget problem, hvis dine værdier overstiger 32767, skal
du
> lave en funktion selv.
>
> Under sidste diskussion kom der flere virkelige elegante forslag.

F.eks. det her...

Debug.Print CLng("&H" & Hex$(40000))

Her er området: -2.147.483.648 til 2.147.483.647

Elegant ikke?

- Bjarke Walling Petersen

---

Det må siges at være rimeligt elegant

MVH Carsten

"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:9ljk2l$1p0r$2@news.cybercity.dk...
> Carsten Jessen skrev:
> > Som det har været diskuteret tidligere i gruppen skal man være varsom
med
> et
> > bruge Val til at løse problemet.
> >
> > Prøv følgende:
> > Private Sub Command1_Click()
> >
> > Print Val("&H" & Hex(40000))
> >
> > End Sub
> >
> > Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi
Val
> > tager 2-kompliment til tallet.
> > Hvis du er sikker på at dine hex-værdier er under 32767 (integer) er
> > ovenstående ikke noget problem, hvis dine værdier overstiger 32767, skal
> du
> > lave en funktion selv.
> >
> > Under sidste diskussion kom der flere virkelige elegante forslag.
>
> F.eks. det her...
>
> Debug.Print CLng("&H" & Hex$(40000))
>
> Her er området: -2.147.483.648 til 2.147.483.647
>
> Elegant ikke?
>
> - Bjarke Walling Petersen
>
>

---

Det spiller 100 procent

Tak for hjælpen.

- Sune

"Bjarke Walling Petersen" <bwp@bwp.dk> wrote in message
news:9ljk2l$1p0r$2@news.cybercity.dk...
> Carsten Jessen skrev:
> > Som det har været diskuteret tidligere i gruppen skal man være varsom
med
> et
> > bruge Val til at løse problemet.
> >
> > Prøv følgende:
> > Private Sub Command1_Click()
> >
> > Print Val("&H" & Hex(40000))
> >
> > End Sub
> >
> > Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi
Val
> > tager 2-kompliment til tallet.
> > Hvis du er sikker på at dine hex-værdier er under 32767 (integer) er
> > ovenstående ikke noget problem, hvis dine værdier overstiger 32767, skal
> du
> > lave en funktion selv.
> >
> > Under sidste diskussion kom der flere virkelige elegante forslag.
>
> F.eks. det her...
>
> Debug.Print CLng("&H" & Hex$(40000))
>
> Her er området: -2.147.483.648 til 2.147.483.647
>
> Elegant ikke?
>
> - Bjarke Walling Petersen
>
>

---

Bjarke Walling Petersen skrev:
> Debug.Print CLng("&H" & Hex$(40000))
>
> Her er området: -2.147.483.648 til 2.147.483.647
>
> Elegant ikke?

Nemligså!

Og hvis man ønsker at flytte området til i stedet at dække 0 til
4.294.967.295, kan man bruge følgende:

Function Hex2Dec(ByVal sHex As String) As Double
Dim Resultat As Long
Resultat = CLng("&H" & sHex)
If Resultat >= 0 Then
Hex2Dec = Resultat
Else
Hex2Dec = 2 ^ 31 + (Resultat And &H7FFFFFFF)
End If
End Function

-------
Tomas

---

"Carsten Jessen" <c.je@get2net.dk> wrote in message
news:3b7d480f$0$31244$ba624c82@nntp01.dk.telia.net...
> Som det har været diskuteret tidligere i gruppen skal man være varsom
med et
> bruge Val til at løse problemet.
>
> Prøv følgende:
> Private Sub Command1_Click()
>
> Print Val("&H" & Hex(40000))
>
> End Sub
>
> Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi
Val
> tager 2-kompliment til tallet.

Du mener vel at den omsætter integer med fortegn, det er heller ikke en
kompliment at rette på nogen.
2-komplement er at med forten negere og trække 1 fra resultatet.

---

Jeg skal sige jeg ikke er helt på hjemmebane, men 2-komplement er ifølge det
jeg har fået forklaret: at "vende op og ned" på hex-tallet (0 -> F, 1 -> E
osv.), bagefter trække 1 fra og til sidst sætte et minus på tallet, dvs.

Hex(40000) = 9C40 bliver til 63BF
minus 1 --------------------> 63C0 --> Val("&H63C0") = 25536
nyt fortegn -----------------> -25536 præcis som Val fik.

Det kan godt være dette ikke er 2-komplement, men det er det Val gør

MVH Carsten



"cr" <a@b.dk> skrev i en meddelelse news:9ljl98$pdc$1@sunsite.dk...
>
> "Carsten Jessen" <c.je@get2net.dk> wrote in message
> news:3b7d480f$0$31244$ba624c82@nntp01.dk.telia.net...
> > Som det har været diskuteret tidligere i gruppen skal man være varsom
> med et
> > bruge Val til at løse problemet.
> >
> > Prøv følgende:
> > Private Sub Command1_Click()
> >
> > Print Val("&H" & Hex(40000))
> >
> > End Sub
> >
> > Hovsa. Dette regnestykke burde give 40000, men det giver -25536 fordi
> Val
> > tager 2-kompliment til tallet.
>
> Du mener vel at den omsætter integer med fortegn, det er heller ikke en
> kompliment at rette på nogen.
> 2-komplement er at med forten negere og trække 1 fra resultatet.
>
>
>
>