Dimmer Circuit

[Pesticida]

Ok Im A Idiot :-),Ifind the way I must just for every Channel put a New Zero Cross Detection like here:

POS_FLNK:IF ZeroDetect = 0 Then POS_FLNK
NEG_FLNK:IF ZeroDetect = 1 Then NEG_FLNK
PauseUs Delay_1
high PortC.0
pauseUs 100
low PortC.0
POS2_FLNK:IF ZeroDetect = 0 Then POS2_FLNK
NEG2_FLNK:IF ZeroDetect = 1 Then NEG2_FLNK
PauseUs Delay_2
high PortC.1
pauseUs 100
low PortC.1
hserin 1,MainStart,[WAIT("!"),DataIn[0],DataIn[1]]
Delay_1 = Datain[0] * 100
Delay_2 = Datain[1] * 100
GoTo MainStart

Regard Pesti

[Pesticida]

Hallo,

My Code is Working ,but :-) I dont have the full Brightness on all the light bulbs.

Did some one know what I can change in my Code,
I use now a 20 Mhz Osc.

Thanks.

Regard
Pesti