Navigation´╝ÜHome > Content >

iPanel_Indicators_v1.mq4

Time: 2013-07-04 | Download file:iPanel_Indicators_v1.mq4

/*
   G e n e r a t e d  by ex4-to-mq4 decompiler FREEWARE 4.0.509.5
   Website:  Ht tp:// www. m etaq U oT e s .N E T
   E-mail : Su pPO rT@mEta Qu Otes .NET
*/

#property indicator_chart_window

int Gi_76 = 25;
int Gi_80 = 13;
int Gi_84 = 10;
int Gi_88 = 10;
int Gi_92 = 8;
//int Gia_96[] = {1, 5, 15, 30, 60, 240};
int Gia_96[] = {30, 60, 240, 1440, 10080};
int Gia_100[] = {14, 14, 6, 6, 6, 6};
int Gia_104[] = {50, 34, 14, 14, 14, 14};
//string Gsa_108[] = {"1m", "5m", "15m", "30m", "1h", "4h"};
string Gsa_108[] = {"M30", "H1", "H4", "D1", "W1"};
string Gsa_112[] = {"STOCH", "RSI", "CCI", "MACD", "EMA1", "EMA2"};
extern color Text_color=clrWhite;
extern string Corner_Settings = "0 - Left_Up, 1 - Right_Up, 2 - Left_Down, 3- Right_Down";
extern int Corner = 1;
extern string Stochastic_Settings = "=== Stochastic Einstellungen ===";
extern int PercentK = 8;
extern int PercentD = 3;
extern int Slowing = 3;
extern string RSI_Settings = "=== RSI Einstellungen ===";
extern int RSIP1 = 14;
extern int RSIP2 = 70;
extern string MACD_Settings = "=== MACD Einstellungen ===";
extern int FastEMA = 12;
extern int SlowEMA = 24;
extern int MACDsp = 6;
extern string EMA_Settings = "=== MA Einstellungen ===";
extern int shortP1 = 5;
extern int shortP2 = 8;
extern int longP1 = 26;
extern int longP2 = 52;
extern string My_Symbols = "=== Wingdings Symbole ===";
extern int sBuy = 233;
extern int sSell = 234;
extern int sWait = 54;
extern int sCCIAgainstBuy = 238;
extern int sCCIAgainstSell = 236;

int init() {
   IndicatorShortName("iPanel");
   return (0);
}

int deinit() {
   ObjectsDeleteAll(0, OBJ_LABEL);
   for (int Li_0 = 0; Li_0 < 6; Li_0++) for (int Li_4 = 0; Li_4 < 6; Li_4++) ObjectDelete("tPs" + Li_0 + Li_4);
   for (Li_4 = 0; Li_4 < 6; Li_4++) ObjectDelete("tInd" + Li_4);
   for (Li_0 = 0; Li_0 < 6; Li_0++) for (Li_4 = 0; Li_4 < 6; Li_4++) ObjectDelete("dI" + Li_0 + Li_4);
   for (Li_0 = 0; Li_0 < 6; Li_0++) for (Li_4 = 0; Li_4 < 6; Li_4++) ObjectDelete("tI" + Li_0 + Li_4);
   return (0);
}

int start() {
   ObjectCreate("Indicators", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Indicators", "iPanel_INDICATORS", 8, "Arial Bold", Text_color);
   ObjectSet("Indicators", OBJPROP_CORNER, Corner);
   ObjectSet("Indicators", OBJPROP_XDISTANCE, 5);
   ObjectSet("Indicators", OBJPROP_YDISTANCE, 5);
   for (int Li_0 = 0; Li_0 < 6; Li_0++) 
   {
      ObjectCreate("tper" + Li_0, OBJ_LABEL, 0, 0, 0);
      ObjectSetText("tper" + Li_0, Gsa_108[Li_0], Gi_92, "Arial Bold", Text_color);
      ObjectSet("tper" + Li_0, OBJPROP_CORNER, Corner);
      ObjectSet("tper" + Li_0, OBJPROP_XDISTANCE, Li_0 * Gi_76 + 45);
      ObjectSet("tper" + Li_0, OBJPROP_YDISTANCE, Gi_88 + 6);
   }
   for (int Li_4 = 0; Li_4 < 6; Li_4++) 
   {
      for (int Li_8 = 0; Li_8 < 6; Li_8++) {
         ObjectSet("tPs" + Li_4 + Li_8, OBJPROP_CORNER, Corner);
         ObjectSet("tPs" + Li_4 + Li_8, OBJPROP_XDISTANCE, Li_4 * Gi_76 + Gi_84);
         ObjectSet("tPs" + Li_4 + Li_8, OBJPROP_YDISTANCE, Li_8 * Gi_80 + Gi_88 + 6);
      }
   }
   for (Li_8 = 0; Li_8 < 6; Li_8++) 
   {
      ObjectCreate("tInd" + Li_8, OBJ_LABEL, 0, 0, 0);
      ObjectSetText("tInd" + Li_8, Gsa_112[Li_8], Gi_92, "Arial Bold", Text_color);
      ObjectSet("tInd" + Li_8, OBJPROP_CORNER, Corner);
      ObjectSet("tInd" + Li_8, OBJPROP_XDISTANCE, Gi_84 - 5);
      ObjectSet("tInd" + Li_8, OBJPROP_YDISTANCE, Li_8 * Gi_80 + 27);
   }
   for (Li_4 = 0; Li_4 < 6; Li_4++) 
   {
      for (Li_8 = 0; Li_8 < 6; Li_8++) {
         ObjectCreate("dI" + Li_4 + Li_8, OBJ_LABEL, 0, 0, 0);
         ObjectSetText("dI" + Li_4 + Li_8, " ", 10, "Wingdings", Goldenrod);
         ObjectSet("dI" + Li_4 + Li_8, OBJPROP_CORNER, Corner);
         ObjectSet("dI" + Li_4 + Li_8, OBJPROP_XDISTANCE, Li_4 * Gi_76 + (Gi_84 + 35));
         ObjectSet("dI" + Li_4 + Li_8, OBJPROP_YDISTANCE, Li_8 * Gi_80 + 27);
      }
   }
   for (Li_4 = 0; Li_4 < 6; Li_4++) 
   {
      for (Li_8 = 0; Li_8 < 6; Li_8++) {
         ObjectCreate("tI" + Li_4 + Li_8, OBJ_LABEL, 0, 0, 0);
         ObjectSetText("tI" + Li_4 + Li_8, "    ", 9, "Arial Bold", Goldenrod);
         ObjectSet("tI" + Li_4 + Li_8, OBJPROP_CORNER, Corner);
         ObjectSet("tI" + Li_4 + Li_8, OBJPROP_XDISTANCE, Li_4 * Gi_76 + (Gi_84 + 15));
         ObjectSet("tI" + Li_4 + Li_8, OBJPROP_YDISTANCE, Li_8 * Gi_80 + Gi_88);
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
     for (Li_4 = 0; Li_4 < 5; Li_4++)
   {
      if (iStochastic(NULL, Gia_96[Li_4], PercentK, PercentD, Slowing, MODE_SMA, 0, MODE_MAIN, 0) > iStochastic(NULL, Gia_96[Li_4], PercentK, PercentD, Slowing, MODE_SMA,
         0, MODE_SIGNAL, 0)) ObjectSetText("dI" + Li_4 + "0", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
      else {
         if (iStochastic(NULL, Gia_96[Li_4], PercentK, PercentD, Slowing, MODE_SMA, 0, MODE_SIGNAL, 0) > iStochastic(NULL, Gia_96[Li_4], PercentK, PercentD, Slowing, MODE_SMA,
            0, MODE_MAIN, 0)) ObjectSetText("dI" + Li_4 + "0", CharToStr(sSell), Gi_92, "Wingdings", Red);
         else ObjectSetText("dI" + Li_4 + "0", CharToStr(sWait), 10, "Wingdings", Khaki);
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
   for (Li_4 = 0; Li_4 < 5; Li_4++) 
   {
      if (iRSI(NULL, Gia_96[Li_4], RSIP1, PRICE_TYPICAL, 0) > iRSI(NULL, Gia_96[Li_4], RSIP2, PRICE_TYPICAL, 0)) ObjectSetText("dI" + Li_4 + "1", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
      else {
         if (iRSI(NULL, Gia_96[Li_4], RSIP2, PRICE_TYPICAL, 0) > iRSI(NULL, Gia_96[Li_4], RSIP1, PRICE_TYPICAL, 0)) ObjectSetText("dI" + Li_4 + "1", CharToStr(sSell), Gi_92, "Wingdings", Red);
         else ObjectSetText("dI" + Li_4 + "1", CharToStr(sWait), Gi_92, "Wingdings", Khaki);
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
   for (Li_4 = 0; Li_4 < 5; Li_4++) 
   {
      if (iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 0) > 0.0) {
         if (iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 0) > iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 1)) {
            ObjectSetText("dI" + Li_4 + "2", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
            continue;
         }
         ObjectSetText("dI" + Li_4 + "2", CharToStr(sCCIAgainstBuy), Gi_92, "Wingdings", Red);
      } else {
         if (iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 0) < 0.0) {
            if (iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 0) < iCCI(NULL, Gia_96[Li_4], Gia_100[Li_4], PRICE_TYPICAL, 1)) {
               ObjectSetText("dI" + Li_4 + "2", CharToStr(sSell), Gi_92, "Wingdings", Red);
               continue;
            }
            ObjectSetText("dI" + Li_4 + "2", CharToStr(sCCIAgainstSell), Gi_92, "Wingdings", Lime);
         } else ObjectSetText("dI" + Li_4 + "2", CharToStr(sWait), 10, "Wingdings", Khaki);
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
   for (Li_4 = 0; Li_4 < 5; Li_4++) 
   {
      if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) > 0.0) {
         if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) > iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_SIGNAL,
            0)) {
            ObjectSetText("dI" + Li_4 + "3", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
            continue;
         }
         if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) < iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_SIGNAL,
            0)) {
            ObjectSetText("dI" + Li_4 + "3", CharToStr(sSell), Gi_92, "Wingdings", Red);
            continue;
         }
         ObjectSetText("dI" + Li_4 + "3", CharToStr(sWait), Gi_92, "Wingdings", Khaki);
      } else {
         if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) < 0.0) {
            if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) < iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_SIGNAL,
               0)) {
               ObjectSetText("dI" + Li_4 + "3", CharToStr(sSell), Gi_92, "Wingdings", Red);
               continue;
            }
            if (iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_MAIN, 0) > iMACD(NULL, Gia_96[Li_4], FastEMA, SlowEMA, MACDsp, PRICE_CLOSE, MODE_SIGNAL,
               0)) {
               ObjectSetText("dI" + Li_4 + "3", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
               continue;
            }
            ObjectSetText("dI" + Li_4 + "3", CharToStr(sWait), Gi_92, "Wingdings", Khaki);
         }
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
   for (Li_4 = 0; Li_4 < 5; Li_4++) 
   {
      if (iMA(NULL, Gia_96[Li_4], shortP1, 0, MODE_EMA, PRICE_CLOSE, 0) > iMA(NULL, Gia_96[Li_4], shortP2, 0, MODE_EMA, PRICE_CLOSE, 0)) ObjectSetText("dI" + Li_4 + "4", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
      else {
         if (iMA(NULL, Gia_96[Li_4], shortP1, 0, MODE_EMA, PRICE_CLOSE, 0) < iMA(NULL, Gia_96[Li_4], shortP2, 0, MODE_EMA, PRICE_CLOSE, 0)) ObjectSetText("dI" + Li_4 + "4", CharToStr(sSell), Gi_92, "Wingdings", Red);
         else ObjectSetText("dI" + Li_4 + "4", CharToStr(sWait), Gi_92, "Wingdings", Khaki);
      }
   }
//   for (Li_4 = 0; Li_4 < 6; Li_4++)
   for (Li_4 = 0; Li_4 < 5; Li_4++) 
   {
      if (iMA(NULL, Gia_96[Li_4], longP1, 0, MODE_EMA, PRICE_CLOSE, 0) > iMA(NULL, Gia_96[Li_4], longP2, 0, MODE_EMA, PRICE_CLOSE, 0)) ObjectSetText("dI" + Li_4 + "5", CharToStr(sBuy), Gi_92, "Wingdings", Lime);
      else {
         if (iMA(NULL, Gia_96[Li_4], longP1, 0, MODE_EMA, PRICE_CLOSE, 0) < iMA(NULL, Gia_96[Li_4], longP2, 0, MODE_EMA, PRICE_CLOSE, 0)) ObjectSetText("dI" + Li_4 + "5", CharToStr(sSell), Gi_92, "Wingdings", Red);
         else ObjectSetText("dI" + Li_4 + "5", CharToStr(sWait), Gi_92, "Wingdings", Khaki);
      }
   }
   return (0);
}

Recommend