$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , Rs = Portc.3 , E = Portc.2
Const K = 25.7 / 1023
Config Adc = Single , Prescaler = Auto , Reference = Internal 'permite configurarar el adc
Start Adc
'EN ESTA VARIABLE SE MUESTRA LA TEMP. ACTUAL
Dim Prom As Byte
Dim T1 As Long
Dim T2 As Long
Dim T3 As Long
'VARIABLES PARA EL ADC DE TEMPERATURA
Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Word
Dim S As Single
Dim T As Single
Dim U As Single
Dim V As Single
Locate 1 , 1
Lcd "Sensores de"
Locate 2 , 1
Lcd "de Temperatura"
Wait 1
Cls
Do
A = Getadc(0)
S = A * K
T1 = S * 10
Locate 1 , 1
Lcd "Temperatura 1"
Locate 2 , 1
Lcd "TEMP.= " ; T1 ; "oC. "
Wait 1
Cls
B = Getadc(1)
T = B * K
T2 = T * 10
Locate 1 , 1
Lcd "Temperatura 2"
Locate 2 , 1
Lcd T2 ; "oC. "
Wait 1
C = Getadc(2)
U = C * K
T3 = U * 10
Locate 1 , 1
Lcd "Temperatura 3"
Locate 2 , 1
Lcd T3 ; "oC. "
Wait 1
Prom = T1 + T2
Prom = T3 + Prom
Prom = Prom / 3
Locate 1 , 1
Lcd "Promedio Total:"
Locate 2 , 1
Lcd Prom ; "oC. "
Wait 1
Cls
Locate 1 , 1
Lcd "Grupo"
Locate 2 , 1
Lcd "10"
Wait 1
Loop
End