-         

Ergebnis 1 bis 3 von 3

Thema: Mini-Ganganzeige für 3€

  1. #1
    Erfahrener Benutzer Begeisterter Techniker Avatar von Ripper121
    Registriert seit
    27.10.2009
    Beiträge
    206

    Mini-Ganganzeige für 3€

    Anzeige

    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:


    Bild:


    Bascom Code:
    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




    Kosten:
    Tiny13 1,50€
    220ohm wiederstände 20 cent
    Kondensator 10 cent
    2 led´s 16 cent
    Platine 80cent

    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[

  2. #2
    Erfahrener Benutzer Robotik Visionär Avatar von oberallgeier
    Registriert seit
    01.09.2007
    Ort
    Oberallgäu
    Beiträge
    7.554

    Re: Mini-Ganganzeige für 3€

    Hi Ripper121,

    sehr schön, sehr minimalistisch. Das find ich gut.
    Zitat Zitat von Ripper121
    ... 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?
    Ciao sagt der JoeamBerg

  3. #3
    Erfahrener Benutzer Begeisterter Techniker Avatar von Ripper121
    Registriert seit
    27.10.2009
    Beiträge
    206
    ja deshalb währe ein reset durch die leerlaufanzeige von vorteil

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •