Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Function Zahlensys(Basis1 As Byte, Basis2 As Byte, Zahl1 As String) As String
Dim Num As Long
'Zahl1 -> Dezimal
For X = Len(Zahl1) To 1 Step -1
Select Case Mid$(Zahl1, X, 1)
Case Chr$(48) To Chr$(57)
Num = Num + (Basis1 ^ (Len(Zahl1) - X)) * Val(Mid$(Zahl1, X, 1))
Case Chr$(65) To Chr$(89)
Num = Num + (Basis1 ^ (Len(Zahl1) - X)) * (Asc(Mid$(Zahl1, X, 1)) - 54)
End Select
Next X
'Dezimal -> Basis2
'Bestimmung der Stellenanzahl des Ergebnises
Dim N As Integer
N = 0
Do
N = N + 1
If Num / (Basis2 ^ N) < 1 Then Exit Do
Loop
'Berechnung des Ergebnisses
Dim E As String
E = ""
For X = N To 1 Step -1
E = E + Ziffer(Fix(Num / (Basis2 ^ (X - 1))))
Num = Num - (Fix(Num / (Basis2 ^ (X - 1)))) * (Basis2 ^ (X - 1))
Next X
Zahlensys = E
End Function
Function Ziffer(Nr As Integer) As String
If Nr < 10 Then
Ziffer = Trim$(Str$(Nr))
Else
Ziffer = Chr$(Nr + 55)
End If
End Function
Public Function byte2okt(vv)
Dim b1, b2, b3
b1 = vv And &H7
b2 = (vv And &H38) / 8
b3 = (vv And &HC0) / &H40
byte2okt = Trim(Str(b3)) + Trim(Str(b2)) + Trim(Str(b1))
End Function
For i = 0 To 255
Print #1, Format(i, "000"), Format(Trim(Hex(i)), "00"), byte2okt(i)
Next i