electrónica - medición de temperatura

PROYECTOS » medición de temperatura

1

5

9

14

2

6

10

15

3

7

11

16

4

8

13

17

'****************************************************************

'* Name : UNTITLED.BAS *

'* Author : [select VIEW...EDITOR OPTIONS] *

'* Date : 15/03/2022 *

'* Version : 1.0 *

'* Notes : *

'* : *

'****************************************************************

INCLUDE "MODEDEFS.BAS"

DEFINE LCD_DREG PORTD 'CONFIGURACION DE LCD

DEFINE LCD_DBIT 4

DEFINE LCD_RSREG PORTD

DEFINE LCD_RSBIT 0

DEFINE LCD_EREG PORTD

DEFINE LCD_EBIT 1

TRISA = %00011111 'PORTA.0...PORTA.4 ENTRADAS

TRISB = %00000000 'PUERTO B TODAS SALIDAS

'DEFINICION DE VARIABLES '

T VAR WORD : TL VAR WORD : TH VAR WORD

'INICIO DE PROGRAMA'

INICIO:

PAUSE 500 'ESPERA 0.5 SEG. PARA INICIAR LCD

LCDOUT $FE, 1, "FACFYM - UNPRG " 'SALUDO INICIAL

LCDOUT $FE,$C0,"TEMP SENSOR LM35" 'SALUDO INICIAL

PAUSE 1500 'ESPERA 1.5 SEG

ADCON1 = $02 'SEL ANO...AN4 COMO ENTRADAS ANALOGICAS

HIGH PORTB.7 'INICIA EN ALTO EL LED OPER

GOTO PRINCIPAL 'SALTO A SUBRUTINA PRINCIPAL

END

'PROGRAMA PRINCIPAL'

PRINCIPAL:

GOSUB TEMPERATURA 'SALTO A SUBRUTINA TEMPERATURA

LCDOUT $FE, 1,"ING.ELECTRONICA" 'VISUALIZA VALORES

LCDOUT $FE,$C0,"TEMPERATURA=",DEC T," C" 'VIZUALIZA VALORES

PAUSE 250 'ESPERA 250 MILISEGUNDOS

TOGGLE PORTB.7 'ALTERNA EL ESTADO DEL LED OPER

GOTO PRINCIPAL 'SALTA A SUBRUTINA PRINCIPALK

END

'SUBRUTINA PARA LEER ADC'

TEMPERATURA:

ADCON0 = $41 '$01000001: FOSC/8;ACTUIVA CANAL 0 ,JUST IZQU.

GOSUB ESPERA 'SALTA A SUBRUTINA ESPERA

TH=ADRESH*4 'DEZPLAZA EL REG ADRESH 2 BITS IZQUIERDA

TL=ADRESL/64 'DESPLAZA EL REG ADRESL 6 BITS DERECHA

T=TH+TL 'FORMA EL DATO TEMPERATURA DE 10 BITS

T=T/2 'LM 0-1V ; VALOR T:0-205 :1023/5

RETURN

'SUBRUTINA DE ESPERA'

ESPERA:

PAUSEUS 50 'ESPERA 50 MICROSEGUNDOS

ADCON0.2 = 1 'INICIA LA CONVERSACION

PAUSEUS 50 'ESPERA PARA TERMINAR LA CONVERSASION

RETURN