Ja,und für die Freunde die mal eben Testen wollen hier ein kleines Testproggie (Zur Version 1.11.7.3 geschrieben) das das zeigt ob die Ausgänge auch alle laufen.
Code:
'PWM Test für Attiny26
'Je eine LED + Vorwiderstand von Pin B0-3 nach masse.
$regfile = "At26def.dat"
$crystal = 1000000
Dim A As Byte
Tccr1a = &B01010011 'Manuelle Konfiguration von OC1a
Tccr1b = &B10000101 'Manuelle Konfiguration von OC1b
Ocr1c = 255 'Top Limmit
Config Pinb.0 = Output 'Port b.0 als Ausgang
Config Pinb.1 = Output 'Port b.1 als Ausgang
Config Pinb.2 = Output 'Port b.2 als Ausgang
Config Pinb.3 = Output 'Port b.3 als Ausgang
Do
Gosub Pwm
Loop
Pwm:
For A = 0 To 255
Ocr1a = A
Ocr1b = A
Waitms 2
Next
Return
End
Lesezeichen