Pwm + Rc5 = Attiny überfordert? (Bascom)

[Sven (Gast)]

Guten Abend,

ich arbeite an einer Infrarotverbindung, um eine Led an und aus zu 
schalten.
Infrarotverbindung (Rc5) funktioniert perfekt!!!
Jetzt wollte ich die Led noch dimmen...
Aus irgendeinem Grund ist die Software Pwm zu langsam!
Desshalb: Hardware Pwm
ABER: Wenn ich die Led mit Pwm betreiben will kommen 4 Errormeldungen.

Mikrocontroller: Attiny25 - 20Pu
Programmiersprache: Bascom

Meine Frage:
-Wiso geht das nicht?^^
Ist der Tiny überfordert/hat zu wenig Timer
Laut datasheet hat er:
2 Timer (- braucht Interrupt für rc5, rc5 und Pwm je ein Timer???)

Programm:

$regfile = "attiny25.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000


'Pwm einstellen
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1       '
Dim I As Integer

'Rc5 einstellen
Config Rc5 = Pinb.3
Enable Interrupts
Dim Address As Byte , Command As Byte

Config Portb.1 = Output


'Variablendeklaration
Dim Blinken As Byte



'Hauptschleife
Do
  'Rc5 Daten reinholen
  Getrc5(address , Command)

  'Adresse Infrarotfernbedinung 20
  'Tasten: hoch:112 ; runter:113 ; Stop:53 ; rechts:32 ; links:33

  If Address = 20 Then
     If Command = 32 Then
      Compare1a = 20          '<-------------------Fehler
      'Portb.1 = 1
      'Pwm = 100
     Else
      Compare1a = 20          '<-------------------Fehler
      'Portb.1 = 0
      'Pwm = 10
     End If
     'Rc5 zurücksetzen
     Command = Command And &B01111111

  End If


Loop
End

Fehlermeldung:
Error:46 Line 39 Assignment error [COMPARE1A:0 20: 112] , in File .....
Error:46 Line 43 Assignment error [COMPARE1A:0 20: 112] , in File .....
Error:7 Line: 43 IF THEN expected [43] , in File .....
Error:123 Line: 43 End IF expected [43] , in File .....

(letztere beiden hängen mit den ersten beiden zusammen)

Ich habe das Programm von meinem Atmega88 auf einen Attiny25 übertragen, 
bis auf die Pwm geht alles.

Vielen Dank für Tipps und Lösungsvorschläge.

Mit freundlichen Grüßen

Sven

[GFrankie (Gast)]

Compare1A ist Name für Interrupt. Versuch mal OCR1A = 20

[Sven (Gast)]

Danke GFrankie,

Es gibt keine Fehler mehr.
Leider funkt das mit der Led iwie trotzdem nicht!?
Hast du noch weitere Ideen?

MFG

Sven

[GFrankie (Gast)]

Keine Ahnung, da ich nicht weis, was da eigentlich passieren soll. 
Besser hinter jeder Programmzeile ein Remark, was für ein Sinn die haben 
soll.

Dimmen? An Aus schalten?
"Command = Command And &B01111111" ist toggle bit löschen und nicht RC5 
rücksetzen.

[Sven (Gast)]

OK mach ich:

- ich will (einfach) die Helligkeit mit der Fernbedienung verändern

$regfile = "attiny25.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000


'Pwm einstellen
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1       '

'Rc5 einstellen
Config Rc5 = Pinb.3                    'Pinb.3 hier wird der IRsensor angeschlossen
Enable Interrupts                      'muss gemacht werden XD
Dim Address As Byte , Command As Byte  '2 Variablen werden für Rc5 gebraucht



'Hauptschleife
Do
  'Rc5 Daten reinholen -Adresse ist wegen der Fernbedinung notwendig
  'in dem Fall ist sie für die Radiosteuerung und hat als Adresse (20)
  'Command ist der Befehl, in dem Fall welche Taste gedrückt wird
  'Tasten stehen unten - ich nehme die Rechtstaste (32)
  Getrc5(address , Command)

  'Adresse Infrarotfernbedinung 20
  'Tasten: hoch:112 ; runter:113 ; Stop:53 ; rechts:32 ; links:33

  If Address = 20 Then                    'wenn es die richtige Fernbedinung ist 
     If Command = 32 Then                 'UND die richtige Adresse dann:
      Compare1a = 100                     'Led hell an      
     Else
      Compare1a = 20                      'sonst leicht an 
     End If
     'toggle bit löschen
     Command = Command And &B01111111

  End If


Loop
End

So ich hab mal alles vereinfacht und unnötiges weggelassen.

Danke für deine Hilfe^^

[GFrankie (Gast)]

Hi, ich seh jetzt erst mal keinen direkten Fehler, außer das da wieder 
"Compare1a = 100", der Interrupt steht. Flüchtigkeitsfehler oder :-) Mir 
bereitet der Config Timer Befehl Kopfschmerzen. Da hab ich noch nie 
durchgeblickt und heute abend schaff ich das auch nicht mehr. Ich setz 
die Timerregister mit Hilfe des Datenblatts lieber direkt. Ich versuchs 
weiter aber nicht heute. Müßte ich selbs mal testen. Viel Erfolg.

[GFrankie (Gast)]

Ah ja, RC5 verwendet Timer0 nach Bascom Hilfe. Timer1 für PWM ist also 
OK

[GFrankie (Gast)]

Hab noch was gefunden: http://bascom-forum.de/index.php?topic=4004.0
Also anscheinend nicht das CONFIG TIMER für PWM nutzen sondern direkt.