A slicker way to be constantly changing the duty cycle?

[HankMcSpank]

Hi Guys.

Firstly Bert....apologies I didn't post the full code (ironically, I thought for simplicity's sake)....further up my program, I had exactly as you'd outlined, namely...

 
CCP2CON.4 =  duty.0
CCP2CON.5 =  duty.1
CCPR2L.0   =  duty.2 
CCPR2L.1   =  duty.3
CCPR2L.2  =   duty.4
CCPR2L.3  =   duty.5
CCPR2L.4  =   duty.6
CCPR2L.5  =   duty.7

in fact I tried Henrik's simpler way first, but when that didn't work (ie period register didn't update as I thought they should), I mapped them longhand as above.

Apologies for not showing the full picture....and many thanks for helping me out (again!)

Henrik,

Sometimes I get so wrapped up that I lose sight of the obvious (I had many things on the go yesterday ....ultimately cracking a long standing coding issue (yay) ....but while doing so, I think my brain got fogged).....yep, my variable 'Duty' is not 'tracked' in real time as it were, which means I do need to update the period setting bits bt y pointing at my variable everytime I wish to change the duty...so yes, your sub routine is the order of the day.

Many, many thanks

....thanks heavens for forums like this with people so willing to help.

[HankMcSpank]

Just as a footnote to this, going the longhand way with HPWM & setting the registers manually (vs copping out & using the easy HPWM command), has rescued back a fair bit of program space ...and my LEDS are fading a bit smoother too.

So to sum up, this will get your HPWM running on CCP2 (Pin 7) on a 16f1824....

DEFINE CCP2_REG PORTC     'route CCP2 output to PortC.3  Pin7 (16f1824)
DEFINE CCP2_BIT 3         'route CCP2 ouput to PortC.3  Pin7 (16f1824)
duty var byte
 
CCP2CON    = %00001100   ' Turn HPWM on on CCP2
TRISC.3   = 1            'Disable the CCP2 pin output driver by setting the bit
CCPR2L.6 = 0             'I'm only using 8 bit PWM so clear the top two bits (these would be using for 9/10 bit HPWM)
CCPR2L.7 = 0             'I'm only using 8 bit PWM so clear the top two bits (these would be using for 9/10 bit HPWM)
PR2          = 63        'This sets the PWM period (frequency) to 15.625KHZ @4MHZ  (I hope so at least - I've  not scoped it!) and yields the full 255 bits of resolution
CCPTMRS0 = %11110011     'This is the CCP Timer select register - these bits select 'CCP2 USING TIMER2'
T2CON = %00000100        'TIMER2 ON 1:1 PRESCALER 1:1 POSTSCALER
TRISC.3   = 0            'Enable the CCP2 pin output driver by clearing the bit
 
Main:
duty = 255
gosub Change_PWM
pause 500
duty = 0
gosub Change_PWM
pause 500
goto Main
 
Change_PWM:              'the following three lines for 8 bit PWM
CCP2CON.4 = Duty.0       'Bit 0    
CCP2CON.5 = Duty.1       'Bit 1
CCPR2L    = Duty >> 2    'Bit 2-7
return

the above code will give you some LED blinkage (you can never have enough LED blinkage) to prove it's working ....all you have to do is change the variable "Duty" & then a Gosub to change the HPWM duty cycle.

Many thanks to all who helped

[rmteo]

No all you have to do is get it to ramp 0>255>0 and you will be one step closer to your original intent - specifically wanting leds to fade niceley without any flickering.

[HankMcSpank]

No all you have to do is get it to ramp 0>255>0 and you will be one step closer to your original intent - specifically wanting leds to fade niceley without any flickering.

Oh, I've done that bit (& that wasn't the intent of my little bit of code above....which was simply to help others that may want to explore setting the HPWM registers manually)...

 
Main:
 
decrement:
if duty > 20 then 
duty = duty -1
gosub Change_PWM
pause 3
goto  decrement
endif
if duty >8 then 
duty = duty -1
gosub Change_PWM
pause 15
goto decrement
endif
if duty >1 then 
duty = duty -1
gosub Change_PWM
pause 25
goto decrement
endif
 
pause 100
 
increment:
if duty <10 then 
duty = duty +1
gosub Change_PWM
pause 25
goto increment
endif
if duty <20 then 
duty = duty +1
gosub Change_PWM
pause 15
goto increment
endif
if duty <255 then 
duty = duty +1
gosub Change_PWM
pause 3
goto increment
endif
 
goto Main

now I'm sure that's ugly to those who program regularly ....I'm a self confessed 'kludger', but it works (what I found was that simply increasing the duty linearly didn't result in a linear fade .....in particular the lowest 20 of the 8 bit resolution has the most dramatic change in brightness, hence the longer pauses as the duty value approaches zero)

There's no flickering of the LEDS ...but then again I'm not sure there was using HPWM command...this was a mini project to mainly wrap my head around the HPWM registers as I had an inkling that using the HPWM command was doing far more 'under the covers' each time I called the command than I really wanted)