What am I missing here? If..Then

[elevenscorpions]

What am I missing here? I'm trying to set a couple of software limit switches using the feedback potentiometer on a linear actuator. The extend and retract logic works fine, but the analog input variable in the IF..AND..THEN doesn't seem to do anything. The linear actuator will run full stroke, rather than stopping at about 20% and 80% of travel. I set up a LED o/p to come on at about 80% of stroke, and it works OK. I would appreciate any input.

BrianB


define OSC 4
Define ADC_BITS 8 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS

ANSEL = %11110000 ' Set analog pins
ANSELH = %00001111
TRISA = %00001100 ' Set port A
TRISB = %00110000 ' Set port B
TRISC = %11001111 ' Set port C

AN11 var byte 'Cylinder 1 Feedback Pot.
SW1EXT var bit 'Extend Switch
SW2RET var Bit 'Retract Switch
J var byte

'Initialize Variables and Ports
PORTA=0
PORTB=0
PORTC=0

MAIN:
'Poll Switches
If PortA.3=0 then
pause 20
if PORTA.3=0 then
SW1EXT=1
endif
Else
SW1EXT=0
ENDIF
If PortA.2=0 then
pause 20
if PORTA.2=0 then
SW2RET=1
endif
else
SW2RET=0
endif
adcin 11, AN11 'Cylinder 1 Pot
IF AN11>200 then 'LED for Cylinder 1 Pot 80% Stroke Indicator
PORTA.1=1
else
PORTA.1=0
ENdif
IF (SW1EXT=1) and (AN11<200) then 'Extend Cylinder 1
PORTC.4=1
PORTB.7=0
PORTC.5=1
endif
IF (SW2RET=1) and (AN11>50) then 'Retract Cylinder 1
PORTC.4=0
PORTB.7=1
PORTC.5=1
endif
if SW1EXT=0 and SW2RET=0 then 'Stop Cylinder 1
PORTC.4=0
PORTB.7=0
PORTC.5=0
endif
if SW1EXT=1 and SW2RET=1 then 'Stop Cylinder 1
PORTC.4=0
PORTB.7=0
PORTC.5=0
endif
for J=1 to 50 'Heartbeat
pause 1
NExt J
toggle PORTA.0

goto main

[mister_e]

It's a good practice to use the parenthesis in your code as you did for the first ones.. then you change your mind later...

[Darrel Taylor]

Hi Brian,

It looks like you have to Hold the button down to extend or retract the actuator.

But, the only way to stop the actuator from moving is to have both

SW1EXT=0 and SW2RET=0

-or-

SW1EXT=1 and SW2RET=1

It won't allow it to stop according to the A/D reading because you're still holding one button down.

HTH,

[elevenscorpions]

Thanks. I got fixated on the idea that I didn't understand some aspect of the if..then..else statement (which is also probably true), and forgot that I have to actively turn the actuator off.

BrianB