Strangw results when using PWM command

[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