Hi,
It's supposed to be realy simple. I want to send an email when ip1 to high <= 58mins. Also set op1 to 1. The problem is that i receive false notification. POMPE_AL1: and POMPE_AL3: are called for no reason.
Can someone give me help to make my code more efficent and reliable?
Here is my code :
It's supposed to be realy simple. I want to send an email when ip1 to high <= 58mins. Also set op1 to 1. The problem is that i receive false notification. POMPE_AL1: and POMPE_AL3: are called for no reason.
Can someone give me help to make my code more efficent and reliable?
Here is my code :
Code:
START
CALLSUB VARIABLE
TSTEQ IP1 0
SET RAM1 0
TSTEQ IP1 0
SET RAM2 0
TSTEQ IP1 0
SET RAM3 0
TSTEQ IP1 0
SET RAM4 0
CALLSUB POMPE_AL1
CALLSUB POMPE_AL3
CALLSUB POMPE_OK2
CALLSUB POMPE_OK4
END
VARIABLE:
TSTEQ IP1 1
SET VAR1 0
TSTEQ IP1 0
SET VAR1 1
RET
POMPE_AL1:
TSTEQ IP1[1000] 1
CALLSUB EMAIL1
RET
POMPE_AL3:
TSTEQ IP1[1000] 1
CALLSUB EMAIL3
RET
POMPE_OK2:
TSTEQ VAR1[3500000] 1
CALLSUB EMAIL2
RET
POMPE_OK4:
TSTEQ VAR1[3500000] 1
CALLSUB EMAIL4
RET
EMAIL1:
SET OP1 1
TSTEQ RAM1 0
EMAIL EM1
DELAY 5000
SET RAM1 1
RET
EMAIL3:
SET OP1 1
TSTEQ RAM3 0
EMAIL EM3
DELAY 5000
SET RAM3 1
RET
EMAIL2:
SET OP1 0
TSTEQ RAM2 0
EMAIL EM2
DELAY 5000
SET RAM2 1
RET
EMAIL4:
SET OP1 0
TSTEQ RAM4 0
EMAIL EM4
DELAY 5000
SET RAM4 1
RET