TrackTrend_MACD_Color

//+------------------------------------------------------------------+
//|                                                   TrackTrend.mq4 |
//|                                                     Duke3DAtomic |
//|                                             duke3datomic@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

#property indicator_chart_window

// Ïåðèîäû òàéìôðåéìîâ:
// 0 - ïåðèîä òåêóùåãî ãðàôèêà
// 1 - M1
// 2 - M5
// 3 - M15
// 4 - M30
// 5 - H1
// 6 - H4
// 7 - D1
// 8 - W1
// 9 - MN1

int LabelCorner = 0;
extern int MACD_Fast = 12;
extern int MACD_Slow = 26;
extern int Signal_Period = 9;
int MACD_Price = 0;              // PRICE_CLOSE
int MACD_Shift = 0;

extern color color_Up;              // Öâåò óêàçàòåëÿ íàïðàâëåíèÿ òðåíäà ââåðõ
extern color color_Dn;              // Öâåò óêàçàòåëÿ íàïðàâëåíèÿ òðåíäà âíèç
extern color color_UpDn;            // Öâåò óêàçàòåëÿ íàïðàâëåíèÿ òðåíäà ââåðõ, ñ ïîñëåäóþùèì ðàçâîðîòîì âíèç
extern color color_DnUp;            // Öâåò óêàçàòåëÿ íàïðàâëåíèÿ òðåíäà âíèç, ñ ïîñëåäóþùèì ðàçâîðîòîì ââåðõ
extern color color_TimeFrame;       // Öâåò íàäïèñè òàéìôðåéìà


double RSI_0;
double RSI_1;
int RSI_TimeFrame = 3;
int RSI_Period = 14;
int RSI_Price = 0;
int RSI_Shift = 0;


double ADX_Main;
double ADX_Plus;
double ADX_Minus;
int ADX_TimeFrame = 3;
int ADX_Period = 14;
int ADX_Price = 0;
int ADX_Shift = 0;
   

extern int FontSize = 14;           // Ðàçìåð øðèôòà
string Font = "Times New Roman";
//string MACD_Comm1[];
//string MACD_Comm2[];
   

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   /*int i;
   for(i=1;i<=9;i++)
      {
      MACD_Comm1[i] = "Label1_"+i;
      GreatObjectLabel(MACD_Comm1[i],  10, i*FontSize+6);
      
      MACD_Comm2[i] = "Label2_"+i;
      GreatObjectLabel(MACD_Comm2[i],  50, i*FontSize+6);
      }*/
   int interval = 10;   
   GreatObjectLabel("Label1_1",  10, 1*FontSize+interval);
   GreatObjectLabel("Label1_2",  10, 2*FontSize+interval);
   GreatObjectLabel("Label1_3",  10, 3*FontSize+interval);
   GreatObjectLabel("Label1_4",  10, 4*FontSize+interval);
   GreatObjectLabel("Label1_5",  10, 5*FontSize+interval);
   GreatObjectLabel("Label1_6",  10, 6*FontSize+interval);
   GreatObjectLabel("Label1_7",  10, 7*FontSize+interval);
   GreatObjectLabel("Label1_8",  10, 8*FontSize+interval);
   GreatObjectLabel("Label1_9",  10, 9*FontSize+interval);
   
   GreatObjectLabel("Label2_1",  60, 1*FontSize+interval); 
   GreatObjectLabel("Label2_2",  60, 2*FontSize+interval);
   GreatObjectLabel("Label2_3",  60, 3*FontSize+interval);
   GreatObjectLabel("Label2_4",  60, 4*FontSize+interval);
   GreatObjectLabel("Label2_5",  60, 5*FontSize+interval);
   GreatObjectLabel("Label2_6",  60, 6*FontSize+interval);
   GreatObjectLabel("Label2_7",  60, 7*FontSize+interval);
   GreatObjectLabel("Label2_8",  60, 8*FontSize+interval);
   GreatObjectLabel("Label2_9",  60, 9*FontSize+interval);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   /*int i;
   for(i=1;i<=9;i++)
      {
      ObjectDelete(MACD_Comm1[i]);
      ObjectDelete(MACD_Comm2[i]);
      }*/
   ObjectDelete("Label1_1");
   ObjectDelete("Label1_2");
   ObjectDelete("Label1_3");
   ObjectDelete("Label1_4");
   ObjectDelete("Label1_5");
   ObjectDelete("Label1_6");
   ObjectDelete("Label1_7");
   ObjectDelete("Label1_8");
   ObjectDelete("Label1_9");
   
   ObjectDelete("Label2_1");
   ObjectDelete("Label2_2");
   ObjectDelete("Label2_3");
   ObjectDelete("Label2_4");
   ObjectDelete("Label2_5");
   ObjectDelete("Label2_6");
   ObjectDelete("Label2_7");
   ObjectDelete("Label2_8");
   ObjectDelete("Label2_9");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   string MACD_comment1,
          MACD_comment2,
          MACD_comment3,
          MACD_comment4,
          MACD_comment5,
          MACD_comment6,
          MACD_comment7,
          MACD_comment8,
          MACD_comment9;

   string com1, com2, com3, com4;
   com1 = "Up";
   com2 = "Down";
   com3 = "Up->Down";
   com4 = "Down->Up";
   
   color_TimeFrame = White;
   color_Up = Lime;
   color_Dn = DeepPink;
   color_UpDn = DodgerBlue;
   color_DnUp = DodgerBlue;
          
   int limit, i;
   int counted_bars = IndicatorCounted();
//---- ïðîâåðêà íà âîçìîæíûå îøèáêè
   if(counted_bars < 0) return(-1);
//---- ïîñëåäíèé ïîñ÷èòàííûé áàð áóäåò ïåðåñ÷èòàí
   if(counted_bars > 0) counted_bars--;
   limit = Bars - counted_bars;
//---- îñíîâíîé öèêë
   for(i=0; i<limit; i++)
     {
     /*for(i=1;i<=9;i++)
       {
       MACD_Comm1[i] = "Label1_"+i;
       MACD_Comm2[i] = "Label2_"+i;

       if(MACD(TimeFrame(i))==1)
          {
          ObjectSetText(MACD_Comm1[i],StrTimeFrame(i),FontSize,Font,color_TimeFrame);
          ObjectSetText(MACD_Comm2[i],com1,FontSize,Font,color_Up);
          }
       if(MACD(TimeFrame(i))==2)
          {
          ObjectSetText(MACD_Comm1[i],StrTimeFrame(i),FontSize,Font,color_TimeFrame);
          ObjectSetText(MACD_Comm2[i],com2,FontSize,Font,color_Dn);
          }
       if(MACD(TimeFrame(i))==3)
          {
          ObjectSetText(MACD_Comm1[i],StrTimeFrame(i),FontSize,Font,color_TimeFrame);
          ObjectSetText(MACD_Comm2[i],com3,FontSize,Font,color_UpDn);
          }
       if(MACD(TimeFrame(i))==4)
          {
          ObjectSetText(MACD_Comm1[i],StrTimeFrame(i),FontSize,Font,color_TimeFrame);
          ObjectSetText(MACD_Comm2[i],com4,FontSize,Font,color_DnUp);
          }
       }*/
//======== MN1 =====================================================================================
     if(MACD(TimeFrame(9))==1) 
       {
       ObjectSetText("Label1_1",StrTimeFrame(9),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_1",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(9))==2) 
       {
       ObjectSetText("Label1_1",StrTimeFrame(9),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_1",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(9))==3) 
       {
       ObjectSetText("Label1_1",StrTimeFrame(9),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_1",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(9))==4) 
       {
       ObjectSetText("Label1_1",StrTimeFrame(9),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_1",com4,FontSize,Font,color_DnUp);
       }
//======== W1 ======================================================================================
     if(MACD(TimeFrame(8))==1) 
       {
       ObjectSetText("Label1_2",StrTimeFrame(8),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_2",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(8))==2) 
       {
       ObjectSetText("Label1_2",StrTimeFrame(8),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_2",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(8))==3) 
       {
       ObjectSetText("Label1_2",StrTimeFrame(8),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_2",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(8))==4) 
       {
       ObjectSetText("Label1_2",StrTimeFrame(7),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_2",com4,FontSize,Font,color_DnUp);
       }
//======== D1 ======================================================================================
     if(MACD(TimeFrame(7))==1) 
       {
       ObjectSetText("Label1_3",StrTimeFrame(7),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_3",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(7))==2) 
       {
       ObjectSetText("Label1_3",StrTimeFrame(7),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_3",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(7))==3) 
       {
       ObjectSetText("Label1_3",StrTimeFrame(7),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_3",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(7))==4) 
       {
       ObjectSetText("Label1_3",StrTimeFrame(7),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_3",com4,FontSize,Font,color_DnUp);
       }
//======== H4 ======================================================================================
     if(MACD(TimeFrame(6))==1) 
       {
       ObjectSetText("Label1_4",StrTimeFrame(6),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_4",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(6))==2) 
       {
       ObjectSetText("Label1_4",StrTimeFrame(6),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_4",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(6))==3) 
       {
       ObjectSetText("Label1_4",StrTimeFrame(6),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_4",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(6))==4) 
       {
       ObjectSetText("Label1_4",StrTimeFrame(6),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_4",com4,FontSize,Font,color_DnUp);
       }
//======== H1 ======================================================================================
     if(MACD(TimeFrame(5))==1) 
       {
       ObjectSetText("Label1_5",StrTimeFrame(5),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_5",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(5))==2) 
       {
       ObjectSetText("Label1_5",StrTimeFrame(5),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_5",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(5))==3) 
       {
       ObjectSetText("Label1_5",StrTimeFrame(5),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_5",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(5))==4) 
       {
       ObjectSetText("Label1_5",StrTimeFrame(5),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_5",com4,FontSize,Font,color_DnUp);
       }
//======== M30 =====================================================================================
     if(MACD(TimeFrame(4))==1) 
       {
       ObjectSetText("Label1_6",StrTimeFrame(4),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_6",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(4))==2) 
       {
       ObjectSetText("Label1_6",StrTimeFrame(4),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_6",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(4))==3) 
       {
       ObjectSetText("Label1_6",StrTimeFrame(4),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_6",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(4))==4) 
       {
       ObjectSetText("Label1_6",StrTimeFrame(4),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_6",com4,FontSize,Font,color_DnUp);
       }
//======== M15 =====================================================================================
     if(MACD(TimeFrame(3))==1) 
       {
       ObjectSetText("Label1_7",StrTimeFrame(3),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_7",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(3))==2) 
       {
       ObjectSetText("Label1_7",StrTimeFrame(3),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_7",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(3))==3) 
       {
       ObjectSetText("Label1_7",StrTimeFrame(3),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_7",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(3))==4) 
       {
       ObjectSetText("Label1_7",StrTimeFrame(3),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_7",com4,FontSize,Font,color_DnUp);
       }
//======== M5 ======================================================================================
     if(MACD(TimeFrame(2))==1) 
       {
       ObjectSetText("Label1_8",StrTimeFrame(2),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_8",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(2))==2) 
       {
       ObjectSetText("Label1_8",StrTimeFrame(2),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_8",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(2))==3) 
       {
       ObjectSetText("Label1_8",StrTimeFrame(2),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_8",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(2))==4) 
       {
       ObjectSetText("Label1_8",StrTimeFrame(2),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_8",com4,FontSize,Font,color_DnUp);
       }
//======== M1 ======================================================================================     
     if(MACD(TimeFrame(1))==1) 
       {
       //ObjectSetText(MACD_Comm1[1],StrTimeFrame(1),FontSize,Font,color_TimeFrame);
       //ObjectSetText(MACD_Comm2[1],com1,FontSize,Font,color_Up);
       ObjectSetText("Label1_9",StrTimeFrame(1),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_9",com1,FontSize,Font,color_Up);
       }
     if(MACD(TimeFrame(1))==2) 
       {
       ObjectSetText("Label1_9",StrTimeFrame(1),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_9",com2,FontSize,Font,color_Dn);
       }
     if(MACD(TimeFrame(1))==3) 
       {
       ObjectSetText("Label1_9",StrTimeFrame(1),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_9",com3,FontSize,Font,color_UpDn);
       }
     if(MACD(TimeFrame(1))==4) 
       {
       ObjectSetText("Label1_9",StrTimeFrame(1),FontSize,Font,color_TimeFrame);
       ObjectSetText("Label2_9",com4,FontSize,Font,color_DnUp);
       }
//==============================================================================================
      
     /*if(RSI(TimeFrame(RSI_TimeFrame))==1)
      {
      RSI_comment = StrTimeFrame(RSI_TimeFrame)+" Up";
      }
     if(RSI(TimeFrame(RSI_TimeFrame))==0)
      {
      RSI_comment = StrTimeFrame(RSI_TimeFrame)+" Down";
      }*/
//==============================================================================================     
     }
//----
   return(0);
  }
//==================================================================================================
int MACD(int MACDTimeFrame)
   {
   int MACD_Trend;
   
   double MACD_Main_0;
   double MACD_Main_1;
   double MACD_Signal_0;
   double MACD_Signal_1;

   MACD_Main_0 = iMACD(Symbol(),MACDTimeFrame,MACD_Fast,MACD_Slow,Signal_Period,MACD_Price,MODE_MAIN,0);
   MACD_Main_1 = iMACD(Symbol(),MACDTimeFrame,MACD_Fast,MACD_Slow,Signal_Period,MACD_Price,MODE_MAIN,1);
   MACD_Signal_0 = iMACD(Symbol(),MACDTimeFrame,MACD_Fast,MACD_Slow,Signal_Period,MACD_Price,MODE_SIGNAL,0);
   MACD_Signal_1 = iMACD(Symbol(),MACDTimeFrame,MACD_Fast,MACD_Slow,Signal_Period,MACD_Price,MODE_SIGNAL,1);
   
   if(MACD_Main_0>MACD_Main_1 && MACD_Signal_0>MACD_Signal_1 && MACD_Main_0>MACD_Signal_0) {MACD_Trend = 1;}    // Òðåíä ââåðõ
   if(MACD_Main_0<MACD_Main_1 && MACD_Signal_0<MACD_Signal_1 && MACD_Main_0<MACD_Signal_0) {MACD_Trend = 2;}    // Òðåíä âíèç
   if(MACD_Main_0<MACD_Main_1 && MACD_Signal_0>MACD_Signal_1 && MACD_Main_0>MACD_Signal_0) {MACD_Trend = 3;}    // Òðåíä ââåðõ, ñ ïåðåõîäîì âíèç
   if(MACD_Main_0>MACD_Main_1 && MACD_Signal_0<MACD_Signal_1 && MACD_Main_0<MACD_Signal_0) {MACD_Trend = 4;}    // Òðåíä âíèç, ñ ïåðåõîäîì ââåðõ
   return(MACD_Trend);
   }
//==================================================================================================
/*int RSI(int RSI_TimeFrame)
   {
   int RSI_Trend;
   
   RSI_0 = iRSI(Symbol(),RSI_TimeFrame,RSI_Period,RSI_Price,0);
   RSI_1 = iRSI(Symbol(),RSI_TimeFrame,RSI_Period,RSI_Price,1);
   
   if(RSI_0>RSI_1)
      {RSI_Trend = 1;}
   if(RSI_0<RSI_1)
      {RSI_Trend = 0;}
   return(RSI_Trend);
   }
//==================================================================================================
int ADX(int ADX_TimeFrame)
   {
   int ADX_Trend;
   
   ADX_Main = iADX(Symbol(),ADX_TimeFrame,ADX_Period,ADX_Price,MODE_MAIN,ADX_Shift);
   ADX_Plus = iADX(Symbol(),ADX_TimeFrame,ADX_Period,ADX_Price,MODE_PLUSDI,ADX_Shift);
   ADX_Minus = iADX(Symbol(),ADX_TimeFrame,ADX_Period,ADX_Price,MODE_MINUSDI,ADX_Shift);
   
   return (ADX_Trend);
   }
*/
//==================================================================================================



//==================================================================================================
int TimeFrame(int Time_Period)   // ôóíêöèÿ âîçâðàùàåò ÷èñëîâîå çíà÷åíèå ïåðèîäà ãðàôèêà
  {
   switch(Time_Period) 
     {
      case 0: return(0);           // ïåðèîä òåêóùåãî ãðàôèêà
      case 1: return(1);           // M1
      case 2: return(5);           // M5
      case 3: return(15);          // M15
      case 4: return(30);          // M30
      case 5: return(60);          // H1
      case 6: return(240);         // H4
      case 7: return(1440);        // D1
      case 8: return(10080);       // W1
      case 9: return(43200);       // MN1
     }
  }
//==================================================================================================
string StrTimeFrame(int T_Frame)   // ôóíêöèÿ âîçâðàùàåò ñòðîêîâîå çíà÷åíèå ïåðèîäà ãðàôèêà
  {
   switch(T_Frame) 
     {
      case 0: return("Cur:");       // ïåðèîä òåêóùåãî ãðàôèêà
      case 1: return("M1:");        // M1
      case 2: return("M5:");        // M5
      case 3: return("M15:");       // M15
      case 4: return("M30:");       // M30
      case 5: return("H1:");        // H1
      case 6: return("H4:");        // H4
      case 7: return("D1:");        // D1
      case 8: return("W1:");        // W1
      case 9: return("MN1:");       // MN1
     }
  }
//==================================================================================================
int GreatObjectLabel(string NameObj, int Coord_X, int Coord_Y) // Ôóíêöèÿ ñîçäàíèÿ ìåòêè
  {
   ObjectCreate(NameObj, OBJ_LABEL, 0, 0, 0);
   ObjectSet(NameObj, OBJPROP_CORNER, LabelCorner);
   ObjectSet(NameObj, OBJPROP_XDISTANCE, Coord_X);
   ObjectSet(NameObj, OBJPROP_YDISTANCE, Coord_Y);
  }
//==================================================================================================