ich brauche sowas wie ein bit array

[PicNick]

Is nicht das schnellste, sowas schreit eigentlich nach assembler

dim byte_array(200) as byte    ' reicht für 1600 bit
dim arr_index as word
dim bit_pos as byte
dim counter as word

' alle Bit setzen  (zum Beispiel) 

  for counter = 0 to 1599   ' 200 * 8 -> 1600 Bit , also 0 - 1599

     arr_index = counter / 8       ' 
     arr_index = arr_index + 1   ' Bascom fängt tabellen mit 1 an 
     bit_pos = counter AND &H0F   ' 
     byte_array(arr_index).bit_pos  = 1      ' ein Bit setzen 
  next