Ik ben op zoek naar een led dimmer omdat ik in mijn huis over wil stappen naar led verlichting.
Momenteel heb ik diverse X10 dimmers maar daar kan ik geen led's mee dimmen.
Echter het principe van X10 bevalt me goed korte puls - verl. aan / uit vasthouden -dimmen.
Ik heb internet af gezocht maar helaas heb ik er geen led dimmer dmv 1 pulsschakelaar kunnen vinden.
Wel heb ik op picbasic de motor HPWM sturing gevonden en iets aangepast, nu loop ik echter vast met de software.
Wie kan me hier mee verder helpen?
Code: Selecteer alles
DEVICE 16F628A ;Gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE ;Alle ingangen digitaal
;Algemene constanten
SYMBOL Daling = 40 ;mSec: Daalsnelheid ledverlichting
SYMBOL Stijging = 40 ;mSec: Stijgsnelheid ledverlichting
SYMBOL AAN = 1 ;Schakelaar aan = hoog (1)
SYMBOL S1 = PORTA.0 ;Op poort A.0 zit S1 aangesloten
;Variabele declareren
DIM Duty AS BYTE ;'Duty' is de variabele die de ledverlichting regeld
HPWM 1, 0, 2000 ;Reset de CCP/PWM module (Op 0% = constant laag)
; 76543210
TRISB = %11110111 ;PORTB.3 is uitgang voor PWM signaal
CLEAR ;Wis alle RAM geheugen
;Hoofdprogramma
WHILE 1 = 1 ;Oneindige lus
IF S1 = AAN THEN BREAK ;uit de lus springen als S1 = aan
FOR Duty = 1 TO 255 ;ledverlichting gaat steeds feller branden tot maximum (= 255)
HPWM 1, Duty, 2000 ;De snelheid is afhankelijk van de FOR...NEXT telvariabele
DELAYMS Stijging ;Stijgsnelheid van ledverlichting
NEXT
FOR Duty = 254 TO 0 STEP -1 ;ledverlichting gaat steeds verder dimmen tot 0
HPWM 1, Duty, 2000 ;ledverlichting felheid is afhankelijk van 'Duty', de telvariabele
DELAYMS Daling ;Daalsnelheid van ledverlichting
NEXT
WEND ;Terug naar WHILE
END
