Für alle die genau so stolz sind wie ich, wenn sie es enlich geschafft haben eine Funktion in VBL zum Laufen zu bringen, pack ich hier mal meinen Umrechner rein.
Da wäre einmal der Umrechner für Dezimalzahlen ins Dualsystem:
Option Explicit
Function dezimal_dual(dezimal As String) As String
Dim rest As String
Dim dual As String
If Not IsNumeric(dezimal) Then
MsgBox (“Sie haben einen Text eingegeben! Bitte geben Sie eine Zahl ein”)
Else
Do Until dezimal = 0
rest = dezimal Mod 2
If rest = 1 Then
dezimal = (dezimal – 1) / 2
Else
dezimal = dezimal / 2
End If
dual = rest & dual
Loop
End If
dezimal_dual = dual
End Function
Und einmal der Umrechner von dual in dezimal:
Option Explicit
Function dual_dezimal(dual As String) As Integer
If Not IsNumeric(dual) Then
MsgBox (“Sie haben einen Text eingegeben! Bitte geben sie eine Zahl ein!”)
Else
Dim y As Integer
Dim i As Integer
Dim z As Integer
Dim x As String
Dim summe As Integer
Dim dezimal As Integer
y = Len(dual)
i = 1
z = Len(dual) – 1
Do Until y = 1
x = Mid(dual, i, 1)
summe = x * (2 ^ z)
z = z – 1
y = y – 1
i = i + 1
dezimal = summe + dezimal
Loop
End If
dual_dezimal = dezimal
End Function
Kommentare warum das so ist wie es ist folgen vielleicht später noch. Aber ehr nicht! Für die dies interessiert und nicht wissen warum ich das so gebastelt hab: Nachfragen!
