Fließender Übergang von Kathoden mit mega8?!?!

[NRG]

Hallo Leute!!
Ich programmiere ja mit Mega8...
So nun hat mich mein Freund gefragt, ob ich ihm etwas proggen könnte, wo er auf nen Taster drückt, und dann Kathoden langsam von der einen Farbe (rot) in die andere Farbe (grün) wechseln..
Wir haben uns gedacht, dass man des evtl. mit nem Optocopler machen könnte, doch ich weiß den programm code net....
Also ich denk mal A/D wandler, doch den versteh ich nicht so richtig......
Vielleicht kann mir ja jemand von eich weiterhelfen!!!

MFG

NRG

[bluebrother]

Kathoden langsam von der einen Farbe (rot) in die andere Farbe (grün) wechseln

was soll das genau sein? Ich kann mir da drunter nix vorstellen. Meinst du vielleicht ne Dual-LED?

[NRG]

ne.......... wenn man an eine kaltlichtkathode die vom pc............ weniger strom dran tut, dann werden die dunkler..............

[uwegw]

du könntest die LED zwischen einem normalen portpin und einem PWM-port anschließen.
dann gibt es zwei fälle:
a) grüne LED -> pin auf low, pwm regelt leuchtstärke
b) rote LED -> pin auf high, pwm mit invertiertem tastverhältnis (also 0 = volle leistung, 255 = aus)

[NRG]

ahja also wenn ich den port als eingang definiere, dann is er low.... und dann kann ich des mithilfe von pwm machen oder hab ich da was falsch verstanden?! *gg*

MFG

NRG

[uwegw]

du schließt die LED zwischen zwei portpins an. wenn nun einer von ihnen auf high und der andere auf low gelegt wird, liegt zwischen ihnen eine spannung für die LED an. dabei lässt sich die polung verändern, sodass zwischen den farben umgeschaltet werden kann.

der PWM.port schaltet schnell zwischen high und low hin und her. dabei ergibt sich dann, dass er mal dasselbe potential hat wie der zweite portpin, dann ist die spannung null, mal ein unterschiedliches potential also spannung. duirch das schnelle umschalten kommt an der LED nur noch ein teil der normalen energie an, sodass sie weniger hell leuchtet...

[Felix G]

Ähm Leute...
er will CCFLs dimmen und keine LEDs

[NRG]

ja egal ich schließ ja einfach nen optokopler an dann passt die sache..... is scho ok. mit leds
aber des von ueweg check ich irgendwie net! *gg*
also ich hab hier mal einen code gefunden, mit dem die led heller und dunkler wird wenn man an dem poti dreht........ könnt ich des evtl. umschreiben, dass es ohne poti geht, sondern automatisch???

' Poti über ADW einlesen und über PWM ausgeben
' der Ausgang ist OC1A
' Poti an Channel5 (PortC5), LED an PortB1 (OC1A)
' laut Oszi ca. 3.333kHz

$crystal = 8000000
$regfile = "m8def.dat"

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Portb = 255
Start Adc

Dim W As Word , Channel As Byte
Compare1a = 100
Channel = 5

Do
   W = Getadc(channel)
   Pwm1a = W
Loop
End

MFG

Nrg

[uwegw]

wegen den übergang von rot nach grün dachte ich an LEDs... dickes missverständnis

also sind grün und rot in getrennten röhren, die einzeln angesteuert werden?
dann kommt jeden röhre an eine eigenen PWM, damit sie regelbar ist... natürlich über nen transistor plus evtl optokoppler...

[NRG]

ja genau ! jetzt sama beisamen!
Nur mein problem is dass ich es irgendwie nicht schaffe diese pwm steuerung zu schreiben. ich hab mir gedacht dass es evtl. so gehen könnte:

' Poti über ADW einlesen und über PWM ausgeben
' der Ausgang ist OC1A
' Poti an Channel5 (PortC5), LED an PortB1 (OC1A)
' laut Oszi ca. 3.333kHz

$crystal = 8000000
$regfile = "m8def.dat"

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Portb = 255
Start Adc

Dim W As Word , Channel As Byte
Compare1a = 100
Channel = 5

Do
for  i=0 to 255 scale 10
   
W = i
   Pwm1a = W
Loop
End

nur des funzt irgendwie nicht so recht...........

MFG

NRg