Hallo,
Ich bin inzwischen soweit:
Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

Dim B As Integer , Count As Byte
Dim A1 As Byte
Dim A2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim C5 As Byte
Dim C6 As Byte


Config Porta = Output
Config Portc = Output

Gnd1 Alias Portc.2
Gnd2 Alias Portc.1
Gnd3 Alias Portc.0

'ebene: 0 ist an
'led: 1 ist an
Porta = 0
Gnd1 = 1
Gnd2 = 1
Gnd3 = 1



Restore Daten                                               'Datenzeiger auf das erste Tabellenbyte



Do


Read A1
Read A2
Read B3
Read B4
Read C5
Read C6
Read B


For Count = 0 To B


Porta = &B00000000
Portc = &B00000111


Porta = A1

Portc = A2

Gnd1 = 0
Gnd2 = 1
Gnd3 = 1
Waitms 1
Porta = &B00000000
Portc = &B00000111

Porta = B3

Portc = B4

Gnd1 = 1
Gnd2 = 0
Gnd3 = 1
Waitms 1
Porta = &B00000000
Portc = &B00000111


Porta = C5

Portc = C6                                                  ' die erste Spalte

Gnd1 = 1
Gnd2 = 1
Gnd3 = 0
Waitms 1

Next
Loop

Daten:
Data &B00101010 , &B00100111 , &B00101010 , &B00100111 , &B00101010 , &B00100111 , 1000%
Data &B00111111 , &B01010111 , &B00110011 , &B01000111 , &B00111111 , &B00000111 , 1000%
Nur wenn jetzt alle Zeilen zuende sind fangen die Led's wold zu blinken an!
Ich würde gerne am Schluss so eine Art Dummy-zeile hinzufügen:
Data &B0000000 , &B0000000 , &B00000000 , &B00000000 , &B00000000 , &B0000000 , 0%

Also wenn die zeit 0 ist soll das ganze aufhören oder wieder von vorne anfangen. Wenn ich aber schreibe: while B <> 0 passiert überhaupt nichts!
Wie soll ich das machen?

Lukas