Holaaaaaa ! primero es saludarlos y bueno les cuento, estoy recien empezando a aprender y crear mis primeros programas, y bueno tengo la programacion del termometro para mi 16lf84a y tengo armado todo el circuito,
solo me qeda arreglar la programacion a ver si alguien me brinda alguna ayuda
se lo agradeceria mucho
aqui esta
' termometro digital
'------------------------------------------
DEVICE 16f84a
SYMBOL DQ = PORTB.0
DIM Temp AS WORD
DIM C AS BYTE
DIM CPerD AS BYTE
'*******************************************
SYMBOL LCD = portb.1
SYMBOL Baund2 16468
SYMBOL I 254
SYMBOL clrr 1
'*******************************************
inicio:
OWRITE DQ, 1, [$CC, $44]
REPEAT
DELAYMS 25
OREAD DQ, 4, [C]
UNTIL C <> 0
OWRITE DQ, 1, [$CC, $BE]
OREAD DQ, 2,[Temp.LOWBYTE,Temp.HIGHBYTE, C, C, C, C, C, CPerD]
Temp = (((Temp >> 1) * 100) - 25) + (((CPerD - C) * 100) / CPerD)
SEROUT LCD, Baund2, [I,128,"TEMp = "]
SEROUT LCD, Baund2, [I,192," ",dec Temp /1000, ",",dec1 Temp,$df,"C"]
GOTO inicio
ojala alguien me ayude
gracias
