Würde mein Code so funktionieren ?

Gast #2200444
Lesenswert?

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

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren