Mini-Ganganzeige für 3€

[Ripper121]

Hier meine Ganganzeige.
Zum start gehen 2 LED´s an welche nach 1sec aus gehen.

Anzeige befindet sich in Neutraler stellung, wenn man runter schaltet leuchtet die grüne LED da in den ersten gang geschalten wurde.
Wenn man bis in den 6. Hochschaltet so leuchtet die Rote lampe.
Beim hochschalten Leuchtet die Rote Kurz auf und beim runterschalten die grüne.

Habe mich für nur 2 anzeigen entschieden da die anderen eh nicht interresieren, denn nur im 6 will ich ja wissen ob ich noch hoch schalten kann oder nicht. Wer will kann den µC über die Leerlauflampe resetten.

Wer will kann auch das ganze mit einer 2 farbigen led betreiben.
oder in smd bauen ^^

Schaltplan:
http://www4.picfront.org/picture/KkwZ1mfi8/thb/Ganganzeige_Sch.png (http://picfront.net/d/81iL)

Bild:
http://www11.picfront.org/picture/Zek2RbrPv1S/thb/Ganganzeige.png (http://picfront.net/d/81iW)

Bascom Code:


$crystal = 1000000 ' Takt 1MHz
$noramclear ' RAM nicht initialisieren
$swstack = 0 ' Software 0
$framesize = 0 ' Framesize = 0
'$Tiny ' Stack nicht initialisieren
'$hwstack = 32 ' Stackinitialisierung wird durch $TINY unterdrückt
Config Debounce = 100
Dim A As Iram Byte ' Variablen als IRAM definieren
A = 2
Config Pinb.1 = Input
Switchup Alias Pina.1
Portb.1 = 1
Config Pinb.2 = Input
Switchdown Alias Pina.1
Portb.2 = 1

Config Portb.3 = Output
Ledup Alias Portb.3
Config Portb.4 = Output
Leddown Alias Portb.4
Set Ledup
Set Leddown
Wait 1
Reset Ledup
Reset Leddown

Do
If A = 6 Then Set Ledup Else Reset Ledup
If A = 1 Then Set Leddown Else Reset Leddown
If A > 6 Then A = 6
If A < 1 Then A = 1
Debounce Pinb.1 , 0 , Pr1 , Sub 'will result in a return without gosub
Debounce Pinb.2 , 0 , Pr2 , Sub 'will result in a return without gosub
Loop
End



Pr1:
Incr A
Set Ledup
Waitms 500
Reset Ledup
Return
Pr2:
Decr A
Set Leddown
Waitms 500
Reset Leddown
Return

Wer den als Hex datei braucht einfach schreiben PN/E-Mail

http://www14.picfront.org/picture/HNJVeBTJQ/thb/Real1.png (http://picfront.net/d/81iU)
http://www11.picfront.org/picture/tOx8QPn9/thb/Real2.png (http://picfront.net/d/81iV)

Kosten:
Tiny13 1,50€ (http://www.reichelt.de/?;ACTION=3;LA=444;GROUP=A362;GROUPID=2958;ARTICLE= 58321;START=0;SORT=artnr;OFFSET=16;SID=15fjmHUqwQA Q8AAEKDXkg6516ad5a2450f5d120d2556c4b4d9978)
220ohm wiederstände 20 cent (http://www.reichelt.de/?ACTION=3;GROUP=B1113;GROUPID=3064;ARTICLE=1382;SI D=15fjmHUqwQAQ8AAEKDXkg6516ad5a2450f5d120d2556c4b4 d9978)
Kondensator 10 cent (http://www.reichelt.de/?ACTION=3;GROUP=B319;GROUPID=4000;ARTICLE=84617;SI D=15fjmHUqwQAQ8AAEKDXkg6516ad5a2450f5d120d2556c4b4 d9978)
2 led´s 16 cent (http://www.reichelt.de/?ACTION=3;GROUP=A5331;GROUPID=3018;ARTICLE=18150;S ID=15fjmHUqwQAQ8AAEKDXkg6516ad5a2450f5d120d2556c4b 4d9978)
Platine 80cent (http://www.reichelt.de/?;ACTION=3;LA=444;GROUP=C932;GROUPID=3373;ARTICLE= 8276;START=0;SORT=artnr;OFFSET=500;SID=15fjmHUqwQA Q8AAEKDXkg6516ad5a2450f5d120d2556c4b4d9978)

Pins aus altem Mainboard
Also ca. 3 €

Wer sich den Tiny13 Programmieren lassen will einfach an mich ne PN/E-Mail und dann könnt ihr mir den per post schicken.

mfg Ripp3r]D3[

[oberallgeier]

Hi Ripper121,

sehr schön, sehr minimalistisch. Das find ich gut.
... wenn man runter schaltet leuchtet die grüne LED da in den ersten gang geschalten wurde ...Wenn ich im zweiten Gang einschalte (anschieben sieh soooo cool aus) dann ist das Gerätchen aber durcheinander, oder versteh ich da etwas falsch?

[Ripper121]

ja deshalb währe ein reset durch die leerlaufanzeige von vorteil ;-)