RoboRealm Forum

No Title

Tue, 30 Nov 1999 00:11:00 EST

Thanks, I'll play around with that. It's a good starting point,. FYI I am intending to increment a counter until a preset is met, so
I will add "+1" to the variables I suspect...

No Title

Tue, 30 Nov 1999 00:11:00 EST

Untested and unsure if this is what you need but this might get you a bit further. Just add a VBScript module, stick the following into the text box and press run. Keep in mind that you need to load and save EACH variable as local variables in the VBScript module are always zero on return into the module.

'---------

if GetVariable("Prod_Sens") = 0 then
SetVariable "Reset_Enc_Pulses", GetVariable("Enc_Pulses")
end if

SetVariable "Enc_Cntr", GetVariable("Enc_Pulses") - GetVariable("Reset_Enc_Pulses")

'---------

STeven.

VB Script Module

Tue, 30 Nov 1999 00:11:00 EST

We are adding an encoder to our Advantech digital module input.

We are trying to have a Variable "Enc_Pulses" tied to our encoder in and increment a counter "Enc_Cntr" while another digital input "Prod_Sens" is turned on via a sensor.

When the Input "Prod_Sens" Input goes low we want the counter to clear

I know this needs to be a VB Script program but we are struggling with it. If its a couple lines of code withing the module, we would appreciate the help.

Thanks in advance