Knight rider looplicht

 

Kitt scanner
 
 

Informatie:

De hier beschreven Kitt scanner is simpel zelf na te bouwen, hieronder vind je de printlayout (PDF), source van de atmel processor, de componentopstelling en de partlist.

Het project is opgebouwd rond een Atmel AT90S2313 en heeft 2 potentiometers, 1 van de potentiometers is voor de snelheid waarmee de leds oplichten, de andere is voor de tijd dat de scanner "blijft hangen" (het Knight rider effect dus).

Het gaat hier om een ontwerp met 13 Led's.

Technische informatie:

Processor van Atmel (AT90S2313) 13 Leds Werkt op 6 tot 15 volt dankzij de regulator.

Op 2 manieren af te regelen.

Eventueel is de Atmel controller geprogrammeerd te verkrijgen zodat je niet eerst nog eens een programmer voor de gebruikte Atmel controller hoeft te maken.

De sourcecode voor de Atmel microcontroller:

De source is geschreven in Bascom (www.mcselec.com).

$regfile = "2313def.dat"
$crystal = 10000000
Dim A As Byte
Dim B As Long
Config Portb = Output
Config Portd = Output
Do
A = Getrc(pind , 0)
B = Getrc(pind , 1)
Portd.2 = 1
Waitms A
Portd.2 = 0
Waitms A
Portd.3 = 1
Waitms A
Portd.3 = 0
Waitms A
Portd.4 = 1
Waitms A
Portd.4 = 0
Waitms A
Portd.5 = 1
Waitms A
Portd.5 = 0
Waitms A
Portd.6 = 1
Waitms A
Portd.6 = 0
Waitms A
Portb.0 = 1
Waitms A
Portb.0 = 0
Waitms A
Portb.1 = 1
Waitms A
Portb.1 = 0
Waitms A
Portb.2 = 1
Waitms A
Portb.2 = 0
Waitms A
Portb.3 = 1
Waitms A
Portb.3 = 0
Waitms A
Portb.4 = 1
Waitms A
Portb.4 = 0
Waitms A
Portb.5 = 1
Waitms A
Portb.5 = 0
Waitms A
Portb.6 = 1
Waitms A
Portb.6 = 0
Waitms A
Portb.7 = 1
Waitms A
Portb.7 = 0
Waitms A

'return

Portb.6 = 1
Waitms A
Portb.6 = 0
Waitms A
Portb.5 = 1
Waitms A
Portb.5 = 0
Waitms A
Portb.4 = 1
Waitms A
Portb.4 = 0
Waitms A
Portb.3 = 1
Waitms A
Portb.3 = 0
Waitms A
Portb.2 = 1
Waitms A
Portb.2 = 0
Waitms A
Portb.1 = 1
Waitms A
Portb.1 = 0
Waitms A
Portb.0 = 1
Waitms A
Portb.0 = 0
Waitms A
Portd.6 = 1
Waitms A
Portd.6 = 0
Waitms A
Portd.5 = 1
Waitms A
Portd.5 = 0
Waitms A
Portd.4 = 1
Waitms A
Portd.4 = 0
Waitms A
Portd.3 = 1
Waitms A
Portd.3 = 0
Waitms A
Portd.2 = 1
Waitms A
Portd.2 = 0

Waitms A
Waitms B
Loop
End

Natuurlijk zou de source een stuk simpeler en dus korter kunnen maar dit is "fail safe". Plus dat de lezer een mooie uitdaging heeft om de source korter te maken. Hieronder vind je alle bestanden die je nodig hebt om het project tot een goed einde te brengen.

That's it!