Re: Daten einlesen und Buchstaben bilden...
Verfasst: 02.10.2014 08:52
Vielleicht soll das ein ( Braille<->ASCII / gif <-> txt )-Konverter werden.
Den 64-Bit--Einlese-Teil lasse ich mal weg (Array beliebig vergrößerbar):
Code: Alles auswählen
OpenConsole()
Define Zeile$ = " F3 24 24 E3 24 24 F3 "
Define g_qbyte.q=$00F32424E32424F3 ;das ist ein "B"
Define byte.a, i, Zeichen$, bits$,k
Dim gArray.q(10)
gArray.q(1)=$0060101464078407
gArray.q(2)=$F7F7F7F7F7F7F7F7
gArray.q(3)=$0024342222710180
gArray.q(4)=$0074847282710180
gArray.q(5)=$00F4147282710180
gArray.q(6)=$00F4844222110180
gArray.q(7)=$00C021C000000000
gArray.q(8)=$00008080F78080F7
For k = 1 To 8
g_qbyte.q = gArray.q(k)
g_qbyte.q = ((g_qbyte.q >> 1) & $55555555555555) | ((g_qbyte.q << 1) & $aaaaaaaaaaaaaa);Spiegeln!!
g_qbyte.q = ((g_qbyte.q >> 2) & $33333333333333) | ((g_qbyte.q << 2) & $cccccccccccccc);
Zeichen$=RSet(Bin(g_qbyte.q ),64,"0");
bits$ = ReplaceString(Zeichen$, "0", " ") ; Nullen ersetzen
bits$ = ReplaceString(bits$, "1", "#");PrintN(Zeichen$)
For i = 0 To 7
PrintN(Mid(bits$,i*8+1,8)) ; Bitmuster zeigen
Next i
Next k
Input()