Compare value ...

[richard]

i get same result from proteus

'****************************************************************'*  
'*  Name    : 16F88_LM35.BAS                                   *
'*  Author  :                                    *
'*  Notice  : Copyright (c) 2020                                *
'*          : All Rights Reserved                               *
'*  Date    : 04/04/2020                                        *
'*  Version : 1.0                                               *
'*           PIC 16F88
'****************************************************************
#CONFIG
  __config  _CONFIG1, _INTRC_IO & _WDT_ON & _PWRTE_OFF & _MCLR_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_PROTECT_OFF & _DEBUG_OFF & _CCP1_RB0 & _CP_OFF
  __config  _CONFIG2, _FCMEN_ON & _IESO_ON
#ENDCONFIG


adcon1.7=1
ANSEL  = %00000001 'Disable Inputs Tranne AN0
OSCCON = %01100000 'Internal RC set to 4MHZ
TRISA  = %10111111 ' impostazioni INP/OUT
TRISB  = 0 ' delle porte
'----------------------------------------------------
DEFINE LCD_DREG PORTB       'Porta B DATA OUT 
DEFINE LCD_DBIT 4           '0 --> Bit 0-3 : 4 --> Bit 4-7 
DEFINE LCD_RSREG PORTB      'LCD register select port - Porta B --> RS
DEFINE LCD_RSBIT 2          'LCD register select bit  - Pin RS B2
DEFINE LCD_EREG PORTB       'LCD enable port - Porta B --> EN
DEFINE LCD_EBIT 3           'LCD enable bit - Pin EN B3DEFINE LCD_BITS 4           'LCD bus size 4 or 8 
DEFINE LCD_LINES 2          'Number lines on LCD DEFINE LCD_COMMANDUS 2000   'Command delay time in us 
DEFINE LCD_DATAUS 50        'Data delay time in us

'    EEPROM 
 data @0,16,30
'===========================================================================
'*****  SETTAGGIO PORTE 
Rele   VAR    PORTA.6     '                  Pin 15

'---------Define ADCin Parameters   
DEFINE ADC_BITS 10      'set number of bits in result
DEFINE ADC_CLOCK 3      'set clock source (3=rc)
DEFINE ADC_SAMPLEUS 50  'Set sampling time in uS

'    RAM Assignments and Variables
'=========================================================================== 
temp var word
temperature var word
samples var word
sample VAR BYTE
quanta con 1249
Tmax VAR byte
Tmin VAR byte
'===========================================================================
pause 500
START:
    read 0,tmin,tmax
    Lcdout $FE, 1           'Clear screen
    rele=0
main:
    samples=0
    FOR sample = 1 TO 10 'Take 10 samples
        ADCIN 0, temp 'Read AN0 into temp variable
        samples = samples + temp
        PAUSE 40 ' Wait 1/4 seconds per reading
    NEXT sample
    temp = samples/10 'Average over 10 samples 
    temperature= temp */ quanta
    LCDOUT $FE, 1 ' cancella LCD
    lcdout "Temp ",dec2 (temperature/10),".", dec1 (temperature//10),$DF,"C"
    lcdout $FE, $C0,"temp ", dec temp 
    If temperature > (Tmax*10) then
        rele=1
    else
        rele=0
    Endif                           
goto main