 8-Kanal-Lauflichtsteuerung
| |
|
Die Schaltung dient in der Weihnachtszeit zur Ansteuerung meines
Schwibbogen. Sie findet Platz in einem 25-poligen SUB-D Gehäuse. Es war sogar noch
Platz für Anschluss eines Programmiersteckers (oberhalb des Atmel).
| |
| Software: '********************************************************** 'Name : lauflicht.bas 'Purpose : Lauflicht für Schwibbogen mit 7 Kerzen 'Version : V0.01 'Compiler : BasCom AVR 1.11.7.4 'Hardware : LED's bzw ULN2803 an PB0 bis PB6 'Bytes : 280 'Chip type : AT90S2313 '********************************************************** | |
|
$regfile = "2313def.dat" '$crystal = 3579545 Ddrb = &B1111111 Dim A As Byte Dim I As Byte Portb = 127 Wait 2 Portb = 0 Do Restore Lauf For I = 1 To 68 Read A Portb = A Waitms 500 Next I Loop End Lauf: Data 1 , 2 , 4 , 8 , 16 , 32 , 64 , 0 Data 64 , 32 , 16 , 8 , 4 , 2 , 1 , 0 Data 1 , 3 , 7 , 15 , 31 , 63 , 127 , 127 Data 126 , 124 , 120 , 112 , 96 , 64 , 0 , 0 Data 1 , 64 , 2 , 32 , 4 , 16 , 8 , 0 , 8 , 0 , 8 , 0 Data 65 , 99 , 119 , 127 , 62 , 28 , 8 , 0 Data 8 , 28 , 62 , 127 , 119 , 99 , 65 , 0 Data 1 , 33 , 37 , 45 , 61 , 63 , 127 , 0 |
'AT90S2313 'Quarz 3.579MHz 'Pin PB0-7 Ausgang 'alle Ports an 'Warte 2 sec 'alle Ports aus 'Zeiger auf Beginn der Daten setzen 'Lese nächsten Wert 'Setze Port 'Warte 0.5 sec '8 1234567 einzeln '8 7654321 einzeln '8 1234567 addierend '8 1234567 subtrahierend '12 1726354-4-4 einzeln '8 1726354 addierend zur Mitte '8 1726354 subtrahierend zur Mitte '8 1634527 addierend |
|
zum Download: lauflicht.bas | |
|
| |
