antes que nada quisiera presentarme,soy alejandro y escribo desde italia.
hecha la presentaciòn,vamos al problema.a un pic 16f876a he conectado una LDR(entrada de 5V y salida hacia el pin a traves de una resistencia de 100ohm) para leer valores de intensidad de luz.un led para senalar el LDR izquierdo(PORTB.7) y un led para senalar el LDR derecho(PORTB.6)
creo que es un problema di configuraciòn de las puertas analogicas de entrada(PORTA.0 e PORTA.1).
1)el valor de alimentaciòn de las LDR es de 5V
2)el valor en salida de las LDR es de 3,5V(luz de casa) e 4,9V(iluminada con linterna)
3)si ilumino una o la otra el tester releva la diferencia di voltaje de salida de cada LDR,mas los led de test son siempre encendidos.
4)agregue un control de los valores de entrad en PORTA para ver si los LDR "envian" algun valor.los led no se apagan,o sea que entran en las puertas.
5)si desconecto una entrada al ingreso del pic,el led de test de ese ingreso se apaga y si lo conecto se enciende.mas si desconecto las dos entrada,se apagan los dos led de test(ver punto 4),confirmando que los LDR funcionan y las PORTA "ven" el input,mas no en analogico.no he desabilitado los comparadores con COMCON.
este es el code:
DEFINE DEVICE PIC16F876A
DEFINE XT_OSC
DEFINE OSC 4
DEFINE LVP_OFF
DEFINE WRT_OFF
DEFINE DEBUG_OFF
DEFINE PROTECT_OFF
DEFINE WDT_OFF
DEFINE PWRT_ON
DEFINE BOD_OFF
DEFINE MCLR_ON
DEFINE CPD_OFF
'************ CONFIGURACION PUERTAS ***********************
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
'********* PUERTAS **************************************
symbol Led_derecho=PORTB.6
symbol Led_izquierdo=PORTB.7
'********* CONFIGURACION ANALOGICA PUERTAS *****************
TRISA=%111111
PORTA=0
ADCON1=%10000000
ADCON0=%00000001
INTCON=0
'************************************************* ******************************
output Led_derecho
output Led_izquierdo
'*************************** VARIABLES *****************************************
Valor_LDR_DX var word
Valor_LDR_SX var word
'*************************** CICLO *********************************************
pause 500
Ciclo:
Adcin 0,Valor_LDR_sX
Adcin 1,Valor_LDR_DX
if Valor_LDR_dX>valor_ldr_sx then
Led_derecho=1
Led_izquierdo=0
endif
if Valor_LDR_dX<valor_ldr_sx then
Led_derecho=0
Led_izquierdo=1
endif
if (Valor_LDR_DX=0) and (Valor_LDR_sX=0) then
Led_izquierdo=0
Led_derecho=0
endif
if Valor_LDR_DX=Valor_LDR_sX then
Led_izquierdo=1
Led_derecho=1
endif
pause 100
goto ciclo
