ATMega8: LED mit Tasterdruck dimmen

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:

1

$regfile = "m8def.dat"

2

$crystal = 4000000

3

4

Config Portb.1 = Output

5

Config Portd.2 = Input

6

7

Config Debounce = 100

8

9

10

Dim X As Integer

11

12

X = 0

13

14

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

15

16

Do

17

Debounce Pind.2 , 0 , Schalter , Sub

18

Compare1a = X

19

Loop

20

21

22

Schalter:

23

X = X + 15

24

Return

25

26

End

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

MfG. Gamma