-         

Ergebnis 1 bis 3 von 3

Thema: Taster erkennungs Problem

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

    Taster erkennungs Problem

    Anzeige

    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.836
    <<<< 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
    29
    Beiträge
    1.099
    vielen dank werds morgen gleich mal ausprobieren.

Berechtigungen

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