'LED Cube 3x3x3 $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 10 Ddrc = &B00111111 'PortC.0 - PortC.5 als Ausgang Ddrb = &B00111111 'PortB.0 - PortB.5 als Ausgang Dim Ebene As Byte Dim Bild(3) As Word Dim Muster As Word Dim Dauer As Word Dim Zeit As Word Dim Maxmuster As Word 'LED Cube 3x3x3 $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 10 Ddrc = &B00111111 'PortC.0 - PortC.5 als Ausgang Ddrb = &B00111111 'PortB.0 - PortB.5 als Ausgang Dim Ebene As Byte Dim Bild(3) As Word Dim Muster As Word Dim Dauer As Word Dim Zeit As Word Dim Maxmuster As Word ' Hier die Anzahl an Bildelementen eintragen! z.B.: Eine Zeile = 1, 150 Zeilen = 150 ' | ' | ' V Maxmuster = 94 Maxmuster = Maxmuster * 4 '##################################__MAIN__##################################### Do Bild(1) = Lookup(muster , Bildelemente) Muster = Muster + 1 Bild(2) = Lookup(muster , Bildelemente) Muster = Muster + 1 Bild(3) = Lookup(muster , Bildelemente) Muster = Muster + 1 Zeit = Lookup(muster , Bildelemente) Muster = Muster + 1 If Muster = Maxmuster Then Muster = 0 For Dauer = 1 To Zeit Step 1 Portb = &B00111000 'Alle Ebenen und LEDs aus Portc = &B00111111 'Alle LEDs aus Ebene = Ebene + 1 If Ebene = 4 Then Ebene = 1 Select Case Ebene: Case 1 : Portb.0 = 1 Portb.1 = 0 Portb.2 = 0 Case 2 : Portb.0 = 0 Portb.1 = 1 Portb.2 = 0 Case 3 : Portb.0 = 0 Portb.1 = 0 Portb.2 = 1 End Select Portb.3 = Bild(ebene).0 Portb.4 = Bild(ebene).1 Portb.5 = Bild(ebene).2 Portc.0 = Bild(ebene).3 Portc.1 = Bild(ebene).4 Portc.2 = Bild(ebene).5 Portc.3 = Bild(ebene).6 Portc.4 = Bild(ebene).7 Portc.5 = Bild(ebene).8 Waitms 1 Next Dauer Loop End '############################################################################### Bildelemente: ' Das Muster wird mittels der Einsen und Nullen in den entsprechenden Ebenen ' festgelegt. Eine "0" bedeutet das die LED an ist, eine "1" bedeutet das die ' LED aus ist. Mithilfe der Zeit kann die Dauer eingestellt werden, wie lange ' das einzelne Bild dargestellt wird. Ist die Zeit abgelaufen, wird das nächste ' Bild ausgegeben. In diesem Beispiel würde die Mittlere Ebene für 100ms ' leuchten. Anschließend leuchten die Oberste und die Untere Ebene für 400ms. ' Ebene 1: Ebene 2: Ebene 3: Zeit in ms: 'Data &B000000000% , &B111111111% , &B000000000% , 100% 'Data &B111111111% , &B000000000% , &B111111111% , 400% Data &B111111110% , &B111111111% , &B011111111% , 200% Data &B111111101% , &B111111111% , &B101111111% , 200% Data &B111111011% , &B111111111% , &B110111111% , 200% Data &B111011111% , &B111111111% , &B111110111% , 200% Data &B011111111% , &B111111111% , &B111111110% , 200% Data &B101111111% , &B111111111% , &B111111101% , 200% Data &B110111111% , &B111111111% , &B111111011% , 200% Data &B111110111% , &B111111111% , &B111011111% , 200% Data &B111111111% , &B111010111% , &B111111111% , 200% Data &B111111111% , &B110111011% , &B111111111% , 200% Data &B111111111% , &B101111101% , &B111111111% , 200% Data &B111111111% , &B011111110% , &B111111111% , 200% Data &B111111111% , &B111010111% , &B111111111% , 200% Data &B111111111% , &B111101111% , &B111111111% , 200% Data &B111101111% , &B111101111% , &B111101111% , 200% Data &B111000111% , &B111000111% , &B111000111% , 300% Data &B000111111% , &B000111111% , &B000111111% , 300% Data &B111000111% , &B111000111% , &B111000111% , 300% Data &B111111000% , &B111111000% , &B111111000% , 300% Data &B111000111% , &B111000111% , &B111000111% , 300% Data &B000111111% , &B000111111% , &B000111111% , 300% Data &B000111111% , &B111000111% , &B111111000% , 400% Data &B000000000% , &B111111111% , &B111111111% , 300% Data &B111111111% , &B000000000% , &B111111111% , 300% Data &B111111111% , &B111111111% , &B000000000% , 300% Data &B111111111% , &B000000000% , &B111111111% , 300% Data &B000000000% , &B111111111% , &B111111111% , 300% Data &B111111111% , &B000000000% , &B111111111% , 300% Data &B111111111% , &B111111111% , &B000000000% , 300% Data &B111111111% , &B000000000% , &B111111111% , 300% Data &B000000000% , &B111111111% , &B111111111% , 300% Data &B111111000% , &B111000111% , &B000111111% , 400% Data &B111111000% , &B111111000% , &B111111000% , 300% Data &B111000111% , &B111000111% , &B111000111% , 450% Data &B111111000% , &B111000111% , &B000111111% , 150% Data &B111111111% , &B000000000% , &B111111111% , 150% Data &B000111111% , &B111000111% , &B111111000% , 150% Data &B111000111% , &B111000111% , &B111000111% , 150% Data &B111111000% , &B111000111% , &B000111111% , 150% Data &B111111111% , &B000000000% , &B111111111% , 150% Data &B000111111% , &B111000111% , &B111111000% , 150% Data &B111000111% , &B111000111% , &B111000111% , 300% Data &B011101110% , &B011101110% , &B011101110% , 150% Data &B101101101% , &B101101101% , &B101101101% , 150% Data &B110101011% , &B110101011% , &B110101011% , 150% Data &B111000111% , &B111000111% , &B111000111% , 150% Data &B011101110% , &B011101110% , &B011101110% , 150% Data &B101101101% , &B101101101% , &B101101101% , 150% Data &B110101011% , &B110101011% , &B110101011% , 150% Data &B111000111% , &B111000111% , &B111000111% , 150% Data &B011101110% , &B011101110% , &B011101110% , 150% Data &B101101101% , &B101101101% , &B101101101% , 150% Data &B110101011% , &B110101011% , &B110101011% , 150% Data &B111000111% , &B111000111% , &B111000111% , 150% Data &B111000111% , &B111000111% , &B111111111% , 200% Data &B111000111% , &B111111111% , &B111111111% , 200% Data &B111111111% , &B111111111% , &B111111111% , 100% Data &B111111111% , &B111111111% , &B110111110% , 100% Data &B111111111% , &B110111110% , &B011110111% , 100% Data &B110111110% , &B011110111% , &B111011101% , 100% Data &B011110111% , &B111011101% , &B011101111% , 100% Data &B111011101% , &B011101111% , &B110111011% , 100% Data &B011101111% , &B110111011% , &B111011101% , 100% Data &B110111011% , &B111011101% , &B101111110% , 100% Data &B111011101% , &B101111110% , &B111011101% , 100% Data &B101111110% , &B111011101% , &B110111110% , 100% Data &B110111101% , &B110111110% , &B011110111% , 100% Data &B101111110% , &B011110111% , &B111011101% , 100% Data &B011110111% , &B111011101% , &B011101111% , 100% Data &B111011101% , &B011101111% , &B110111011% , 100% Data &B011101111% , &B110111011% , &B111011101% , 100% Data &B110111011% , &B111011101% , &B101111110% , 100% Data &B111011101% , &B101111110% , &B111011101% , 100% Data &B101111110% , &B111011101% , &B110111110% , 100% Data &B110111101% , &B110111110% , &B011110111% , 100% Data &B101111110% , &B011110111% , &B111011101% , 100% Data &B011110111% , &B111011101% , &B011101111% , 100% Data &B111011101% , &B011101111% , &B110111011% , 100% Data &B011101111% , &B110111011% , &B111011101% , 100% Data &B110111011% , &B111011101% , &B101111110% , 100% Data &B111011101% , &B101111110% , &B111011101% , 100% Data &B101111110% , &B111011101% , &B110111110% , 100% Data &B110111101% , &B110111110% , &B011110111% , 100% Data &B101111110% , &B011110111% , &B111011101% , 100% Data &B011110111% , &B111011101% , &B011101111% , 100% Data &B111011101% , &B011101111% , &B110111011% , 100% Data &B011101111% , &B110111011% , &B111011101% , 100% Data &B110111011% , &B111011101% , &B101111110% , 100% Data &B111011101% , &B101111110% , &B111011101% , 100% Data &B101111110% , &B111011101% , &B110111110% , 100% Data &B110111101% , &B110111110% , &B011110111% , 100% Data &B101111110% , &B011110111% , &B111011101% , 100% Data &B011110111% , &B111011101% , &B111111111% , 100% Data &B111011101% , &B111111111% , &B111111111% , 100%