0-10v dc

[aratti]

Sorry should be:
if DownButton =0 then
If Vduty>0 then Vduty=Vduty-B0
Gosub HpwmSet
endif

[skimask]

Sorry should be:
if DownButton =0 then
If Vduty>0 then Vduty=Vduty-B0
Gosub HpwmSet
endif

You know you can EDIT your own posts right?
Look down by the QUOTE button after you've submitted your post.

[naga]

Sorry should be:
if DownButton =0 then
If Vduty>0 then Vduty=Vduty-B0
Gosub HpwmSet
endif

Hi all, no luck, Please gothru my code...Thanks.

Include "MODEDEFS.BAS" ' Include Shiftin/out modes

@ device PIC16F877A , xt_osc, wdt_on, pwrt_on, protect_on ,lvp_off
Define Osc 4 ' using a 4 MHz oscillator


; 76543210
TRISA = %00000000 ' ALL OUTPUTS
TRISB = %11111111 ' ALL INPUTS- KEYBRD
TRISC = %11110001 '
OPTION_REG.7=0 'Enable internal pull-ups
OPTION_REG = %11111000 ' Assign prescaller to WDT

TRISA = 0 ' Set PORTA as output
T1CON.1 = 0 ' Set TIMER1 clock source to internal clock
INTCON = %01000000 ' Enable peripheral interrupts
PIE1 = %00000001 ' Enable TMR1 overflow interrupt
CCP1CON=%00001100 ' PWM MODE


UpButton Var PORTB.0
DownButton var PORTB.1
PWMOut Var PORTC.1 ' PWM Output


DEFINE CCP1_REG PORTC 'Hpwm 1 pin port
DEFINE CCP1_BIT 2 'Hpwm 1 pin bit

DEFINE HPWM2_TIMER 1 'Hpwm 2 timer select

B0 var Byte
Vduty var Byte

Vduty=0
B0=1

pause 100

Main:

if UpButton =0 then
If Vduty<255 Then Vduty=Vduty+B0
Gosub HpwmSet
endif

if DownButton =0 then
If Vduty>0 then Vduty=Vduty-B0
Gosub HpwmSet
endif
goto Main


HpwmSet:

HPWM 1,25,1000 '4.00khz
'HPWM 1,25,250 '16.00khz. tried this also.

Return

[skimask]

Do you have a couple of LEDs handy?
I always add a 'heart beat' LED to whatever I'm doing, even if I know the hardware is working... Really helps for troubleshooting...
And if you're using the internal pullups, you're turning on the internal pull-ups, then turning them right back off...

                 OPTION_REG.7=0 'Enable internal pull-ups
	         OPTION_REG = %11111000 ' Assign prescaller to WDT

[naga]

Do you have a couple of LEDs handy?
I always add a 'heart beat' LED to whatever I'm doing, even if I know the hardware is working... Really helps for troubleshooting...
And if you're using the internal pullups, you're turning on the internal pull-ups, then turning them right back off...

                 OPTION_REG.7=0 'Enable internal pull-ups
	         OPTION_REG = %11111000 ' Assign prescaller to WDT

Hi, Still not working..need help..

Thanks.

[Melanie]

naga

Go back to your post #17

In it you are changing a variable Vduty. This part is good.

You then call a subroutine HpwmSet. Explain to me how in your code Vduty changes the HPWM setting?

Go to the PICBASIC manual, look up HPWM and how it is used, an then install Vduty correctly so it actually changes your PWM setting.

[naga]

naga

Go back to your post #17

In it you are changing a variable Vduty. This part is good.

You then call a subroutine HpwmSet. Explain to me how in your code Vduty changes the HPWM setting?

Go to the PICBASIC manual, look up HPWM and how it is used, an then install Vduty correctly so it actually changes your PWM setting.

@Melanie, Should i change " HPWM 1,25,1000" TO " HPWM 1,127,1000" ? as per the PBPManual. And please let me know if any other value needs to be changed.. Actaully i'll have to finish this project as soon as possible..

Thank you verymuch..

[skimask]

What Melanie meant was to examine this piece of code:

HpwmSet:
HPWM 1,25,1000   '4.00khz
'HPWM 1,25,250   '16.00khz. tried this also.
Return

1 is a constant, 25 is a constant, 1000 is a constant.
If the values in the HPWM statement are all constants, how is a variable in your main loop supposed to change that constant?

If you change
HPWM 1,25,1000
to
HPWM 1,127,1000
all you've done is change the 25 to a 127.

So, WHAT in your code is going to change ANYTHING in your HPWMset subroutine?