HolaAmigos del foro: He ahí el programa sobre comparador.
Realmente cambié lo relativo al programa al principio,pero lo que importa es lo relativo a
los comparadores y funcionó en Proteus.
Gracias a Reppuken y lordlafebre.
En el datasheet del 628, capítulo 10 y 11 viene claramente como manejarlos.
Tambien me sirvió el foro que me indicó Reppuken.
Saludos desde Rocha Uruguay
'****************************************************************
'* Name : martina.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 30/04/2006 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
PORTB=%00000000
'Hardware assignament
'---------------------
ValCensor var CMCON.7 ' Lee comparador 2 para bat baja
'port RA1 como entrada de +v bat
LEDCensor var PORTB.7 'port indicador de bat baja
'Control de comparador
'---------------------
CMCON=%00100101 'CM7 C2OUT salida (+) comparador2 (lectura solamente),
'CM6 C1OUT salida (+) comparador 1(lectura solamente),
'CM5 C2INV salida (-) " " 2,
'CM4 C1INV salida (-) "" " 1,
'CM3 Switch entrada comparador, no es relevante para
'modo de comparador 101
'Control de tension de referencia
'---------------------
VRCON=%11101100 '7VRE Habilit.(ENABLE)de tension de referencia(1=on),
'6VRON VREF Ouput enable,
'(1=conectar la salida de VREF a RA2)
'This is real convenient so we'll use it
'5VRR VREF selección de rango(1=low rango)
'4 no usado(0)
'VR3)
'VR2)Setea la tensión de referencia
'VR1)1100 set 2.5v en rango bajo
'VR0)
'
Pauseus 10 'Delay to allow for VREF to settle
trisa=%11111111
trisb=%00000000
Ledred var portb.0
Ledgreen var portb.1
inicio:
high Ledred
high Ledgreen
pause 5000
low Ledgreen
pause 1500
low ledred
LEDCensor=ValCensor 'you better believe it...just ONE line of code
if LEDCensor >0 then 'Si la tension del censor sobrepasa los 2.5 v
'Saltea las siguientes líneas,(hasta ENDIF)
i var byte ' declaro veriable, la cual cuenta:
for i=1 to 60 ' N veces
pause 1000 ' esta, y la siguiente linea del programa
toggle ledred ' invierte estado de Ledred
next i ' regresa a i
endif
end