Gast
#2200444
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