Guten Abend,
ich möchte mit Bascom eine Zahl (z.B. 3130) zur Basis 4 umwandeln ins Dezimalsystem (= 220).
Mit der folgenden Funktion klappt das auch; sie erscheint mir aber sehr umständlich. Vielleicht gibt es einen besseren, einfacheren Weg.
Danke für Eure Hilfe.
Paul
ich möchte mit Bascom eine Zahl (z.B. 3130) zur Basis 4 umwandeln ins Dezimalsystem (= 220).
Mit der folgenden Funktion klappt das auch; sie erscheint mir aber sehr umständlich. Vielleicht gibt es einen besseren, einfacheren Weg.
Code:
Function B4_to_bin(z1 As Byte , Z2 As Byte) As Byte
Dim B As Byte , T As Byte
Dim St1 As String * 1 , St2 As String * 1 , St3 As String * 1 , St4 As String * 1
S = Str(z1) + Str(z2)
St1 = Mid(s , 4 , 1)
St2 = Mid(s , 3 , 1)
St3 = Mid(s , 2 , 1)
St4 = Mid(s , 1 , 1)
B = Val(st4) * 64
T = B
B = Val(st3) * 16
T = T + B
B = Val(st2) * 4
T = T + B
B = Val(st1) * 1
T = T + B
B4_to_bin = T
End Function
Danke für Eure Hilfe.
Paul