cek_op

//+------------------------------------------------------------------+
//|                                                       cek OP.mq4 |
//|                               Copyright 2014, 101177ui@gmail.com |
//|                                              http://www.mql4.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2014, 101177ui@gmail.com"
#property link      "http://www.mql4.com"
#property indicator_chart_window

input bool Comment=true;//see comment

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   Comment("");
   return(INIT_SUCCEEDED);
  }
  
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   Comment("");
   ObjectsDeleteAll();
   return(0);
  }
  
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {double AM=AccountInfoDouble(ACCOUNT_MARGIN);
   if(AM==0)AM=Point;
   double ML=AccountInfoDouble(ACCOUNT_EQUITY)/AM*100;
   if(AM==0)ML=0;
   if(Comment)
      Comment("\n","ACCOUNT_BALANCE        =  ",AccountInfoDouble(ACCOUNT_BALANCE),
              "\n","ACCOUNT_PROFIT           =  ",AccountInfoDouble(ACCOUNT_PROFIT),
              "\n","ACCOUNT_EQUITY           =  ",AccountInfoDouble(ACCOUNT_EQUITY),
              "\n","ACCOUNT_MARGIN          =  ",AccountInfoDouble(ACCOUNT_MARGIN),
              "\n","ACCOUNT_FREEMARGIN  =  ",AccountInfoDouble(ACCOUNT_FREEMARGIN),
              "\n","MARGIN LEVEL                  =  ",ML," %"
              );
              
   string symbol=Symbol();
   int cntcb;
//+------------------------------------------------------------------+
//| gambar price aktual                                              |
//+------------------------------------------------------------------+
   
   for(cntcb=OrdersTotal(); cntcb>=0; cntcb--)
     {
      if(OrderSelect(cntcb,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==symbol)
           {
            string AN="BUY"+OrderOpenPrice()+TimeToStr(OrderOpenTime());
            if(OrderType()==0)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderOpenTime(),OrderOpenPrice(),3,Blue);
            AN="TPBUY"+OrderOpenPrice()+OrderTakeProfit()+TimeToStr(OrderOpenTime());
            if(OrderType()==0)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,Time[0],+OrderTakeProfit(),3,White);
            AN="SELL"+OrderOpenPrice()+TimeToStr(OrderOpenTime());
            if(OrderType()==1)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderOpenTime(),OrderOpenPrice(),3,Red);
            AN="TPSELL"+OrderOpenPrice()+OrderTakeProfit()+TimeToStr(OrderOpenTime());
            if(OrderType()==1)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,Time[0],+OrderTakeProfit(),3,Green);
           }
     }
//+------------------------------------------------------------------+
//| baca sejarah                                                     |
//+------------------------------------------------------------------+
   for(cntcb=0; cntcb<=OrdersHistoryTotal(); cntcb++)
     {
      if(OrderSelect(cntcb,SELECT_BY_POS,MODE_HISTORY))
         if(OrderSymbol()==symbol)
           {
            AN="BUY"+OrderOpenPrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==0)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderOpenTime(),OrderOpenPrice(),1,Blue);
            AN="CloseBUY"+OrderClosePrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==0)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderCloseTime(),OrderClosePrice(),11,White);
            AN="LCloseBUY"+OrderClosePrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==0)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  tren(AN,OrderOpenTime(),OrderOpenPrice(),OrderCloseTime(),OrderClosePrice(),5,Blue);
            AN="SELL"+OrderOpenPrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==1)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderOpenTime(),OrderOpenPrice(),1,Red);
            AN="CloseSELL"+OrderClosePrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==1)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  gbr(AN,OrderCloseTime(),OrderClosePrice(),11,Aqua);

            AN="LCloseSELL"+OrderClosePrice()+TimeToStr(OrderOpenTime());
            ObjectDelete(AN);
            if(OrderType()==1)
               if(ObjectGet(AN,OBJPROP_PRICE1)==0)
                  tren(AN,OrderOpenTime(),OrderOpenPrice(),OrderCloseTime(),OrderClosePrice(),5,Red);
           }
     }
   return(0);
  }
//+------------------------------------------------------------------+
//| kode panah                                                       |
//+------------------------------------------------------------------+
void gbr(string nama,datetime tempat,double harga1,int kode,color warna)
  {
   if(kode==1)
     {
      ObjectCreate(nama,OBJ_ARROW,0,tempat,harga1);
      ObjectSet(nama,OBJPROP_ARROWCODE,1);
      ObjectSet(nama,OBJPROP_COLOR,warna);
     }
   if(kode==11)
     {
      ObjectCreate(nama,OBJ_ARROW,0,tempat,harga1);
      ObjectSet(nama,OBJPROP_ARROWCODE,3);
      ObjectSet(nama,OBJPROP_COLOR,warna);
     }
   if(kode==2)
     {
      ObjectCreate(nama,OBJ_ARROW,0,tempat,harga1);
      ObjectSet(nama,OBJPROP_ARROWCODE,SYMBOL_RIGHTPRICE);
      ObjectSet(nama,OBJPROP_COLOR,warna);
      ObjectSet(nama,OBJPROP_PRICE1,harga1);
      ObjectSet(nama,OBJPROP_TIME1,tempat);
     }
   if(kode==3)
     {
      ObjectCreate(nama,OBJ_ARROW,0,tempat,harga1);
      ObjectSet(nama,OBJPROP_ARROWCODE,SYMBOL_LEFTPRICE);
      ObjectSet(nama,OBJPROP_COLOR,warna);
      ObjectSet(nama,OBJPROP_PRICE1,harga1);
      ObjectSet(nama,OBJPROP_TIME1,tempat);
     }
   if(kode==4)
     {
      ObjectCreate(nama,OBJ_HLINE,0,0,harga1);
      ObjectSet(nama,OBJPROP_COLOR,warna);
      ObjectSet(nama,OBJPROP_WIDTH,1);
      ObjectSet(nama,OBJPROP_RAY,False);
     }
   return;
  }//*/
//+------------------------------------------------------------------+
//| Gambar trenline                                                  |
//+------------------------------------------------------------------+
void tren(string nama,datetime tempat1,double harga1,datetime tempat2,double harga2,int kode,color warna)
  {
   if(kode==5)
     {
      ObjectCreate(nama,OBJ_TREND,0,tempat1,harga1,tempat2,harga2);
      ObjectSet(nama,6,warna);
      ObjectSet(nama,7,STYLE_DOT);
      ObjectSet(nama,10,0);
      ObjectSetText(nama,nama);
     }
   return;
  }