Etepic

#include <16F877.h>

#device adc=10

#FUSES NOWDT                    //No Watch Dog Timer
#FUSES HS                       //High speed Osc (> 4mhz for PCM/PCH) (>10mhz for PCD)
#FUSES NOBROWNOUT               //No brownout reset
#FUSES NOLVP                    //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O

#use delay(clock=10000000)

#use fast_io(a)
#use fast_io(b)
#use fast_io(c)
#use fast_io(d)
#use fast_io(e)

#include <lcd_driver.c>
#include <stdlib.h>

float akim=0,toplam=0,ort=0;
signed int16 data1=0,data2=0,data3;
int i=0;
int1 mode=0;

signed int16 calc_ort_adc(void);

void main()
{
   set_tris_a(0x01);
   set_tris_b(0x00);
   set_tris_c(0x00);
   set_tris_d(0x00);
   set_tris_e(0x07);
   
   output_a(0x00);
   output_b(0x00);
   output_c(0x00);
   output_d(0x00);
   output_e(0x00);
   
   setup_ccp1(CCP_OFF);
   setup_ccp2(CCP_OFF);   
   setup_spi(SPI_DISABLED);
   setup_adc(ADC_CLOCK_DIV_32);
   setup_adc_ports(AN0);  
   
   lcd_init(); 
   printf(lcd_putc,"\f");
   lcd_gotoxy(1,1);
   printf(lcd_putc,"AC-DC AKIM OLCER");
   while(TRUE)
   {
      if(!input(pin_e2))
      {
       mode=1-mode;
       while(!input(pin_e2)){}
      }
     
      if(mode) //AC ölçüm yapılıyor.
      { 
          data2=0;data1=0,data3=0;
          for(i=0;i<20;i++)
          {
             data2=calc_ort_adc(); //Örnek Al 
             if(data1<data2)data1=data2; //Max Değeri bul. data1, pozitif alternansın teğe değeri
             if(data3>data2)data3=data2; //Min Değeri bul. data3, negatif alternansın teğe değeri
             delay_ms(1);  
          }
          
          ort=(data1+abs(data3))/2;  //Ortalama tepe değer bulunuyor

          akim =(float)(ort*20)/395;   //Akım hesaplanıyor
          
          lcd_gotoxy(1,2);
          printf(lcd_putc,"AC AKIM :%fA  ",akim*0.707);//Tepe değer 0.707 ile çarpılıp ekrana efektif değer olarak yazılıyor. 
      }
      else
      {
          toplam=0;data1=0;
          for(i=0;i<20;i++) 
          {
         
            data1=calc_ort_adc();
            if(data1>=-5 && data1<=5)
            {
              toplam=0;
            }
            else
            {
              toplam+=data1;
            }
            delay_ms(1);
          }
          toplam=(float)toplam/20;
          if(toplam<0)
          {
            akim=(float)((toplam*20)/405.3);
          }
          else
          {
            akim=(float)((toplam*20)/405.2);
          }  
          lcd_gotoxy(1,2);
          printf(lcd_putc,"DC AKIM :%fA  ",akim);
      } 
      delay_ms(100);
   }

}

signed int16 calc_ort_adc(void)
{
  int i=0;
  signed int16 total=0;
  
  for(i=0;i<20;i++)
  {
    set_adc_channel(0);
    delay_us(20);
    total+=read_adc()-511;
  }
  total=total/20;

  return total;
}