Dimmer Circuit

[Pesticida]

Hi,
I make a Dimmer Circuit with Pic16f870,the Zero Detection work,all work fine,but I have a Problem.
I want to Send with my VB Software Data to my Pic to Increase and Decrease my Light Bulb with a Scrollbar.
I do this for example:
Visual Basic Part.

Private Sub Form_Load()
VScroll1.Min = 85
VScroll1.Max = 10
VScroll1.Value = 10
Private Sub VScroll1_Change()
TxtRXLoops.Text = VScroll1.Value
end sub

Private Sub VScroll1_Change()
MSComm1.Output = "!" & Chr(Val(CmbAdresse.Text)) & Chr(VScroll1.Value) _
& Chr(13) & Chr(10)
Sleep 10

End Sub

This is my Pic Part:

DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds
DEFINE HSER_CLROERR 1
'''''''''''''''''''''''''''''''''''''''''''''''''' ''Communication Variable'''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
RCIF VAR PIR1.5 ' Receive interrupt flag (1=full , 0=empty)
TXIF VAR PIR1.4 ' Transmit interrupt flag (1=empty, 0=full)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''
ADCON1 = 7
TRISC=0
TRISA.0=1
DataIn var byte [3]
Adresse var byte
ZeroDetect var PortA.0

low PortC.0
SOUND PORTB.1,[124,100]
low PORTB.0 '''''''''''''''''''''''''''''''''''''''''''''RS485 Input Data Enable'''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
Delay_1 = 8500
MainStart:
Adresse = $1

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
hserin [WAIT("!"),STR Datain\5]

goto CheckAdr
Discard:
Delay_1 = Datain[1] * 100
goto MainStart

CheckAdr:

AdresseIn = Datain[0]
if Adresse = AdresseIn then RcvData

GoTo MainStart


RcvData:


IF Datain[2] = 13 Then CheckEnd

Goto MainStart
CheckEnd: ' CheckEnd Routine

IF Datain[3] = 10 Then Discard

Goto MainStart

I Send from VB Values between 10 and 85,in Pic I Multiplicate this with 100 and then I have values between 1000 and 8500.
I think but that my Hserin loop not good is,I try with
hserin 1,mainstart,[WAIT("!"),STR Datain\5]
but I think that 1 millisecond to much is :-(
This dont work !
Please I need Help,thanks.

Regard Pesti.

[sayzer]

What is Delay_1 ?

Byte or WORD?

if Byte, then it can not have any value above 255 as you know.

It must be a WORD to carry a value between 1000 and 8500.


----------------------------------

[Pesticida]

Hi,

Delay_1 is a Word,I try now something more simple:

INCLUDE "modedefs.bas"
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds
DEFINE HSER_CLROERR 1
'''''''''''''''''''''''''''''''''''''''''''''''''' ''Communication Variable'''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
RCIF VAR PIR1.5 ' Receive interrupt flag (1=full , 0=empty)
TXIF VAR PIR1.4 ' Transmit interrupt flag (1=empty, 0=full)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''
ADCON1 = 7
TRISC=0
TRISA.0=1
DataIn var byte
ZeroDetect var PortA.0
Delay_1 var word
low PortC.0
SOUND PORTB.1,[124,100]

low PORTB.0 '''''''''''''''''''''''''''''''''''''''''''''RS485 Input Data Enable'''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
low PortC.0
Datain = 10
MainStart:
hserin [Datain]
Delay_1 = Datain * 100
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
GoTo MainStart


This work the light is now Increase and decrease,but the Bulb dont stay on.

Regard
Pesti

[Pesticida]

Ok Thanks I find the Way.
Maybe someone need this example too:

INCLUDE "modedefs.bas"
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds
DEFINE HSER_CLROERR 1
'''''''''''''''''''''''''''''''''''''''''''''''''' ''Communication Variable'''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
RCIF VAR PIR1.5 ' Receive interrupt flag (1=full , 0=empty)
TXIF VAR PIR1.4 ' Transmit interrupt flag (1=empty, 0=full)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''
ADCON1 = 7
TRISC=0
TRISA.0=1
DataIn var byte
ZeroDetect var PortA.0
Delay_1 var word
low PortC.0
SOUND PORTB.1,[124,100]

low PORTB.0 '''''''''''''''''''''''''''''''''''''''''''''RS485 Input Data Enable'''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
low PortC.0
Datain = 10
Delay_1 = 9000
MainStart:
'hserin [Datain]


POS_FLNK:IF ZeroDetect = 0 Then POS_FLNK
NEG_FLNK:IF ZeroDetect = 1 Then NEG_FLNK
PauseUs Delay_1
high PortC.0
PauseUs 500
low PortC.0
hserin 0,MainStart,[WAIT("!"),Datain]

Delay_1 = Datain * 100

GoTo MainStart

Regard
Pesti

[Pesticida]

Hi,:-)

Another question have I,did I have a chance to dimming two or more bulb on one PIC.
While I find that is a little problem with the Delay method.

POS_FLNK:IF ZeroDetect = 0 Then POS_FLNK
NEG_FLNK:IF ZeroDetect = 1 Then NEG_FLNK
PauseUs Delay_1
high PortC.0
PauseUs Delay_2
high PortC.1
PauseUs 500
low PortC.0
low PortC.1
hserin 0,MainStart,[WAIT("!"),STR Datain\3]
goto CheckAdr
Initialize:
Delay_1 = Datain[1] * 100
Delay_2 = Datain[2] * 100

GoTo MainStart

Can not work with two delays !?

Regard
Pesti

[Pesticida]

Hello,

Did someone had the same Problem like Me.

I try all methods but I can not Dimm two Outputs.

Please I need Help or just a answer if this can work with two Channels.

Thanks.

Regard
Pesti

[sayzer]

Are you trying to control two outputs with two different dimmer settings?

In your code, you seem to be having the same setting for both delays.

[Pesticida]

Hi,

Yes I send trough RS485 data to my Pic,for channel one and channel two.

But when I receive the delay data for the first Channel for example 30*100=3000 us and 40 *100 =4000 us for the second Channel,then I think that this can not work while the first channel must wait 3000 us + 4000 us and then go low.

Did you understand what I mean,wehn I modify the data for Channel one then i go modify the data for the Channel two too.

regard
Pesti

[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