// declaration of Variables unsigned long power_old; unsigned long power_new; unsigned long power_new1; unsigned long va ; // voltage to calculate the current unsigned long vb ; // voltage to calculate the current unsigned short old_voltage_value; // the voltage analog input unsigned short new_voltage_value1; unsigned short new_voltage_value; // the new voltage unsigned short current_value ; // the current analog input unsigned short current_sensor ; short counter1 = 0; short counter2 = 0; short counter3 = 0; short counter4 = 0; short v_ref = 127; short d_ratio = 1; int ANSEL ; void InitMain() // initialization values function { ANSEL = 0b11000111; //set AN1 and AN2 as analog input PORTB = 255; TRISB = 255; // make port b as an input PORTD = 0; TRISD = 0; // make port d as an output PORTA = 255; TRISA = 255; // let port A be input (analog) PORTC = 0; TRISC = 0; // make it all outputs PWM1_Init(5000); // starting PWM1 functioning value at 5000 Hz frequency /*PWM2_Init(5000); // starting PWM1 functioning value at 5000 Hz frequency*/ } void main() { InitMain(); // calling reading values function once power_old =0 ; // set the value of the power for initialization old_voltage_value =0 ; // set the value of the voltage for initialization PWM1_Start(); // start the Pulse Width Modulation PWM1_Set_Duty(127); // Set the PWM for the Half duration

while (1) // infinite loop { new_voltage_value = ADC_Read(1); // get ADC value from 2nd channel (2nd pin of port A) current_sensor = ADC_Read(2); // get ADC value from 2nd channel (3rd pin of port A) new_voltage_value = new_voltage_value * (6.8); // geting the real value of the Voltage new_voltage_value1 = new_voltage_value ; current_sensor = current_sensor * (6.8); current_value = (( new_voltage_value - current_sensor )/(0.6)); // geting the real value of the Current power_new = new_voltage_value1 * current_value ; // Calculating the Power power_new1 = power_new; if ( power_new1 > power_old) { if( new_voltage_value1 > old_voltage_value ) // First Case {PWM1_Set_Duty(v_ref + counter1); v_ref = v_ref + counter1 ; counter1 = d_ratio ; } else { PWM1_Set_Duty(v_ref - counter2); // second Case v_ref = v_ref - counter2 ; counter2 = d_ratio ; } } else { if(new_voltage_value1 > old_voltage_value ) // Third Case { PWM1_Set_Duty(v_ref - counter3); v_ref = v_ref - counter3 ; counter3 = d_ratio ; } else { PWM1_Set_Duty(v_ref + counter4); // Forth Case v_ref = v_ref + counter4 ; counter4 = d_ratio ; } } // uptading the Values power_old = power_new1; old_voltage_value = new_voltage_value1 ; power_new1 = 0 ; new_voltage_value1=0 ; current_value = 0 ; new_voltage_value=0 ; power_new = 0;

delay_ms(4000); // delay for the performance ( Processing ) } }//end main