Taster erkennungs Problem
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
