Taster erkennungs Problem

**patti16** · 01.01.2009, 19:35

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