Re: my project Capacitive Sensing LED dimmer 12F1822 via PWM
@Acetronics2... great minds must think alike
That's pretty much what I did.
@Charlie... my design is specifically designed to run on battery power. The PIC current drain should not change by much. Unless one starts trying to supply current via other pins. That is why I would limit other pin outs to supplying ground when active. (I think this is correct, but I am open for debate)
My intent was to specifically create a Camping/Emergency light that could be dimmed for maximum battery life. My crude measurements with the PWM output is that on low the current is around 1, 6, 25, 50, 100 milliamps respectivily with each of the 5 steps.
I really was not going to do much, if anything, else with the other pins.
In this case I think the current draw of the PIC should be quite stable and very low.
If one starts doing other things with the other pins then all bets are off with the zener/resistor supply.
And, hey, since I am a hobbiest it might be fun to let the smoke out of a PIC to learn a little. See how much abuse one of these little jems can take and keep on ticking. (evil grin)
Here is my code that turns the light off after approx 30 min.
I may modify it to blink the led to warn that the 30 min is about to expire so the user can hit the touch sense pad again to go another 30. The sky is the limit and that is the beauty (as you all surely know) of software control. Can we all say "feature creep".
PS. As I look at the code I wonder if some are the pause statements sprinkled around are really necessay.
One thing I do notice is that the touch sense requires a definate quick tap to be detected. I think this is because the calculation inside the interrupt routine demands a change of approx 20% from the last INT to be counted as a "touch". One can have all sorts of fun playing with some of those numbers and seeing how it changes the Capacitive sensitivity.
Code:'**************************************************************** '* Name : UNTITLED.BAS * '* Author : Dwight and others * '* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 11/29/2013 * '* Version : 1.0 * '* Notes : PIC12F1822 * '* : * '**************************************************************** #CONFIG __CONFIG _CONFIG1, _FCMEN_OFF & _FOSC_INTOSC & _WDTE_SWDTEN & _MCLRE_OFF & _CP_OFF & _IESO_OFF & _BOREN_OFF & _PWRTE_OFF __CONFIG _CONFIG2, _LVP_OFF #ENDCONFIG DEFINE OSC 8 'tell picbasic what speed the oscillator is INCLUDE "DT_INTS-14.bas" ' INCLUDE "ReEnterPBP.bas" ' Include if using PBP interrupts OSCCON = %01110010 '0 = 4x PLL is disabled ' 1110 = 8 MHz ' 0 = unused ' 1X = Internal oscillator ANSELA = %00000100 'make port A.2 is analog TRISA = %00000100 'port A.2 is input WPUA = %00000000 'turn off weak pull ups APFCON = %00000001 'Alternate Pin Function Control Reg (default %00000000) 'move CCP to PortA.5 (for PWM output) OPTION_REG = %10000111 '1 = All weak pull-ups are disabled (except MCLR, if it is enabled) ' 0 = Interrupt on falling edge of RB0/INT pin ' 0 = Timer0 clock is internal cycle clock (Fosc/4) ' 0 = Increment on low-to-high transition on RA4/T0CKI pin ' 0 = Prescaler is assigned to the Timer0 module ' 111 = 1:256 Timer0 prescaler rate T1CON = %11000001 'enable timer 1 (bit 0) & source the clock from the CPS module (bit 6 & 7 =11 CPSCON0 = %10001100 'set the CPS module highest frequency availabe (for vcc mode) + timer0 clock sourced from CPS module. (BIT 1) '1 = CPS module is enabled ' 0 = CPS module is in the low range. Internal oscillator voltage references are used. ' 00 = unused ' 11 = Oscillator is in High Range. Charge/Discharge Current is nominally 18 µA ' 0 = Capacitive Sensing Oscillator Status bit (only readable) ' 0 = Timer0 clock source is controlled by the core/Timer0 module and is FOSC/4 CPSCON1 = %00000010 '0010 = channel 2, (CPS2) CM1CON0 = 0 ' COMPARATOR OFF CM1CON1 = 0 ' COMPARATOR OFF CPS2_PRESENT var WORD CPS2_THRESHOLD var WORD CPS2_LAST var WORD ' Software variables ' ================== Duty VAR WORD stepp var byte AutoOFF var word ' ----------------[ I/O Definitions ]----------------------------------- FET VAR PORTA.5 ' PWM output to control the FET switch ' Software/Hardware initialisation ' ================================ PAUSE 100 ' OSC settle delay Autooff = 0 Duty = 0 stepp = 5 hpwm 1,255,250 ' Start with Light full ON pause 1000 ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler TMR0_INT, _Timer0_Int, pbp, yes endm INT_CREATE ; Creates the interrupt processor ENDASM TMR0 = 0 'clear TIMER0 @ INT_ENABLE TMR0_INT 'enable timer0 interrupts '*********************************************************************** '------------------------------< Main program >------------------------- Main: if autooff = 0 then skipoff if stepp = 0 then autooff = 0 autooff = autooff + 1 if autooff = 600 then '(20=1 minute, 600=30 minutes) X delay till AutoOFF autooff = 0 hpwm 1,0,250 'turn LED off after X delay stepp = 0 endif SkipOFF: pause 1000 ' not a whole lot going on here goto main '***************************************************************************** Timer0_Int: @ INT_DISABLE TMR0_INT ' stop timer0 interrupts while we're in here pause 25 CPS2_PRESENT = TMR1 ' take a snapshot of Timer1's present count. CPS2_THRESHOLD = CPS2_LAST - ((CPS2_LAST/10)*2) ' this sets the 'trigger' up for a 20% diversion (finger press) CPS2_LAST = CPS2_PRESENT ' store away the present timer0count for the next time we come into the interrupt routine if cps2_present < cps2_threshold then autooff = 1 stepp = stepp +1 if stepp>6 then stepp=0 ' check for rollover lookup stepp, [0,1,16,64,128,255,255],duty 'choose level, 5 levels plus OFF if stepp=6 then hpwm 1,0,1000 'off ' arrive here when brightness is MAX pause 100 ' So blink to let user know. hpwm 1,255,1000 'on pause 100 hpwm 1,0,1000 'off pause 100 hpwm 1,255,1000 'on ' blink to show that you are at the highest level endif hpwm 1,duty,250 ' else set new level ' button pressed so increment stepp pause 100 endif pause 50 TMR0 = 0 ' clear TIMER0 TMR1 = 0 ' clear TIMER1 @ INT_ENABLE TMR0_INT ' re-enable timer0 interrupt @ INT_RETURN end
Originally Posted by Heckler
Bookmarks