[code] ' ===================================================== ' DISCO LICHT fuer PICAXE 20M2 ' 8 LEDs an B.0 bis B.7 ' ' LEDs gegen PLUS geschaltet ' ' LOW = LED EIN ' HIGH = LED AUS ' ' Anschluss: ' ' +5V ' | ' 330R ' | ' LED ' | ' PICAXE Ausgang B.x ' ' =====================================================
;#picaxe 20m2
' ----------------------------------------------------- ' PICAXE schneller laufen lassen ' -----------------------------------------------------
setfreq m8
' ----------------------------------------------------- ' Alle Pins von Port B als Ausgang ' -----------------------------------------------------
dirsB = %11111111
' ----------------------------------------------------- ' Alle LEDs AUS ' Bei gemeinsamer Anode bedeutet: ' ' HIGH = AUS ' LOW = EIN ' -----------------------------------------------------
pinsB = %11111111
' ===================================================== ' HAUPTSCHLEIFE ' =====================================================
do
' ===================================================== ' 1. Lauflicht nach links ' =====================================================
low B.0 pause 70 high B.0
low B.1 pause 70 high B.1
low B.2 pause 70 high B.2
low B.3 pause 70 high B.3
low B.4 pause 70 high B.4
low B.5 pause 70 high B.5
low B.6 pause 70 high B.6
low B.7 pause 70 high B.7
' ===================================================== ' 2. Lauflicht nach rechts ' =====================================================
low B.7 pause 70 high B.7
low B.6 pause 70 high B.6
low B.5 pause 70 high B.5
low B.4 pause 70 high B.4
low B.3 pause 70 high B.3
low B.2 pause 70 high B.2
low B.1 pause 70 high B.1
low B.0 pause 70 high B.0
' ===================================================== ' 3. Alle LEDs EIN ' =====================================================
pinsB = %00000000 pause 300
' ===================================================== ' 4. Alle LEDs AUS ' =====================================================
pinsB = %11111111 pause 300
' ===================================================== ' 5. Wechselblinken ' =====================================================
' Muster 10101010 ' einige LEDs EIN ' andere AUS
pinsB = %10101010 pause 250
' Muster 01010101 ' umgekehrt
pinsB = %01010101 pause 250
' ===================================================== ' 6. Schnelles Blitzen ' =====================================================
for b0 = 1 to 12
1 |
|
2 |
|
3 |
|
4 |
|
5 |
|
next b0
' ===================================================== ' 7. Von außen nach innen ' =====================================================
low B.0 low B.7 pause 100 high B.0 high B.7
low B.1 low B.6 pause 100 high B.1 high B.6
low B.2 low B.5 pause 100 high B.2 high B.5
low B.3 low B.4 pause 100 high B.3 high B.4
' ===================================================== ' 8. Von innen nach außen ' =====================================================
low B.3 low B.4 pause 100 high B.3 high B.4
low B.2 low B.5 pause 100 high B.2 high B.5
low B.1 low B.6 pause 100 high B.1 high B.6
low B.0 low B.7 pause 100 high B.0 high B.7
' ===================================================== ' 9. Zufallsähnliches Muster ' =====================================================
pinsB = %11001100 pause 180
pinsB = %00110011 pause 180
pinsB = %11110000 pause 180
pinsB = %00001111 pause 180
pinsB = %10011001 pause 180
pinsB = %01100110 pause 180
' ===================================================== ' Ende der Hauptschleife ' Alles beginnt wieder von vorne ' =====================================================
loop /[code]