AW: Bekomme echt zuviel *grrrr*
10.04.2004 13:50:36
Conny
Hallo Christoph, ich hatte schonmal was sehr ähnliches, das geht auch soweit, aber da kann ich dann nicht bestimmen wo es ausgegeben werden soll, hier nochmal das Program.
Public
Function BIN_ZERLEGEN(WERT As String, SYSTEM As String, AUSGABE_BEREICH As Object)
SYSTEM = UCase(SYSTEM) ' Gross Buchstaben
Dim BIT_Wert(20) As Integer ' (0, 1)
Dim Wert_now As String ' Zwischenergebnisse
Wert_now = 0
Wert_now = WANDELN(WERT, False, SYSTEM, "BIN") 'liefert Binärwert als Zeichenkette
For i = 1 To Len(Wert_now)
j = Len(Wert_now) - i
BIT_Wert(j) = Mid(Wert_now, i, 1)
Next i
AUSGABE_BEREICH = BIT_Wert() 'das Datenfeld soll in den AUSGABE_BEREICH
'geschrieben werden, aber hier fliege ich
'immer aus der Function
BIN_ZERLEGEN = WERT
End Function
===========================================================================
Bei WERT gebe ich eine Zahl als Zeichenkette ein
SYSTEM ist das verwendete Zahlensystem des WERTs
AUSGABE_BEREICH soll einen Bereich angeben wo die Bitwerte der Binärzahl stehen sollen(jede Zelle einer), die Bitwerte stehen im Feld BIT_Werte(20)
WANDELN wandelt nur einen WERT aus einem beliebigen Zahlen- SYSTEM in ein beliebiges anderes, hier in "BIN" Binär