ATMega8: LED mit Tasterdruck dimmen

[Gamma (Gast)]

Hallo,

ich bin ziemlich neu in Sachen µC. Benutze einen Atmel ATMega8 und ein 
Pollin-Board. Ich programmiere z.Z. mit BASCOM-AVR.

Mein Ziel ist erst einmal eine LED mit Hilfe der PWM zu dimmen. Dieser 
Vorgang soll jedoch mit einem Taster ausgelöst/gesteuert werden.
Ich drücke also auf den Taster und die LED wird ein bisschen dunkler.

PWM selbst funktionierte schon, nicht jedoch die Erweiterung mit dem 
Taster.

Hier mein Code bis jetzt:

$regfile = "m8def.dat"
$crystal = 4000000

Config Portb.1 = Output
Config Portd.2 = Input

Config Debounce = 100


Dim X As Integer

X = 0

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1

Do
Debounce Pind.2 , 0 , Schalter , Sub
Compare1a = X
Loop


Schalter:
X = X + 15
Return

End

Es wäre nett, wenn mir jemand helfen könnte !

MfG. Gamma

[Karl H. (kbuchegg)]

Definiere 'funktioniert nicht'


Ins blaue geraten:
Du hast keinen Pullup am Tasterpin eingeschaltet

[Gamma (Gast)]

Sorry für die unpräzise Beschreibung...

"Funktioniert nicht" heißt in meinem Fall, dass die LED immer gleich 
hell bleibt und die Tastendruck keine Auswirkungen zu haben scheint.

Du scheinst recht zu haben mit dem Pullup. Wenn ich

Portd.2 = 1

hinter die Configs schreibe, dann funktioniert es.

Vielen Dank !!