neues Byte aus Byte-Array erstellen

[BoondockDuck]

 Dim Ausgabe As String * 8
 Ausgabe = "1634HELP"

 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(56) As Byte
 Dim Einzelzeichen As String * 1

 Tl = Len(ausgabe)

 Dim A As Byte , B As Byte
 B = 1

 For A = 1 To Tl
  Einzelzeichen = Mid(ausgabe , A , 1)
  Ez = Asc(einzelzeichen)

  Bz = Ez - 32

  Beginn_zeichen = Bz * 7
  Ende_zeichen = Beginn_zeichen + 6

  For Db_zeiger = Beginn_zeichen To Ende_zeichen
   Dat(b) = Lookup(db_zeiger , Zeichensatz)
   Print Dat(b)
   Incr B
  Next Db_zeiger
 Next A

Zeichensatz:                                                'Segment A,B,C,D,E,F,G - sortiert nach ASCII
Data 0 , 0 , 0 , 0 , 0 , 0 , 0                              'SPACE DEC32
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 1                              '-     DEC45
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 1 , 1 , 1 , 1 , 1 , 1 , 0                              '0     DEC48
Data 0 , 1 , 1 , 0 , 0 , 0 , 0                              '1     DEC49
Data 1 , 1 , 0 , 1 , 1 , 0 , 1                              '2     DEC50
Data 1 , 1 , 1 , 1 , 0 , 0 , 1                              '3     DEC51
Data 0 , 1 , 1 , 0 , 0 , 1 , 1                              '4     DEC52
Data 1 , 0 , 1 , 1 , 0 , 1 , 1                              '5     DEC53
Data 1 , 0 , 1 , 1 , 1 , 1 , 1                              '6     DEC54
Data 1 , 1 , 1 , 0 , 0 , 0 , 0                              '7     DEC55
Data 1 , 1 , 1 , 1 , 1 , 1 , 1                              '8     DEC56
Data 1 , 1 , 1 , 0 , 0 , 1 , 1,                             '9     DEC57
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 1 , 0 , 0 , 1 , 1 , 1 , 1                              'E     DEC69
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 1 , 1 , 0 , 1 , 1 , 1                              'H     DEC72
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 1 , 1 , 1 , 0                              'L     DEC76
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 1 , 1 , 0 , 0 , 1 , 1 , 1                              'P     DEC80
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 1 , 0 , 0 , 0                              '_     DEC95

Hi
der Code gibt mir aus einer Datenbank abhängig vom String "Ausgabe" korrekt Daten aus "Zeichensatz" aus. (Im Zeichensatz sind so viele "leere Zeilen" weil die Position momentan noch abhängig von der ASCII-Nummer des Zeichens ist. Ich benötige aber eigentlich nur 17 Zeichen... im Moment funktioniert es so aber auch)
Die Bits aus Zeichensatz werdem im Array dat(n) als Byte gespeichert (bit-array geht ja anscheinend nicht??).

d.h. ich habe 56 Byte die die Werte 0 oder 1 annehmen.

Diese 56 Byte sollen (als Bit) in 7 Byte geteilt werden und zwar so:

Byte1: dat(1) , dat(8)  , dat(15) , dat(22) , dat(29) , dat(36) , dat(43) , dat(50)
Byte2: dat(2) , dat(9)  , dat(16) , dat(23) , dat(30) , dat(37) , dat(44) , dat(51)
Byte3: dat(3) , dat(10) , dat(17) , dat(24) , dat(31) , dat(38) , dat(45) , dat(52)
Byte4: dat(4) , dat(11) , dat(18) , dat(25) , dat(32) , dat(39) , dat(46) , dat(53)
Byte5: dat(5) , dat(12) , dat(19) , dat(26) , dat(33) , dat(40) , dat(47) , dat(54)
Byte6: dat(6) , dat(13) , dat(20) , dat(27) , dat(34) , dat(41) , dat(48) , dat(55)
Byte7: dat(7) , dat(14) , dat(21) , dat(28) , dat(35) , dat(42) , dat(49) , dat(56)

Ich weiß nur nicht wie ich das machen soll.
Gibts irgendwo ein Tutorial dass einem die Basics am Arbeiten mit Variabeln erklärt? Also Was es für welche gibt ist klar, aber so Sachen wie Variabelntypen umwandeln, verschiedene Variabeln zusammenfügen etc. Ich habe da nichts gefunden was mir weiterhilft.

Gruß