Old classic If-Then...

[Acetronics2]

Hi Ioannis

I do not Understand you ...

'Essai 16F84 Random

DEFINE LCD_EBIT 1                          ' Other LCD pins are same as Manual - Holy Manual - my sweet Manual ...

'   DEFINE LCD_DREG PORTB               ' I/O port where LCD is connected
'   DEFINE LCD_DBIT 0
'   DEFINE LCD_RSREG PORTB
'   DEFINE LCD_RSBIT 4                  ' Register select pin
'   DEFINE LCD_EREG PORTB
'   DEFINE LCD_EBIT 5                   ' Enable pin
'   DEFINE LCD_BITS 4                   ' 4-bit data bus
'   DEFINE LCD_LINES 2                  ' LCD has 2 character lines
 
   DEFINE OSC 4
   
@	__config _XT_OSC & _WDT_ON & _CP_OFF

'*****************************************************************************
'Variables

Level 	   		var Word
High_Level 		var Word

Onboard_an2		var Word
PressLimit 		var Word

Auto1			var Bit
Thermikol 		var Bit
Thermistor1		var Bit
Pump			var Bit

LevelOk			var Bit
PressOk			var Bit

module_rel_out	var Portb.7

'*****************************************************************************
'Constantes

'*****************************************************************************
'Preset

CLEAR

PORTA = 0
PORTB = 0

TRISA = 0
TRISB = 0

High_Level 	= 40000
Level		= 0
Thermikol   = 1
Thermistor1	= 1
Onboard_an2 = 500
PressLimit 	= 35000

Auto1		= 1
Pump		= 0



PAUSE 500

LCDOUT $FE,1

RANDOM Level
RANDOM Onboard_An2

Loop:

RANDOM Level
RANDOM Onboard_An2

IF (level <= high_Level) THEN
 	PORTB.5 = 1
ELSE
  	PORTB.5 = 0
ENDIF

IF ( onboard_an2 <= PressLimit ) THEN
 	PORTB.6 = 1
ELSE
  	PORTB.6 = 0
ENDIF

Module_rel_out =  (level <= high_Level) && Thermikol && Thermistor1 && Auto1 && ( onboard_an2 <= PressLimit ) && !Pump  

LCDOUT $FE,2,# Module_Rel_Out ,"   ",DEC5 Level ," ",DEC5 Onboard_an2 ,"  "
LCDOUT $FE,$C0,"out", DEC5 High_Level, " ", DEC5 Presslimit 

PAUSE 300

IF Module_rel_out THEN PAUSE 500

GOTO Loop

END

As you see ... I played somewhat with my Personnal Testboard to verify everything was running fine ...

And it runs fine !!!

"your" line is here :

Module_rel_out =  (level <= high_Level) && Thermikol && Thermistor1 && Auto1 && ( onboard_an2 <= PressLimit ) && !Pump

...

Value Comparisons or logic levels have equal behaviour here ...

Cheers ...

Alain