HEX-Funktion in Visual Basic?

HEX-Funktion in Visual Basic?

Impressum | Werbung

Geizhals » Forum » Programmierung »

HEX-Funktion in Visual Basic? (7 Beiträge, 20 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Im Visual Basic gibt es eine Funktion in der man Dezimalzahlen zu HEX-Zahlen konvertieren kann, aber es gibt leider nichts umgekehrtes???

Ich will eine Hex in eine Dezimalzahl konvertieren -> Lt. Google, Hilfe in VB nix gefunden???

lg
kamikaZe

sigkilled v1.0 (Sun Aug 25 12:28:33 2002): http://www.gamecubes.at/PICs/GCstartani.gif had 30265 bytes)

http://www.itrain.de/internet/knowhow/scripting/client/hexrechner.asp

Ciao,
M.A. Morpheus
"Amicus certus in re incerta cernitur"
ICQ: 24551752

vergiß es wieder!

Ciao,
M.A. Morpheus
"Amicus certus in re incerta cernitur"
ICQ: 24551752

ich finde auch nix. würde es deshalb selber schreiben.
ist wahrscheinlich eh nur ein dreizeiler.

Ist wahrscheinlich besser/schneller so!

Trotzdem danke.

lg
kamikaZe

sigkilled v1.0 (Sun Aug 25 12:28:33 2002): http://www.gamecubes.at/PICs/GCstartani.gif had 30265 bytes)

hi,

nur als anregung für alle (besonders die selberschreiber *g*):

val("&hff")

geht natürlich auch anders:

val("&h" & irgendeinestringvariablemithexstring )

was m$ alles zusammenbringt!

Willst du (wollt Ihr) den Code haben - mit 3 Zeilen ist es sich zwar nicht ausgegangen, aber funktionieren tuts trotzdem:

Private Sub dez_LostFocus()

    Erg = ""
    azahl = hex2dez.dez

    Do
        a = Int(azahl / 16)
        b = azahl - (a * 16)
        azahl = a

        Select Case b
        Case 0
            c = 0
        Case 1
            c = 1
        Case 2
            c = 2
        Case 3
            c = 3
        Case 4
            c = 4
        Case 5
            c = 5
        Case 6
            c = 6
        Case 7
            c = 7
        Case 8
            c = 8
        Case 9
            c = 9
        Case 10
            c = "A"
        Case 11
            c = "B"
        Case 12
            c = "C"
        Case 13
            c = "D"
        Case 14
            c = "E"
        Case 15
            c = "F"
        End Select

        Erg = c & Erg
    Loop Until a = 0

    hex2dez.hex = Erg
End Sub

Private Sub hex_LostFocus()

    azahl = hex2dez.hex
    Erg = 0
    l = Len(azahl)

    For i = 1 To l
        a = Mid(azahl, i, 1)
        Select Case a
            Case 0
                c = 0
            Case 1
                c = 1
            Case 2
                c = 2
            Case 3
                c = 3
            Case 4
                c = 4
            Case 5
                c = 5
            Case 6
                c = 6
            Case 7
                c = 7
            Case 8
                c = 8
            Case 9
                c = 9
            Case "A"
                c = 10
            Case "B"
                c = 11
            Case "C"
                c = 12
            Case "D"
                c = 13
            Case "E"
                c = 14
            Case "F"
                c = 15
            Case "a"
                c = 10
            Case "b"
                c = 11
            Case "c"
                c = 12
            Case "d"
                c = 13
            Case "e"
                c = 14
            Case "f"
                c = 15
        End Select
        b = c * (16 ^ (l - i))
        Erg = Erg + b
    Next i

    hex2dez.dez = Erg
End Sub

(sigkilled v1.1 (Thu Sep 5 17:24:00 2002): image http://www.gamecubes.at/PICs/GCstartani.gif not accessible)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung