|
Zamiana liczby z systemu szesnastkowego na dziesietny (autor: budda) |
|
|
|
Napisał Administrator
|
|
niedziela, 12 luty 2006 |
|
Zamiana liczby szesnastkowej na dzisietna
'Made in Poland 2004 by budda, budda (malpa) toxic.neostrada.pl
Private Function HexToDec(LiczbaHex As String) 'ZOBACZ ODNO�NIK 2
Dim PierwszaCzesc As String, DrugaCzesc As String
Dim PierwszaLiczba As Long, DrugaLiczba As Long
PierwszaCzesc = Mid(LiczbaHex, 1, 1)
DrugaCzesc = Mid(LiczbaHex, 2, 1)
Select Case PierwszaCzesc
Case "A"
PierwszaLiczba = 10
Case "B"
PierwszaLiczba = 11
Case "C"
PierwszaLiczba = 12
Case "D"
PierwszaLiczba = 13
Case "E"
PierwszaLiczba = 14
Case "F"
PierwszaLiczba = 15
Case Else
PierwszaLiczba = CLng(PierwszaCzesc)
End Select
Select Case DrugaCzesc
Case "A"
DrugaLiczba = 10
Case "B"
DrugaLiczba = 11
Case "C"
DrugaLiczba = 12
Case "D"
DrugaLiczba = 13
Case "E"
DrugaLiczba = 14
Case "F"
DrugaLiczba = 15
Case Else
DrugaLiczba = CLng(DrugaCzesc)
End Select
HexToDec = (PierwszaLiczba * 16) + DrugaLiczba
End Function
'-------------------
'Ponieważ nie znalazłem w VB funkcji zamieniajšcej liczbę w systemie
'szesnastkowym na liczbę w systemie dziesiętnym, sam napisałem takš funkcję
'w najprostszy sposób, jaki przyszedł mi do głowy. W każdym razie, działa.
|
zrobi?bym to nieco inaczej
Dodane przez marcinelectro w dniu - 2008-02-12 08:06:26
u?y?bym najpierw funkcji:
Code:
len
,
aby określi? d?ugoś? liczby do konwersji, nast?pnie twój program zmodyfikowa?bym nieco i umieści? w p?tli Code:
for
coś w stylu:
Code:
Dim licznik as integer
for licznik = 1 to len(LiczbaHex)
next
Wtedy Twoja funkcja by?aby zdecydowanie bardziej uniwersalna. |
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
