Buenas soy nuevo por aca, espero me resivan bien, he preguntado por todas partes y nadie me da respuesta, este es mi ultimo intento.
En fin estaba modificando un codigo de un sensor de temperatura con un ml35 y un pic16f877A pero como ustedes saben el 877A ya quedo en desuso por lo tanto ya no lo sacan a la venta, el pic16f887 es el nuevo sustituto entonces decidi pasarme a el pero no doy, el programa corre correntamente en mikroc pero cuando lo emulo en proteus la pantalla queda en blanco en cambio utilizando el 877A funciona perfecto.
Les agradeceria sus ayudas
codigo
En fin estaba modificando un codigo de un sensor de temperatura con un ml35 y un pic16f877A pero como ustedes saben el 877A ya quedo en desuso por lo tanto ya no lo sacan a la venta, el pic16f887 es el nuevo sustituto entonces decidi pasarme a el pero no doy, el programa corre correntamente en mikroc pero cuando lo emulo en proteus la pantalla queda en blanco en cambio utilizando el 877A funciona perfecto.
Les agradeceria sus ayudas
codigo
Código:
unsigned char ch;
unsigned int adc_rd;
char *text,*text1;
long tlong;
int i,j;
// LCD module connections
sbit LCD_RS at RB4_bit;
//sbit LCD_RW at RB6_bit;
sbit LCD_EN at RB5_bit;
sbit LCD_D4 at RB0_bit;
sbit LCD_D5 at RB1_bit;
sbit LCD_D6 at RB2_bit;
sbit LCD_D7 at RB3_bit;
sbit LCD_RS_Direction at TRISB4_bit;
//sbit LCD_RW_Direction at TRISB6_bit;
sbit LCD_EN_Direction at TRISB5_bit;
sbit LCD_D4_Direction at TRISB0_bit;
sbit LCD_D5_Direction at TRISB1_bit;
sbit LCD_D6_Direction at TRISB2_bit;
sbit LCD_D7_Direction at TRISB3_bit;
// End LCD module connections
void main() {
/* TRISB = 0;
PORTB = 0xFF;
TRISB = 0xff;
ANSEL = 0; // Configure AN pins as digital I/O
ANSELH = 0; */
INTCON = 0;
trisb=0;
Lcd_init();//Lcd_Config(&PORTB, 4, 5, 6, 3, 2, 1, 0);
LCD_Cmd(_LCD_CURSOR_OFF); //antes LCD_Cmd(LCD_CURSOR_OFF);
LCD_Cmd(_LCD_CLEAR); //antes LCD_Cmd(LCD_CLEAR);
for(i=0;i<5;i++){
LCD_Cmd(_LCD_CLEAR);
text = "HOLA";
LCD_Out(1,i,text);
Delay_ms(100);
}
text1 = "COMO ESTAS";
LCD_Out(2,3,text1);
ADCON1 = 0x82;
TRISA = 0xFF;
Delay_ms(1000);
LCD_Cmd(_LCD_CLEAR);
text = "Temperatura:";
for(j=16;j>0;j--){
LCD_Cmd(_LCD_CLEAR);
LCD_Out(1,j,text);
Delay_ms(100);
}
while (1) {
adc_rd = ADC_read(2);
tlong = (long)adc_rd * 5000;
tlong = tlong / 1023 - 40;
ch = tlong / 1000;
if(ch==0)
LCD_Chr(2,6,' ');
else
LCD_Chr(2,6,48+ch);
ch = (tlong / 100) % 10;
LCD_Chr_CP(48+ch);
ch = (tlong / 10) % 10;
LCD_Chr_CP(48+ch);
LCD_Chr_CP('.');
ch = tlong % 10;
LCD_Chr_CP(48+ch);
LCD_Chr_CP('C');
Delay_ms(200);
}
}
