Pic18f4520 ile Voltampermetre devresi

[Eolos]

Elimde şöyle bir kod var. Baskı devre Kartı hazırladım pic16f877a ile mükemmel çalışıyor. Yalnız aynı kodu Pic 18f4520 için yeni hex hazırlamama rağmen bir türlü çalıştıramadım.

Sorun port ayarlarında ondan eminim. Sadece LCD komutlarını atarsam LCD'den görüntü alabiliyorum, yani text mesajlar vs çıkıyor. Ama üstüne portları input output olarak ayarlayıp ADC eklediğimde sadece LCD'nin üst satırında siyah kutular görebiliyorum. Dediğim gibi aynı kod Pic16F ile mükemmel çalışıyor.

4 Mhz harici kristal kullanıyorum, A ve E portları opamptan veri alıyor. C ve D portları fan led vs çalıştırıyor. B portu ise LCD'ye ayarlı.

Linke bakarsanız eğer;  https://circuitnegma.wordpress.com/2008/06/18/pin-configuration-pic16f877-40pins-vs-pic18f4520-40pins/

Pic18'in 1 nolu pininde Pic16'dan farklı olarak RE3 var, O yüzden TrisE ile hepsini açmayıp RE3'ü kapatıyorum. Yine Pic18'in 13-14 nolu kristal bağlanan pinlerinde RA6 ve RA7 var, bunları da kapatıyorum. B portunu da output olarak bizzat belirtiyorum.

Ama hüsranı değiştiremedim. Göz atabilirseniz eğer memnun olurum.

//LCD
sbit LCD_RS at RB7_bit;
sbit LCD_EN at RB6_bit;
sbit LCD_D4 at RB5_bit;
sbit LCD_D5 at RB4_bit;
sbit LCD_D6 at RB3_bit;
sbit LCD_D7 at RB2_bit;

sbit LCD_RS_Direction at TRISB7_bit;
sbit LCD_EN_Direction at TRISB6_bit;
sbit LCD_D4_Direction at TRISB5_bit;
sbit LCD_D5_Direction at TRISB4_bit;
sbit LCD_D6_Direction at TRISB3_bit;
sbit LCD_D7_Direction at TRISB2_bit;

//Declarare variabile
unsigned char ch, ADCx;
unsigned int Voltage, Current;
unsigned long V, I, Pw;


void main() {
     INTCON = 0;                             
     TRISA = 0xFF;
     TRISE = 0xFF;                           
     TRISC = 0x00;                   
     PORTC = 0;                     
     TRISD = 0x00;                   
     PORTD = 0;


     Lcd_Init();                             
     Lcd_Cmd(_LCD_CURSOR_OFF);             
     Lcd_Cmd(_LCD_CLEAR);                   
     Delay_ms(600);                         
     Lcd_Out(1,5,"DENEME");         
     Lcd_Out(2,2,"ELECTRIC");               
     Delay_ms(800);
     Lcd_Cmd(_LCD_CLEAR);                   
     Lcd_Out(1,4,"ALTERNATIVE");       
     Lcd_Out(2,4,"POWER SYSTEMS");                 
     Delay_ms(1000);
     Lcd_Cmd(_LCD_CLEAR);

      while (1) {
            //ADC
            Voltage = 0;
            Current = 0;

            for (ADCx=0; ADCx<10; ADCx++) {
            Voltage += ADC_Read(0);         
            Current += ADC_Read(1);           
            Delay_ms(30);
            }

            //Voltage
            Voltage = Voltage/ADCx;       
            V = (long)Voltage*1000;         
            V = V/1023;                     
            ch = V/1000;                     
            Lcd_Chr(1,1,48+ch);             
            ch = (V/100) % 10;               
            Lcd_Chr_CP(48+ch);               
            ch = (V/10) % 10;               
            Lcd_Chr_CP(48+ch);             
            Lcd_Chr_CP('.');                 
            ch = (V/1) % 10;               
            Lcd_Chr_CP(48+ch);
            ch = V % 10;                     
            Lcd_Chr_CP(48+ch);
            LCD_Chr_CP('V');                 
            Delay_ms(30);

            //Current
            Current = Current/ADCx;           
            I = (long)Current*5000;           
            I = I/1023;                     
            ch = I/1000;                   
            Lcd_Chr(1,9,48+ch);             
            ch = (I/100) % 10;             
            Lcd_Chr_CP(48+ch);             
            Lcd_Chr_CP('.');
            ch = (I/10) %10;               
            Lcd_Chr_CP(48+ch);               
            ch = I % 10;                     
            Lcd_Chr_CP(48+ch);
            Lcd_Chr_CP('A');                 
            Delay_ms(30);

            //Power
            Pw = V*I/1000;                   
            ch = Pw/1000;                   
            Lcd_Chr(2,1,48+ch);             
            ch = (Pw/100) % 10;             
            Lcd_Chr_CP(48+ch);
            ch = (Pw/10) %10;               
            Lcd_Chr_CP(48+ch);
            ch = Pw % 10;                   
            Lcd_Chr_CP(48+ch);
            Lcd_Chr_CP('W');               
            Delay_ms(30);
      }
}
}