and if you take away the config part, it compiles without errors?
Copy and paste this, and try to compile.
Code:define osc 4 adcon1.7=1 ANSEL = %000001 '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 Locations Codice ASCII es. a=97 b=98 c=99 ... '=========================================================================== '***** 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 1250 Tmax VAR byte Tmin VAR byte '=========================================================================== Tmin=16 Tmax=30 START: Lcdout $FE, 1 'Clear screen rele=0 main: sample = 1 samples= 0 FOR sample = 1 TO 20 'Take 20 samples ADCIN 0, temp 'Read AN0 into temp variable samples = samples + temp PAUSE 50 ' Wait 1/4 seconds per reading NEXT sample temp = samples/20 'Average over 20 samples (Every 5 seconds) temperature= temp */ quanta LCDOUT $FE, 2 ' ritorna al primo carattere lcdout $FE, 2, "Temp ",dec2 (temperature/10),".", dec1 (temperature/10),"C" lcdout $FE, $C0, "Tmin ",#Tmin, " Tmax ",#Tmax If temperature > (Tmax*100) then rele=1 else rele=0 Endif goto main





Bookmarks