Hi,
ja der alte Naubaddi lebt noch ;) , ist halt nur ein Hobby von so vielen mit der PICAXE. Nun wurde wieder etwas gebraucht um ein Lauflicht zu erzeugen, und wer muss herhalten dafür: ein PICAXE!
Ein Bekannten hat sich einen K.I.T.T. Bausatz in 1:24 für den Umbau auf eine Carrera-Bahn geholt, und der soll ein wenig echt aussehen mit Lauflicht und Sprachausgabe.... Das Lauflicht macht ein 20M und die Sprachausgabe ein DFPlayer, war gar nicht so einfach mit dem Lauflicht da es nicht nur ein Wechsel einer LED ist.
Das Programm:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
; picaxe20m2 ; automatische Compilerauswahl für gedit
; Dateiname: KITT-Lauflicht-20M2.axe
; Funktion: LEDs als Lauflicht wie bei K.I.T.T.
; Datum: Start 22.08.2013, Stand 09.07.2015
; Von: Naubaddi foto-schubser@arcor.de
;
symbol LED = b0 ' ein Zähler für die LEDs am Ausgang
symbol LR = b1 ' nach links oder nach rechts?
let LED = 0 ' mit LED am Ausgang 0 anfangen
let LR = 1 ' 0 = links, 1 = rechts, zuerst nach rechts
;
Lauflicht: ' Marke Lauflicht
if LR = 1 then ' nach rechts
if LED < 7 then ' wenn Ausgang 8 noch nicht erreicht wurde
LED = LED + 1 ' einen Ausgang weiter
else ' sonst
LR = 0 ' LR nach links
endif ' Ende von: if LED
endif ' Ende von: if LR
if LR = 0 then ' nach links
if LED > 0 then ' wenn Ausgang 0 noch nicht erreicht wurde
LED = LED - 1 ' einen Ausgang zurück
else ' sonst
LR = 1 ' LR nach rechts
endif ' Ende von: if LED
endif ' Ende von: if LR
switch on LED ' LED an Ausgang C.x einschalten
pause 100 ' 100 Millisekunden Pause
switch off LED ' LED an Ausgang C.x ausschalten
goto Lauflicht ' gehe zur Marke Lauflicht