- 3D-Druck Einstieg und Tipps         
Ergebnis 1 bis 3 von 3

Thema: Taster erkennungs Problem

  1. #1
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    03.01.2005
    Ort
    hessen
    Alter
    35
    Beiträge
    1.101

    Taster erkennungs Problem

    Anzeige

    LiFePo4 Akku selber bauen - Video
    Hallo

    Hab zwei Taster an meinem Atmega48.

    Diese Taster sind gegen Masse geschaltet.

    Beschaltet sind die Pin
    Int0 = Taster1
    Int1 = Taster2
    portd.5 = relai
    portd.6 = led1
    portd.7 = led2

    Das Problem liegt nun dadrin das es mit dem Befehl Debounce gar nicht Funktioniert und mit ner einfachen If anwendung auch nicht, allerdings Funktioniert es mit Interrupten.


    Code:
    $regfile = "m48def.dat"
    $crystal = 16000000
    $baud = 9600
    
    Config Portd.2 = Input
    Pind.2 = 1
    Config Portd.5 = Output
    
    Do
    
    
    If Pind.2 = 0 Then
    Portd.5 = 0
    Bitwait Pind.2 , Reset
    Portd.5 = 1
    End If
    
    
    
    Loop
    End
    Code:
    Declare Sub Taster
    $regfile = "m48def.dat"
    $crystal = 16000000
    $baud = 9600
    
    Config Portd.2 = Input
    Pind.2 = 1
    Config Portd.5 = Output
    
    Do
    
    Portd.5 = 1
    
    Debounce Portd.2 , 0 , Taster , Sub
    
    
    
    Loop
    End
    
    Sub Taster:
    Portd.5 = 0
    End Sub
    vielleicht findet ihr ja den fehler.

    frohes neues jahr

  2. #2
    Super-Moderator Robotik Visionär Avatar von PicNick
    Registriert seit
    23.11.2004
    Ort
    Wien
    Beiträge
    6.842
    <<<< Pind.2 = 1 >>>
    Pullup muss heissen
    Portd.2 = 1
    mfg robert
    Wer glaubt zu wissen, muß wissen, er glaubt.

  3. #3
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    03.01.2005
    Ort
    hessen
    Alter
    35
    Beiträge
    1.101
    vielen dank werds morgen gleich mal ausprobieren.

Berechtigungen

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

Labornetzteil AliExpress