'**************************************************************** '* Name : LM35_10bit_Simple.BAS * '* Author : Reza Asgharian * '* Notice : Copyright (c) 2014 Reza Asgharian * '* : All Rights Reserved * '* Date : 11/17/2014 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** DEFINE osc 20 DEFINE LCD_DREG PORTD DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTE DEFINE LCD_RSBIT 0 DEFINE LCD_EREG PORTE DEFINE LCD_EBIT 1 DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 3 DEFINE ADC_SAMPLEUS 50 temp var word temperature var word quanta con 1250 TRISA = %11111111 ADCON1= %10001110 PAUSE 500 Lcdout $FE, 1 loop: ADCIN 0, temp PAUSE 5 temperature= (temp*10) */ quanta lcdout $FE,2 lcdout $FE,$80,"Temp ",DEC2 (temperature/100),".", DEC1 (temperature//100),$DF,"C" PAUSE 200 Goto loop End
دیدگاه