Elektronik

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




http://www.counter-service.de http://www.counter-service.de
Home
uebermich
Programmierung
Amateurfunk
Elektronik
Download
Links
E-Mail
Gästebuch/Meckerecke
Counter-DG1XPZ