✔ Umwandeln von Dezimalzahlen in Zahlensysteme bis hexadezimal

[red-death]

Ich hab ein Problem. Ich muss ein Programm zur Zahlenkonversion schreiben wobei die Verarbeitung durch ein String erfolgen soll. Die Rechnung soll nach dem Resteverfahren durchgeführt werden. Mein Problem ist nur wie kann ich ein Ergebniss wie z.B.: 5 Rest 1 ausrechnen?

 

[Shakie]

RestwertEinerDivision = Zahl Mod Andere_Zahl

Beispiel: 7 Mod 2 ergibt 1.

Zum Umrechnen von Dezimal- nach Oktal- und Hexadezimalsystem (und umgekehrt) gibt es aber bereits fertige VB-Funktionen!

 

[red-death]

Danke! Ja ich weis dass es dafür funktionen gibt, aber die darf ich nicht verwenden

 

[red-death]

WIe komm ich dann auf die Zahl mit der ich weiterrechnen muss?

so als Beispiel

7 : 2 -> gibt: 3 Rest 1
3 : 2 -> gibt: 1 Rest 1
1:1 -> gibt: 0 Rest 1

also isch 7 ind Dual : 111

und ich mein da grad die 3 oder die 1

 

[Orakel]

Hi readdeath,

ich würde mal sagen durch das Anwenden von Mathematik.

Private Sub Form_Click()
    Dim nZahl               As Integer
    Dim szResult            As String

    nZahl = 7
    While nZahl > 1
        szResult = CStr(nZahl Mod 2) & szResult
        nZahl = (nZahl - (nZahl Mod 2)) / 2  ' Und hier steckt die Mathematik
    Wend
    szResult = CStr(nZahl) & szResult
    MsgBox szResult
End Sub

Gruß
Das Orakel

 

[red-death]

Ok danke .. isch ja logisch