Stromdraza - Matrix Display

Matrix Display

Was macht man wenn man langeweile hat? Man schaut in Youtube rum was man so machen könnte.

Da bin ich aufs Matrix Display gestoßen.
Sowas muss ich natürlich auch haben ;>

Und schon gehts los...

Einen Atmega 32,

Ein paar Led's,

Und noch eine Platine auf die alles draufkommt.

Und das kommt dann dabei raus.

noch schnell ein Programm drauf uns los gehts...

$regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 32   'Config A Config Portb.4 = Output A1 Alias Portb.4 Config Portb.3 = Output A2 Alias Portb.3 Config Portb.2 = Output A3 Alias Portb.2 Config Portb.1 = Output A4 Alias Portb.1 Config Portb.0 = Output A5 Alias Portb.0 'Config B Config Portd.1 = Output B1 Alias Portd.1 Config Portd.0 = Output B2 Alias Portd.0 Config Portc.1 = Output B3 Alias Portc.1 Config Portc.0 = Output B4 Alias Portc.0 Config Portd.7 = Output B5 Alias Portd.7    'Config C Config Porta.7 = Output C1 Alias Porta.7 Config Porta.6 = Output C2 Alias Porta.6 Config Porta.5 = Output C3 Alias Porta.5 Config Porta.4 = Output C4 Alias Porta.4 Config Portb.7 = Output C5 Alias Portb.7   'Config D Config Porta.3 = Output D1 Alias Porta.3 Config Porta.2 = Output D2 Alias Porta.2 Config Porta.1 = Output D3 Alias Porta.1 Config Porta.0 = Output D4 Alias Porta.0 Config Portb.5 = Output D5 Alias Portb.5   'Confog E Config Portd.2 = Output E1 Alias Portd.2 Config Portd.3 = Output E2 Alias Portd.3 Config Portd.4 = Output E3 Alias Portd.4 Config Portd.5 = Output E4 Alias Portd.5 Config Portd.6 = Output E5 Alias Portd.6  'programm  Do  Main:  'Alle Blinken  A1 = 1 A2 = 1 A3 = 1 A4 = 1 A5 = 1 B1 = 1 B2 = 1 B3 = 1 B4 = 1 B5 = 1 C1 = 1 C2 = 1 C3 = 1 C4 = 1 C5 = 1 D1 = 1 D2 = 1 D3 = 1 D4 = 1 D5 = 1 E1 = 1 E2 = 1 E3 = 1 E4 = 1 E5 = 1 Waitms 50 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0 B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0 E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0 Waitms 1                          Sub:  'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0 'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0 'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0 'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0 'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0 'kreis A3 = 1 B3 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 15 A3 = 0 B3 = 0 D3 = 0 E3 = 0 A5 = 1 B4 = 1 D2 = 1 E1 = 1 Waitms 15 A5 = 0 B4 = 0 D2 = 0 E1 = 0 C1 = 1 C2 = 1 C4 = 1 C5 = 1 Waitms 15 C1 = 0 C2 = 0 C4 = 0 C5 = 0 A1 = 1 B2 = 1 D4 = 1 E5 = 1 Waitms 15 A1 = 0 B2 = 0 D4 = 0 E5 = 0               'Viereck Ausen    A1 = 1 A2 = 1 A3 = 1 A4 = 1 A5 = 1 B1 = 1 B5 = 1 C1 = 1 C5 = 1 D1 = 1 D5 = 1 E1 = 1 E2 = 1 E3 = 1 E4 = 1 E5 = 1  Waitms 100  B2 = 1 B3 = 1 B4 = 1 C2 = 1 C4 = 1 D2 = 1 D3 = 1 D4 = 1  Waitms 100  C3 = 1  Waitms 100 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0  B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0  C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0  D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0  E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0   Waitms 100          'Kreisl Ausen-Innen  A1 = 1 Waitms 10 A2 = 1 Waitms 10 A3 = 1 Waitms 10 A4 = 1 Waitms 10 A5 = 1 Waitms 10 B5 = 1 Waitms 10 C5 = 1 Waitms 10 D5 = 1 Waitms 10 E5 = 1 Waitms 10 E4 = 1 Waitms 10 E3 = 1 Waitms 10 E2 = 1 Waitms 10 E1 = 1 Waitms 10 D1 = 1 Waitms 10 C1 = 1 Waitms 10 B1 = 1 Waitms 10 B2 = 1 Waitms 10 B3 = 1 Waitms 10 B4 = 1 Waitms 10 C4 = 1 Waitms 10 D4 = 1 Waitms 10 D3 = 1 Waitms 10 D2 = 1 Waitms 10 C2 = 1 Waitms 10 C3 = 1 Waitms 10    'Kreisl  Innen-Ausen  A1 = 0 Waitms 10 A2 = 0 Waitms 10 A3 = 0 Waitms 10 A4 = 0 Waitms 10 A5 = 0 Waitms 10 B5 = 0 Waitms 10 C5 = 0 Waitms 10 D5 = 0 Waitms 10 E5 = 0 Waitms 10 E4 = 0 Waitms 10 E3 = 0 Waitms 10 E2 = 0 Waitms 10 E1 = 0 Waitms 10 D1 = 0 Waitms 10 C1 = 0 Waitms 10 B1 = 0 Waitms 10 B2 = 0 Waitms 10 B3 = 0 Waitms 10 B4 = 0 Waitms 10 C4 = 0 Waitms 10 D4 = 0 Waitms 10 D3 = 0 Waitms 10 D2 = 0 Waitms 10 C2 = 0 Waitms 10 C3 = 0 Waitms 10     'test   A1 = 1 B2 = 1 Waitms 10 A1 = 0 A2 = 1 Waitms 10 A2 = 0 A3 = 1 B2 = 0 B3 = 1 Waitms 10 A3 = 0 A4 = 1 B3 = 0 B4 = 1 Waitms 10 A4 = 0 A5 = 1 Waitms 10 A5 = 0 B5 = 1 Waitms 10 B5 = 0 C5 = 1 B4 = 0 C4 = 1 Waitms 10 C5 = 0 D5 = 1 C4 = 0 D4 = 1 Waitms 10 D5 = 0 E5 = 1 Waitms 10 E5 = 0 E4 = 1 Waitms 10 E4 = 0 E3 = 1 D4 = 0 D3 = 1 Waitms 10 E3 = 0 E2 = 1 D3 = 0 D2 = 1 Waitms 10 E2 = 0 E1 = 1 Waitms 10 E1 = 0 D1 = 1 Waitms 10 D1 = 0 C1 = 1 D2 = 0 C2 = 1 Waitms 10 C1 = 0 B1 = 1 C2 = 0 B2 = 1  Waitms 10 B1 = 0     'test  A1 = 1 B2 = 1 Waitms 10 A1 = 0 A2 = 1 Waitms 10 A2 = 0 A3 = 1 B2 = 0 B3 = 1 Waitms 10 A3 = 0 A4 = 1 B3 = 0 B4 = 1 Waitms 10 A4 = 0 A5 = 1 Waitms 10 A5 = 0 B5 = 1 Waitms 10 B5 = 0 C5 = 1 B4 = 0 C4 = 1 Waitms 10 C5 = 0 D5 = 1 C4 = 0 D4 = 1 Waitms 10 D5 = 0 E5 = 1 Waitms 10 E5 = 0 E4 = 1 Waitms 10 E4 = 0 E3 = 1 D4 = 0 D3 = 1 Waitms 10 E3 = 0 E2 = 1 D3 = 0 D2 = 1 Waitms 10 E2 = 0 E1 = 1 Waitms 10 E1 = 0 D1 = 1 Waitms 10 D1 = 0 C1 = 1 D2 = 0 C2 = 1 Waitms 10 C1 = 0 B1 = 1 C2 = 0 B2 = 1  Waitms 10 B1 = 0    'test  A1 = 1 B2 = 1 Waitms 10 A1 = 0 A2 = 1 Waitms 10 A2 = 0 A3 = 1 B2 = 0 B3 = 1 Waitms 10 A3 = 0 A4 = 1 B3 = 0 B4 = 1 Waitms 10 A4 = 0 A5 = 1 Waitms 10 A5 = 0 B5 = 1 Waitms 10 B5 = 0 C5 = 1 B4 = 0 C4 = 1 Waitms 10 C5 = 0 D5 = 1 C4 = 0 D4 = 1 Waitms 10 D5 = 0 E5 = 1 Waitms 10 E5 = 0 E4 = 1 Waitms 10 E4 = 0 E3 = 1 D4 = 0 D3 = 1 Waitms 10 E3 = 0 E2 = 1 D3 = 0 D2 = 1 Waitms 10 E2 = 0 E1 = 1 Waitms 10 E1 = 0 D1 = 1 Waitms 10 D1 = 0 C1 = 1 D2 = 0 C2 = 1 Waitms 10 C1 = 0 B1 = 1 C2 = 0 B2 = 1  Waitms 10 B1 = 0    'test  A1 = 1 B2 = 1 Waitms 10 A1 = 0 A2 = 1 Waitms 10 A2 = 0 A3 = 1 B2 = 0 B3 = 1 Waitms 10 A3 = 0 A4 = 1 B3 = 0 B4 = 1 Waitms 10 A4 = 0 A5 = 1 Waitms 10 A5 = 0 B5 = 1 Waitms 10 B5 = 0 C5 = 1 B4 = 0 C4 = 1 Waitms 10 C5 = 0 D5 = 1 C4 = 0 D4 = 1 Waitms 10 D5 = 0 E5 = 1 Waitms 10 E5 = 0 E4 = 1 Waitms 10 E4 = 0 E3 = 1 D4 = 0 D3 = 1 Waitms 10 E3 = 0 E2 = 1 D3 = 0 D2 = 1 Waitms 10 E2 = 0 E1 = 1 Waitms 10 E1 = 0 D1 = 1 Waitms 10 D1 = 0 C1 = 1 D2 = 0 C2 = 1 Waitms 10 C1 = 0 B1 = 1 C2 = 0 B2 = 1  Waitms 10 B1 = 0  B1 = 0 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0 B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0 E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0     'Quatratisch   E1 = 1 E2 = 1 D1 = 1 D2 = 1 Waitms 30 D2 = 0 C1 = 1 C2 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 30 C2 = 0 C3 = 0 D3 = 0 D4 = 1 C4 = 1 E4 = 1 B4 = 1 B1 = 1 B2 = 1 B3 = 1 Waitms 30 B2 = 0 B3 = 0 B4 = 0 C4 = 0 D4 = 0 E5 = 1 D5 = 1 C5 = 1 B5 = 1 A1 = 1 A2 = 1 A3 = 1 A4 = 1 A5 = 1  Waitms 30  B1 = 0 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0 B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0 E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0 E1 = 1 E2 = 1 D1 = 1 D2 = 1 Waitms 30 D2 = 0 C1 = 1 C2 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 30 C2 = 0 C3 = 0 D3 = 0 D4 = 1 C4 = 1 E4 = 1 B4 = 1 B1 = 1 B2 = 1 B3 = 1 Waitms 30 B2 = 0 B3 = 0 B4 = 0 C4 = 0 D4 = 0 E5 = 1 D5 = 1 C5 = 1 B5 = 1 A1 = 1 A2 = 1 A3 = 1 A4 = 1 A5 = 1  Waitms 30  B1 = 0 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0 B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0 E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0 E1 = 1 E2 = 1 D1 = 1 D2 = 1 Waitms 30 D2 = 0 C1 = 1 C2 = 1 C3 = 1 D3 = 1 E3 = 1 Waitms 30 C2 = 0 C3 = 0 D3 = 0 D4 = 1 C4 = 1 E4 = 1 B4 = 1 B1 = 1 B2 = 1 B3 = 1 Waitms 30 B2 = 0 B3 = 0 B4 = 0 C4 = 0 D4 = 0 E5 = 1 D5 = 1 C5 = 1 B5 = 1 A1 = 1 A2 = 1 A3 = 1 A4 = 1 A5 = 1  Waitms 30  B1 = 0 A1 = 0 A2 = 0 A3 = 0 A4 = 0 A5 = 0 B1 = 0 B2 = 0 B3 = 0 B4 = 0 B5 = 0 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 D1 = 0 D2 = 0 D3 = 0 D4 = 0 D5 = 0 E1 = 0 E2 = 0 E3 = 0 E4 = 0 E5 = 0     Gosub Sub   Loop End