Buenas tardes :
Que tal amigos como estan, escribo para ver si me pueden ayudar con un problema que tengo.
Estoy construyendo un sensor de temp con el Pic 18F252, resulta que simulado en el Proteus me funciona de maravilla, pero lo monto en protoboard y no funciona igual, mido el voltaje en el pin out del sensor y me da bien el voltaje deacuerdo a la temp pero en el lcd sale un valor diferente. Este es el codigo:
Device 18F252 'DEFINICION REFERENCIA DEL PIC
XTAL = 4 'DEFINICION DE OSCILADOR EXTERNO
Declare WATCHDOG FALSE 'DESHABILITAR PERRO GUARDIAN
ALL_DIGITAL true 'CONFIGURAMOS PUERTOS COMO DIGITALES
OSCCON = %1100100 'calibra oscilador interno a 4Mhz
'**********************************************************************************************
'*CONFIGURACION DEL LCD Y TECLADO
Declare LCD_TYPE 0 ' TIPO DE LCD , 1 PARA GRAFICAS, 0 PARA ALFANUMERICO
Declare LCD_INTERFACE 4 ' LINEAS A USAR 4
Declare LCD_DTPIN PORTC.0 'C0-D4 C1-D5 C2-D6 C3-D7
Declare LCD_LINES 2 'PORQUE EL LCD ES 2 X 16
Declare LCD_ENPIN PORTA.3 ' PIN E DEL LCD AL PUERTO A.3
Declare LCD_RSPIN PORTA.2 'PIN RS DEL LCD AL PUERTO C.3
Declare KEYPAD_PORT PORTB 'PUERTO PARA EL TECLADO
PORTB_PULLUPS TRUE 'ACTIVA PULL UPS PUERTO B
Output PORTC
Output PORTA.4
Output PORTA.5 'PUERTO C COMO SALIDA
'**********************************************************************************************
'DECLARACION DE VARIABLES
Declare ADC_BITS 10
Declare ADC_CLOCK 3
Declare ADC_SAMPLEUS 50
Dim SENSAR As Word
Dim TEMP1 As Byte
TRISA = %1
DelayMS 1000
ADCON1 = %10001110
DelayMS 100
Cls
INICIO:
SENSAR = ADIn 0
TEMP1 = (SENSAR *4.88) /10
Print " ",0," TEMP:",DEC3,TEMP1,1 ,"C"
DelayMS 1000
Print Cls
GoTo INICIO
'***********************************************************************************************
'CARACTERES ESPECIALES LCD LOGO DE TERMOMETRO Y º EN TEMP.
Print $FE,$40,$04,$04,$04,$04,$04,$0E,$1F,$0E 'ESPACIO 0 CGRAM
Cls
Print $FE,$40,$04,$04,$04,$04,$0E,$1F,$0E,$04
Cls
Print $FE,$48,$00,$06,$06,$00,$00,$00,$00,$00 'ESPACIO 1 DE CGRAM
Cls
Print $FE,$50,$00,$00,$00,$1F,$1F,$00,$00,$00 'ESPACIO 2 DE CGRAM
Cls
PD. el codigo lo hice en el software proton y en lenguaje basic.
de antemano muchas gracias.
