Strangw results when using PWM command

[mister_e]

assuming 12Vin and R4 is really 10K: (12-5)/10K = 0.7mA

No problem when only the PIC run... but when the LED is attach to.. the voltage will really reduce ... 'till the PIC reset.

your problem is there, you don't provide enough current, Zener would need at least few mA just for her +Led+Pic... Repace R4 to 200Ohm

@12Vin : (12-5)/200=35mA
@9Vin : (9-5)/200 = 20mA

@12 Vin : 35mA*35mA*200Ohm = 1/4 Watt

Or better if you replace it for a voltage regulator like 78L05 or any else

[malc-c]

Steve

Thanks mate for your further help,

The reason I opted for using a zenner, was the last time I used a 7805 to run a few LEDs the thing glowed trying to disapate the heat !

I'll see if changing the resistor does the trick

Malc

[mister_e]

7805 is 1Amp rated
78L05 ~100mA

[malc-c]

Steve, went the hole hog and dropped in a 68R and it works a treat !!

Thanks for your help

Cheers

[mister_e]

You're welcome... just make sure that your Zener and resistor are rated to handle it ...
Resistor 68ohm... (12-5)/68=103mA, 103mA*103mA * 68 = 0.72W => 1 watt
Zener 5 Volt : 5*103mA = .515 Watt => could be 1/2 watt... i calculate the worst case, VMax,No Load

[Acetronics2]

Hi, Malc

I just tried this ... good for bulb lamp- like ... an rather simple.

DEFINE OSCCAL_1K 1

ADCON0 = 0
ANSEL = 0
CMCON = 7

TRISIO = %00001000

led var GPIO.0

i var byte
y var byte
Speed var word ' just if speed > 255 ...

Speed = 100

up:

Pause (Speed*2)

For i = 0 to 127

y = SIN i

Led = 1
Pauseus (Speed*y)
Led = 0
Pauseus (Speed*( 127-y ))

next i

GOTO up
END

Alain

[Acetronics2]

DEFINE OSCCAL_1K 1

ADCON0 = 0
ANSEL = 0
CMCON = 7
VRCON = 0


TRISIO = %00001000

led var GPIO.0

i var byte
y var word

up:

Pause 200

For i = 0 to 127

y = SIN i

Led = 1
Pauseus (y*y)
Led = 0
Pauseus ( 16129 -(y*y) )

next i

GOTO up
END