ich sehe gerade der code oben ist falsch ... der dürfte nur in der ersten Zeile etwas ausgeben

Die Bitfolgen müssten für ein A so aussehen:
00000001 00111111
00000010 01001000
00000011 01001000
00000100 01001000
00000101 00111111
Ich habe den Code versehentlich aus einer älteren Datei kopiert.


Ich habe mir inzwischen den Code zu dem Zeichensatz nochmal anschauen können. Total verstehen kann ich ihn noch nicht,aber er funktioniert.

Warum die Zeilen
Bz = Ez - 32
Beginn_zeichen = Bz * 6
Ende_zeichen = Beginn_zeichen + 5

So könnt ich das Zeichensatzproblem zumindestens lösen

Code:
Dim A As Word , B As Word
Dim Beginn_zeichen As Word , Ende_zeichen As Word , Db_zeiger As Word
Dim Bz As Word
Dim Tl As Byte
Dim Ez As Byte
Dim Dat(1530) As Byte
Dim Ze(8) As Byte
Dim Text As String * 255
Dim Einzelzeichen As String * 1

Text = "TA"                                                 'max. 255 Zeichen

Tl = Len(text)
B = 1

For A = 1 To Tl
 Einzelzeichen = Mid(text , A , 1)
 Ez = Asc(einzelzeichen)
 Bz = Ez - 32
 Beginn_zeichen = Bz * 6
 Ende_zeichen = Beginn_zeichen + 5
 For Db_zeiger = Beginn_zeichen To Ende_zeichen
  Dat(b) = Lookup(db_zeiger , Zeichensatz)
  Print Dat(b)
  Dat(b) = 255 - Dat(b)
  Incr B
 Next Db_zeiger
Next A

End

Zeichensatz:
Data 0 , 126 , 9 , 9 , 9 , 126                              'A
Data 0 , 127 , 73 , 73 , 73 , 54                            'B
Data 0 , 62 , 65 , 65 , 65 , 34                             'C