Forum: Mikrocontroller und Digitale Elektronik Würde mein Code so funktionieren ?


von Thomas Kiss (Gast)


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

von U.R. Schmitt (Gast)


Lesenswert?

Warum würde? Was passiert denn wenn du es ausprobierst?

von Thomas Kiss (Gast)


Lesenswert?

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
Noch kein Account? Hier anmelden.