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