Hallo.
Also ich wollte mich mal nur auf die Farbe Weiß beschränken , die ich jedoch in der Helligkeitsstufe regulieren will.Über die Interrupts INt 1 und Int 0.
Das heißt das ich nur 2 Taster brauche (heller und dünkler).
Nun verschalten habe ich die Rgb Led so wie im Anhang.
Und das dazu gehörige Programm sieht so aus.
$regfile = "attiny2313.dat"
$crystal = 8000000
T0 Alias Pind.2
'T1 Heller
T1 Alias Pind.3
'T2 Dünkler
Config T0 = Input 'Interrupt
Config T1 = Input 'Interrupt
Config Timer0 = Timer , Prescale = 8
Config Timer1 = Timer , Prescale = 8
On Int0 Heller 'ISR Routine
On Int1 Dunkler 'Isr Routine
Config Pind.5 = Output 'LED
Enable Int0
Enable int1
Enable Interrupts
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Start Timer0
Dim A As Byte
A = 255 'Startwert
Do
Pwm0b = A
Loop
Heller:
If T0 = 1 Then
A = A - 10
If A = 0 Then
End If
End If
Return
Dunkler:
If T1 = 1 Then
A = A + 10
If A = 255 Then
End If
End If
Return
Alles anzeigen
Kann das stimmen oder hat sich da ein Fehler eingeschliechen?
Mfg niki1