Cambie el micro y pase directamente al 16F877
Bueno, ahora con dos mediciones de temperatura, mas reloj quedaria algo asi:
Define CONF_WORD = 0x3f72
Define CLOCK_FREQUENCY = 4
AllDigital
ADCON1 = 0x0e
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTC
Define LCD_RSBIT = 0
Define LCD_RWREG = PORTC
Define LCD_RWBIT = 1
Define LCD_EREG = PORTC
Define LCD_EBIT = 2
Define LCD_READ_BUSY_FLAG = 1
Lcdinit
Dim an0 As Word
Dim an1 As Word
Dim h As Word
Dim m As Word
Dim seg As Word
h = 0
m = 00
seg = 00
WaitMs 50
Lcdout "PEUGEOT 206"
Lcdcmdout LcdLine2Home
WaitMs 1000
Lcdout "El Leon"
WaitMs 2000
hora:
If PORTC.5 = 1 Then Goto sethora
Adcin 0, an0
Adcin 1, an1
Lcdcmdout LcdClear
Lcdout "T1:", #an0, " T2:", #an1
Lcdcmdout LcdLine2Home
Lcdout #h
Lcdout ":", #m
Lcdout ".", #seg
seg = seg + 1
If seg = 60 Then m = m + 1
If seg = 60 Then seg = 00
If m = 60 Then h = h + 1
If m = 60 Then m = 00
If h = 24 Then h = 00
WaitMs 1000
Lcdcmdout LcdLine2Clear
Goto hora
sethora:
Lcdcmdout LcdLine2Home
Lcdout #h
Lcdout ":" #m
Lcdout "." #seg
If PORTC.3 = 1 Then m = m + 1
If m = 60 Then m = 00
If PORTC.4 = 1 Then h = h + 1
If h = 24 Then h = 00
WaitMs 500
If PORTC.5 = 1 Then Goto sethora
Goto hora
End
El reloj tiene como modificacion el switch en PORTC.5 que al activarlo me permite cambiar horas y minutos mas rapidamente que en en codigo inicial que era una actualizacion por segundo, ahora se baja el tiempo a la mitad. Si el switch no esta activado el tiempo no se puede modificar.
Otra cosa nueva, al iniciar por primera vez el sistema, aparecera un mensaje, la idea (lo hare mas adelante) es que al poner el vehiculo en contacto aparezca el mensaje y luego la lectura de horas y temperatura, mientras que estando el vehiculo "apagado" solo se vea la hora, eso lo hago con un relecito en alguna de las entradas del micro.
Aca dejo el archivo para proteus y el hex para que lo prueben si quieren, pero los tiempos que tiene son diferentes, para poder ver mejor en la simulacion, si pongo los tiempos reales en waitms anda muy lento.
Exitos!