Hallo
Ich hab vor 8 Glühbirnen per PWM zu dimmen. Und das nach einem bestimmtem zyklus.
Beispiel:
Porta,0 100%
porta,1 80%
Warteschleife (10 Min. oder so)
Porta,0 10%
Porta,1 40%
Warteschleife
und so weiter und so fort.
Im grunde genommen eine art langsame Lauflichtsteuerung mit 8 Kanälen die per PWM gedimmt werden.
Weil das alles möglichst einfach zu ändern sein soll und vorallem da extrem lange Werteschleifen drinnen sind die auch noch relativ genau sein sollen, hab ich mir gedacht das alles einfach per BASECOM zu machen.
Ich hab mal gegooglet und folgenden Code gefunden:
Das wäre genau das was ich bräuchte. nur sobald ich noch ein paar Kanäle mehr mit dran hänge meckert BASECOM-AVR.
Anscheinend funktionieren da nur drei Kanäle (A B C und ab D kommt ein Fehler). wiso?
Anschlißend mal der erweiterte Code
Gruß
Ich hab vor 8 Glühbirnen per PWM zu dimmen. Und das nach einem bestimmtem zyklus.
Beispiel:
Porta,0 100%
porta,1 80%
Warteschleife (10 Min. oder so)
Porta,0 10%
Porta,1 40%
Warteschleife
und so weiter und so fort.
Im grunde genommen eine art langsame Lauflichtsteuerung mit 8 Kanälen die per PWM gedimmt werden.
Weil das alles möglichst einfach zu ändern sein soll und vorallem da extrem lange Werteschleifen drinnen sind die auch noch relativ genau sein sollen, hab ich mir gedacht das alles einfach per BASECOM zu machen.
Ich hab mal gegooglet und folgenden Code gefunden:
Code:
$regfile = "m16def.dat"
$crystal = 4000000
Config Porta.1 = Output
Config Porta.2 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Do
Compare1a = 205
Compare1b = 51
Loop
End
Das wäre genau das was ich bräuchte. nur sobald ich noch ein paar Kanäle mehr mit dran hänge meckert BASECOM-AVR.
Anscheinend funktionieren da nur drei Kanäle (A B C und ab D kommt ein Fehler). wiso?
Anschlißend mal der erweiterte Code
Gruß
Code:
$regfile = "m16def.dat"
$crystal = 4000000
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Compare C Pwm = Clear Up , Compare D Pwm = Clear Up , Compare E Pwm = Clear Up , Compare F Pwm = Clear Up , Compare G Pwm = Clear Up , Compare H Pwm = Clear Up , Prescale = 1024
Do
Pwm1a = 1024
Pwm1b = 50
Pwm1c = 50
Pwm1d = 50 <- Ab hier meckert Basecom-AVR
Pwm1e = 50
Loop
End