Exp_Ind-_FutureProfit_v_CodeBase

//+------------------------------------------------------------------+
//|                                           Exp - FutureProfit.mq4 |
//|                                       Copyright © 2009, expforex |
//|                                        http://www.expforex.at.ua |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, expforex"
#property link      "http://www.expforex.at.ua"
#property indicator_chart_window
int start()
  {
   Stamp2();
   int k;
   double Balance=0,profit=0,stop=0;

double b,a;
//----
  for (int i=0; i<OrdersTotal(); i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
    double tick=MarketInfo(OrderSymbol(), MODE_TICKVALUE)*OrderLots();
if (OrderType()==OP_BUY)
   {
      if(OrderTakeProfit()!=0)
    {
 
    a=  (OrderTakeProfit()-OrderOpenPrice())/MarketInfo(OrderSymbol(),MODE_POINT);
    b= a*tick;
    profit=profit+b;
 }
    if(OrderStopLoss()!=0)
    {
    a=  (OrderOpenPrice()-OrderStopLoss())/MarketInfo(OrderSymbol(),MODE_POINT);
    b= a*tick;
    stop=stop+b;
    }
   } 

if (OrderType()==OP_SELL)
   {
      if(OrderTakeProfit()!=0)
    {
    
    a=  (OrderOpenPrice()-OrderTakeProfit())/MarketInfo(OrderSymbol(),MODE_POINT);
    b= a*tick;
    profit=profit+b;
    }
        if(OrderStopLoss()!=0)
    {

    a=  (OrderStopLoss()-OrderOpenPrice())/MarketInfo(OrderSymbol(),MODE_POINT);
    b= a*tick;
    stop=stop+b;
     }
   } 


}
}
   
//----
   ObjectDelete("Original");
   ObjectDelete("Original3");

   ObjectCreate("Original", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original","Áàëàíñ="+DoubleToStr(AccountBalance(),2)+" Ïðè tp="+DoubleToStr(profit+AccountBalance(),2)+" Ïðè sl="+DoubleToStr(AccountBalance()-stop,2), 10, "Arial Bold", Green);
   ObjectSet("Original", OBJPROP_CORNER, 0);
   ObjectSet("Original", OBJPROP_XDISTANCE, 300);
   ObjectSet("Original", OBJPROP_YDISTANCE, 10);

   ObjectCreate("Original3", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original3","Ñóììà t/p"+DoubleToStr(profit,2)+" Ñóììà s/l="+DoubleToStr(stop,2), 10, "Arial Bold", Green);
   ObjectSet("Original3", OBJPROP_CORNER, 0);
   ObjectSet("Original3", OBJPROP_XDISTANCE, 300);
   ObjectSet("Original3", OBJPROP_YDISTANCE, 25);



if (AccountBalance()-stop<=(AccountBalance()/100)*20)
{
   ObjectDelete("Original");
   ObjectCreate("Original", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original","Áàëàíñ="+DoubleToStr(AccountBalance(),2)+" Ïðè tp="+DoubleToStr(profit+AccountBalance(),2)+" Ïðè sl="+DoubleToStr(AccountBalance()-stop,2)+" WARNING! STOPOUT ", 10, "Arial Bold", Red);
   ObjectSet("Original", OBJPROP_CORNER, 0);
   ObjectSet("Original", OBJPROP_XDISTANCE, 200);
   ObjectSet("Original", OBJPROP_YDISTANCE, 10);

   ObjectCreate("Original3", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original3","Ñóììà t/p"+DoubleToStr(profit,2)+" Ñóììà s/l="+DoubleToStr(stop,2), 10, "Arial Bold", Green);
   ObjectSet("Original3", OBJPROP_CORNER, 0);
   ObjectSet("Original3", OBJPROP_XDISTANCE, 300);
   ObjectSet("Original3", OBJPROP_YDISTANCE, 25);

}
   ObjectCreate("Original2", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original2","Ðàçðàáîòêà: http://expforex.at.ua", 15, "Arial Bold", Green);
   ObjectSet("Original2", OBJPROP_CORNER, 2);
   ObjectSet("Original2", OBJPROP_XDISTANCE, 300);
   ObjectSet("Original2", OBJPROP_YDISTANCE, 10);


   return(0);
  }
//+------------------------------------------------------------------+




void Stamp2(){

   ObjectCreate("Original", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original", " ---http://Expforex.at.ua---", 10, "Arial Bold", Red);
   ObjectSet("Original", OBJPROP_CORNER, 2);
   ObjectSet("Original", OBJPROP_XDISTANCE, 200);
   ObjectSet("Original", OBJPROP_YDISTANCE, 10);


}