Hallo Jungs, kurze Frage. Ich möchte eine Power RGB LED die einzelne Farben über 3 Potis einstellen ( Rot,Gruen,Blau ) Der Code dazu : $regfile = "m8def.dat" $crystal = 16000000 $hwstack = 100 $swstack = 100 $framesize = 100 Config Portb.1 = Output 'LED Rot Config Portb.2 = Output 'LED Gruen Config Portb.3 = Output 'LED Blau Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Down , Prescale = 1 Enable Timer1 Enable Timer2 Start Timer1 Start Timer2 Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Dim Adc0 As Word Dim Adc1 As Word Dim Adc2 As Word R Alias Compare1a G Alias Compare1b B Alias Ocr2 R = 0 G = 0 B = 0 Do Adc0 = Getadc(0) 'pin 23 Adc1 = Getadc(1) 'pin 24 Adc2 = Getadc(2) 'pin 25 R = Adc0 / 4 G = Adc1 / 4 B = Adc2 / 4 Loop Zur Hardware : Die PWM Ausgänge werden über einen 100 Ohm Widerstand an Gate eines IRLZ34N verbunden. Drain an +5V An Source ein passende Widerstand LED - GND
Smile..im Geschäft geht es schlecht..... Es ist erstmal eine "theortische" Frage was ich an Euch gestellt habe, wenn es nicht funzt wo der Fehler sein sollte...
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.