Ledmodul med 18 st led, hur koppla inviduell strömbegr.?

[whynot]

Hade redan tagit bort allt.
Har nu gjort ett program soM nästan går tror jag fungerar tills jag kompilerar det till en EXE fil då kommer det upp att den inte hittar filen BC.EXE och står också INPUT PATH. Filen finns i zip filen och har lagt den och Qb.exe i samma mapp så tycker att den borde hittas. Det är Quickbasic 4.5 jag använt.
Skrev så här:
SUB D
DO
FOR A=0 TO 30
NEXT A
LOOP
OUT &H378, 1 : D
OUT &H378, 0 : D
END SUB

[whynot]

Nu är det på G,,
Det här fungerar i 1.1 och i 4.5
Blev precis som jag tänkt mig att det skulle fungera ska koppla på alla portar på LPT-porten men det borde inte vara något problem med det,,,, nu var det bara en utgång. Kopplingen är Neodiods med lite modifiering ingen pot utan en transistor i serie med LEDen där basen har 12 V matning genom ett motstånd och en optokopplare jordar ner basen med pulser från LPT-porten. Inga pulser så blir det maxström lite omvänd PWM-styrning.
DECLARE D()
DO
OUT &H378, 1: D ' 70% av strömmen med 7 st 0 varje 1 tar bort 10%
OUT &H378, 0: D
OUT &H378, 0: D
OUT &H378, 1: D
OUT &H378, 0: D
OUT &H378, 0: D
OUT &H378, 1: D
OUT &H378, 0: D
OUT &H378, 0: D
OUT &H378, 0: D
LOOP UNTIL INKEY$=CHR$(27) ' Esc-knappen
SUB D
FOR A = 0 TO 20
NEXT A
END SUB

Edit: För att pulserna alltid ska vara lika långa ska OUT se ut så här:
OUT &H378, 1: D: OUT &H378, 0: D ' Med 10 rader OUT och en 0:a i till höger alltid så blir det 5% ändring för varje 1:a med ett program med 10 rader OUT. Går då från 100% till 50% ström och vill man gå lägre så stoppar man in en 1:a till höger också eller gör flera rader.

men det spelar ingen roll i det här fallet.

[E85]

Funkar det inte att göra ungefär såhär? Ser konstigt ut som du gjort.

Kod: Markera allt

DECLARE D1()
DECLARE D2()

DO
OUT &H378, 1: D1
OUT &H378, 0: D2
LOOP UNTIL INKEY$=CHR$(27) ' Esc-knappen

SUB D1
FOR A = 0 TO 20 ' Ändra tid här
NEXT A
END SUB

SUB D2
FOR A = 0 TO 20 '  och här
NEXT A
END SUB

[whynot]

Det funkar inte så bra till det jag ska ha Du ser skillnaden att jag behöver inte ändra tiden någon gång sen har jag 5% minskning av strömmen för varje utgång jag sätter 1 och eftersom jag ska inviduellt på på dom 8 utgångarna som finns så är det väldigt enkelt att ha 10 rader med utgångar liggande där hela tiden. Det här exemlet har 30% av strömmen bortaget på utgång 1 och 15% på utgång 2 och 5% å utgång 5 borttagen. Är bara att fylla på med flera utgångar som ska vara 1:or enkelt. Som Du ser här så är det OUT 2 gånger på varje rad får då 5% minskning har jag OUT bara en gång per rad så blir det 10% minskning för varje 1 på en utgång men båda fungerar.

Kod: Markera allt

OUT &H378,0:D: OUT &H378,0: D
OUT &H378,1:D: OUT &H378,0: D ' utgång 1
OUT &H378,0:D: OUT &H378,0: D
OUT &H378,19:D: OUT &H378,0: D ' utgång 1 och 2 och 5
OUT &H378,1:D: OUT &H378,0: D ' utgång 1
OUT &H378,0:D: OUT &H378,0: D 
OUT &H378,3:D: OUT &H378,0: D ' utgång 1 och 2
OUT &H378,0:D: OUT &H378,0: D
OUT &H378,1:D: OUT &H378,0: D ' utgång 1
OUT &H378,3:D: OUT &H378,0: D ' utgång 1 och 2

[whynot]

Skulle det här vara något att köpa? Funderar om man skulle köpa några stycken, med drivare till det går att köra 6 st 3W LED på varje grupp.
Skulle om inte annat vara intressant till annat även om det skulle gå att använda till det här också.

Quality LED Intelligent Control System achieves dimming, RGB color change, timming off for LED
lights individually or synchronously through infrared remote control, built-in intelligent control
module, external control module, wall switch and signal wire. It is applicable to all lights working
with 12/24V or 350/700mA. It can control 15 groups of unlimited lights.

Några kommentaren till den?