Hi Leute,
ich schreib morgen eine Info-Prüfung und wollte mal ein kleines Programm zur Zahlenumwandlung schreiben. Habs schonmal hinbekommen vor einiger Zeit...
Kann jemand einen Fehler erkennen? Auf jeden Fall läuft etwas beim aufsummieren der einzelnen Ziffern falsch.
Danke im Vorraus.
Option Explicit
Sub HextoDec()
Dim Hex As Integer
Dim i As Integer
Dim Teilwert As Double
Dim Restwert As Integer
Dim Ziffer As String
Dim Ergebnis As String
Hex = InputBox("Hexadezimalzahl")
Do Until Teilwert = 0
Teilwert = Hex \ 16
Restwert = Hex Mod 16
If Restwert <= 9 Then
Ziffer = Restwert
ElseIf Restwert >= 10 And Restwert <= 15 Then
Ziffer = Chr("A") - 55
End If
Ziffer = Ergebnis
Ergebnis = & Ergebnis
Hex = Teilwert
Loop
MsgBox "Die Hexadezimalzahl lautet: " & Ergebnis
End Sub
|