www.pudn.com > RedbinaryoptionsDL.zip > FXMarketSignals_BO .mq4, change:2012-01-17,size:15802b


//+------------------------------------------------------------------+ 
//|                                           #MarketPrice _v1_4.mq4 | 
//|                                                       ServerUang | 
//|                                    http://www.indofx-trader.net/ | 
//+------------------------------------------------------------------+ 
#property copyright "ServerUang" 
#property link      "http://www.indofx-trader.net/" 
#property indicator_chart_window 
extern string Settings_n_1 = "--------------------------"; 
extern int Side = 1; 
extern int MP_Y = 0;  
extern int MP_X = 0; 
//-------------------------------------------------------------------- 
extern string Settings_n_2 = "--------------------------"; 
extern string Colors_Setting ="Setting for Colors"; 
extern color Highest_Color          = Blue; 
extern color Distance_from_Highest_Color = DodgerBlue; 
extern color Lowest_Color           = Red; 
extern color Distance_from_Lowest_Color  = OrangeRed; 
extern color Hi_to_Lo_Color         = Peru; 
extern color Daily_Av_Up_Color      = Blue; 
extern color Daily_Av_Dn_Color      = Red; 
extern color Time_n_Spread_Color    = LimeGreen; 
extern color PipsToOpen_Up_Color    = Blue; 
extern color PipsToOpen_Dn_Color    = Red; 
//-------------------------------------------------------------------- 
extern string Settings_n_3 = "--------------------------"; 
extern string Signals_Settings = "Settings for Signals";  
extern bool  Show_Signals      = true; 
// BuySeLL Variable 
extern string BuySeLL_Settings = "--------------------------"; 
extern int MAFast_Period = 1;  
extern int MAFast_Method = 0;  
extern int MAFast_Apply_To = 0; 
extern int MAFast_Shift = 0; 
extern int MASlow_Period = 4;  
extern int MASlow_Method = 0; 
extern int MASlow_Apply_To = 1; 
extern int MASlow_Shift = 0; 
// Trend Variable 
extern string TRend_Settings = "--------------------------"; 
extern int TMAFast_Period = 1;  
extern int TMAFast_Method = 0;  
extern int TMAFast_Apply_To = 0; 
extern int TMAFast_Shift = 0; 
extern int TMASlow_Period = 20;  
extern int TMASlow_Method = 0; 
extern int TMASlow_Apply_To = 0; 
extern int TMASlow_Shift = 0; 
// Strength Variable 
extern string Strength_Settings = "--------------------------"; 
extern int RSI_Period = 5; 
extern int RSI_PRICE_TYPE = 0; 
extern int CCI_Period = 20; 
extern int CCI_PRICE_TYPE = 0; 
extern int STOCH_K_Period = 5; 
extern int STOCH_D_Period = 3; 
extern int STOCH_Slowing = 3; 
extern int STOCH_MA_MODE = 0; 
extern int STOCH_Price_Field = 0; 
//-------------------------------------------------------------------- 
extern string Settings_n_4 = "--------------------------"; 
extern color LegendColor = Gainsboro; 
extern color PriceColor_Up = LimeGreen; 
extern color PriceColor_Dn = Red; 
extern color NeutralColor = LightGray; 
extern color Arrow_Up = Lime; 
extern color Arrow_Dn = Red; 
extern color Arrow_Nt = White; 
//===================================================================+ 
double vA, vB, vC, TFs, High_Lama, Low_Lama; 
int TimeFrame, x, y, space, baris, fontsize, cTF, cCC, cX, cSTR, cTR; 
string text, fontname, Teks_Menit, Teks_Detik; 
string UpSymbol="",  DnSymbol="", NtSymbol="", SignalSymbol; 
color SignalColor; 
// --- variabel Daili_Av --------------------------------------------+ 
int    R1, R5, R10, R20, RAvg, n, i; 
string Teks_ReRata = "", Teks_Rerata_Kemarin =""; 
color  warna_ReRata, WarnaTeks; 
//-------------------------------------------------------------------+ 
// --- Strength Variable --- 
double v_RSI, v_Stoch, v_CCI; 
//+------------------------------------------------------------------+ 
//| Custom indicator initialization function                         | 
//+------------------------------------------------------------------+ 
int init() 
  { 
//---- indicators 
//---- 
   return(0); 
  } 
//+------------------------------------------------------------------+ 
//| Custom indicator deinitialization function                       | 
//+------------------------------------------------------------------+ 
int deinit() 
  { 
//---- 
     for(int i = ObjectsTotal() - 1; i >= 0; i--) 
     { 
       string label = ObjectName(i); 
       if(StringSubstr(label, 0, 4) != "MP14") 
           continue; 
       ObjectDelete(label);    
     }   //---- 
   return(0); 
   //ObjectsDeleteAll(0,OBJ_HLINE); 
   //ObjectsDeleteAll(0,OBJ_TEXT); 
   //ObjectsDeleteAll(0,OBJ_LABEL); 
//---- 
   return(0); 
  } 
//+------------------------------------------------------------------+ 
//| Custom indicator iteration function                              | 
//+------------------------------------------------------------------+ 
int start() 
  { 
   int    counted_bars=IndicatorCounted(); 
//---- 
   // Price 
   TimeFrame = 15; 
   vA = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0); 
   vB = iMA(Symbol(), TimeFrame, MAFast_Period, MAFast_Shift, MAFast_Method, MAFast_Apply_To, 0); 
   vC = iMA(Symbol(), TimeFrame, MASlow_Period, MASlow_Shift, MASlow_Method, MASlow_Apply_To, 0); 
   Write("MP14001", Side, MP_X+9, MP_Y+22, DoubleToStr(vA,Digits), 34, "Arial", CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn) ); 
   // Highest 
   vB=iHigh(NULL,1440,0); text=DoubleToStr(vB, Digits); 
   Write("MP14002", Side, MP_X+100, MP_Y+14, text, 10, "Tahoma Bold", Highest_Color); 
   // Lowest 
   vC=iLow(NULL,1440,0); text=DoubleToStr(vC, Digits); 
   Write("MP14003", Side, MP_X+100, MP_Y+62, text, 10, "Tahoma Bold", Lowest_Color); 
   //--- Distance from Highest --- 
   text=DoubleToStr((vA-vB)/Point,0); 
   Write("MP14004", Side, MP_X+56, MP_Y+14, text, 10, "Tahoma Bold", Distance_from_Highest_Color); 
   //--- Distance from Lowest --- 
   text=DoubleToStr((vA-vC)/Point,0); 
   Write("MP14005", Side, MP_X+56, MP_Y+62, text, 10, "Tahoma Bold", Distance_from_Lowest_Color); 
   //--- Hi to Lo --- 
   text=DoubleToStr((vB-vC)/Point,0); 
   Write("MP14006", Side, MP_X+10, MP_Y+14, text, 10, "Tahoma Bold", Hi_to_Lo_Color); 
   //--- Daily Av --- 
   R1=0; R5=0; R10=0; R20=0; RAvg=0; i=0; 
   R1 =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point; 
   for(i=1;i<=5;i++)    
     R5  = R5  + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; 
   for(i=1;i<=10;i++) 
     R10 = R10 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; 
   for(i=1;i<=20;i++) 
     R20 = R20 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; 
   R5 = R5/5; 
   R10 = R10/10; 
   R20 = R20/20; 
   RAvg  =  (R1+R5+R10+R20)/4;     
   Teks_ReRata = (DoubleToStr(RAvg,Digits-4)); 
   Teks_Rerata_Kemarin = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point; 
   if (Teks_ReRata > Teks_Rerata_Kemarin) {warna_ReRata = Daily_Av_Up_Color;} 
      else {warna_ReRata = Daily_Av_Dn_Color;} 
   Write("MP14007", Side, MP_X+10, MP_Y+62, Teks_ReRata, 10, "Tahoma Bold", warna_ReRata); 
   //--- Time for Next Candle --- 
   vB = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]); 
   vA = vB/60; 
   vB = (vA-MathFloor(vA))*60; 
   vA = MathFloor(vA); 
   Teks_Menit = DoubleToStr(vA,0); 
   Teks_Detik = DoubleToStr(vB,0); 
   text=Teks_Menit+":"+Teks_Detik; 
   Write("MP14008", Side, MP_X+100, MP_Y+74, text, 10, "Tahoma Bold", Time_n_Spread_Color); 
   // --- Spread --- 
   vA = (Ask - Bid)/Point; 
   text = (DoubleToStr(vA, Digits-4)); 
   Write("MP14009", Side, MP_X+56, MP_Y+74, text, 10, "Tahoma Bold", Time_n_Spread_Color); 
   //--- Pips to Open --- 
   vA = iOpen(NULL,1440,0); 
   vB = iClose(NULL,1440,0); 
   SignalColor=CheckColor(vB, vA, PipsToOpen_Up_Color, PipsToOpen_Dn_Color); 
   text=DoubleToStr((vB-vA)/Point,0); 
   Write("MP14010", Side, MP_X+10, MP_Y+74, text, 10, "Tahoma Bold", SignalColor); 
   text=Symbol(); 
    Write("MP14010", Side, MP_X+15, MP_Y+94, text, 20, "Tahoma Bold",CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn)); 
   //--- Show_Signals --- 
   if (Show_Signals) 
      { 
/* 
       // Pair, Pair color depand to Trend 
       vB = iMA(Symbol(), TimeFrame, TMAFast_Period, TMAFast_Shift, TMAFast_Method, TMAFast_Apply_To, 0); 
       vC = iMA(Symbol(), TimeFrame, TMASlow_Period, TMASlow_Shift, TMASlow_Method, TMASlow_Apply_To, 0); 
       Write("MP13001", Side, 85, 8, Symbol(), 16, "Arial Bold", CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn) ); 
       // Price  color depand to Crossing MAfast and MAslow 
       vA = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0); 
       vB = iMA(Symbol(), TimeFrame, MAFast_Period, MAFast_Shift, MAFast_Method, MAFast_Apply_To, 0); 
       vC = iMA(Symbol(), TimeFrame, MASlow_Period, MASlow_Shift, MASlow_Method, MASlow_Apply_To, 0); 
       Write("MP13002", Side, 5, 5, DoubleToStr(vA,Digits), 20, "Arial Bold", CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn) ); 
       //Write("MP13002", Side, 10, 10, DoubleToStr(vA,Digits), 16, "Arial Bold", CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn) ); 
*/    
       // Legend 
       //cTF=MP_X+127; cCC=MP_X+99; cX=MP_X+81; cSTR=MP_X+53; cTR=MP_X+25;  
       cTF=MP_X+127; cCC=MP_X+99; cX=MP_X+76; cSTR=MP_X+40; cTR=MP_X+10;  
       Write("MP14011", Side, MP_X+cTF,  MP_Y+130, "TF", 10, "Arial", LegendColor); //152 
       Write("MP14012", Side, MP_X+cCC,  MP_Y+130, "CC", 10, "Arial", LegendColor); //116 
       Write("MP14013", Side, MP_X+cX-5, MP_Y+130, "BS", 10, "Arial", LegendColor);  //086 
       Write("MP14014", Side, MP_X+cSTR, MP_Y+130, "Str", 10, "Arial", LegendColor); //048 
       Write("MP14015", Side, MP_X+cTR,  MP_Y+130, "TR", 10, "Arial", LegendColor); //012 
       x=cTF; //154 
       y=MP_Y+106; space=12; fontname="Arial"; fontsize=8; 
     //  Write("MP14016", Side, x, y+(00*space), "MN", fontsize, fontname, LegendColor); 
      // Write("MP14017", Side, x, y+(01*space), "W1", fontsize, fontname, LegendColor); 
      // Write("MP14018", Side, x, y+(02*space), "D1", fontsize, fontname, LegendColor); 
       Write("MP14019", Side, x, y+(04*space), "H4", fontsize, fontname, LegendColor); 
       Write("MP14020", Side, x, y+(05*space), "H1", fontsize, fontname, LegendColor); 
       Write("MP14021", Side, x, y+(06*space), "M30", fontsize, fontname, LegendColor); 
       Write("MP14022", Side, x, y+(08*space), "M15", fontsize, fontname, LegendColor); 
       Write("MP14023", Side, x, y+(09*space), "M5", fontsize, fontname, LegendColor); 
       Write("MP14024", Side, x, y+(10*space), "M1", fontsize, fontname, LegendColor); 
       // LOOP 
       n=4; y=MP_Y+106; space=12; 
       while (n<=9) 
             { 
              switch (n) 
                { 
                // case 1: TFs = 43200;  baris=0;  break;  
               //  case 2: TFs = 10080;  baris=1;  break; 
                // case 3: TFs =  1440;  baris=2;  break;  
                 case 4: TFs =   240;  baris=4;  break;  
                 case 5: TFs =    60;  baris=5;  break;  
                 case 6: TFs =    30;  baris=6;  break;  
                 case 7: TFs =    15;  baris=8;  break;  
                 case 8: TFs =     5;  baris=9;  break;  
                 case 9: TFs =     1;  baris=10; break;  
                }//switch 
                // Trend; 
                vA = iMA(Symbol(),TFs, TMAFast_Period, TMAFast_Shift, TMAFast_Method, TMAFast_Apply_To, 0); 
                vB = iMA(Symbol(),TFs, TMASlow_Period, TMASlow_Shift, TMASlow_Method, TMASlow_Apply_To, 0); 
                if (vA>vB) 
                   { SignalSymbol=UpSymbol; SignalColor=Arrow_Up; } 
                else if  (vA<vB) 
                   { SignalSymbol=DnSymbol; SignalColor=Arrow_Dn; } 
                else {SignalSymbol=NtSymbol; SignalColor=Arrow_Nt; } 
                Write("MP14025"+DoubleToStr(n,0), Side, cTR, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor ); 
                // STR Signals  
                v_RSI   = iRSI(Symbol(), TFs, RSI_Period , RSI_PRICE_TYPE, 0); 
                v_Stoch = iStochastic(Symbol(), TFs, STOCH_K_Period,STOCH_D_Period,STOCH_Slowing, STOCH_MA_MODE, STOCH_Price_Field, MODE_MAIN, 0); 
                v_CCI   = iCCI(Symbol(), TFs,CCI_Period , CCI_PRICE_TYPE, 0); 
                if ((v_RSI > 50) && (v_Stoch > 40) && (v_CCI > 0)) { SignalSymbol = UpSymbol; SignalColor = Arrow_Up ;}  
                else if ((v_RSI < 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = DnSymbol; SignalColor = Arrow_Dn ;} 
                //netral condition 
                else if ((v_RSI < 50) && (v_Stoch > 40) && (v_CCI > 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                else if ((v_RSI < 50) && (v_Stoch > 40) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI > 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                else if ((v_RSI > 50) && (v_Stoch > 40) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; } 
                Write("MP14026"+DoubleToStr(n,0), Side, cSTR, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor ); 
              
                // BuySell Crossing 
                vB = iMA(Symbol(), TFs, MAFast_Period, MAFast_Shift, MAFast_Method, MAFast_Apply_To, 0); 
                vC = iMA(Symbol(), TFs, MASlow_Period, MASlow_Shift, MASlow_Method, MASlow_Apply_To, 0); 
                if (vB>vC) 
                   { SignalSymbol=UpSymbol; SignalColor=Arrow_Up; } 
                else { SignalSymbol=DnSymbol; SignalColor=Arrow_Dn; } 
                Write("MP14027"+DoubleToStr(n,0), Side, cX-3, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor); 
              
                // CandleColor 
                vC = iClose( NULL , TFs, 0) - iOpen( NULL , TFs, 0); 
                if ( vC > 0 )  
                   { SignalColor = PriceColor_Up;  SignalSymbol="n"; } 
                else if ( vC < 0 )  { SignalColor = PriceColor_Dn; SignalSymbol="n"; } 
                else { SignalColor = NeutralColor; SignalSymbol=""; } 
                Write("MP14028"+DoubleToStr(n,0), Side, cCC+2, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor ); //x=120 
                 
                Write("MP14029", Side, cTR, y+((baris+1)*space), "Created by ServerUang", 7, "Tahoma Narrow", Gray); 
                n++; 
             } //end while 
         }//Show 
         else Write("MP14030", Side, MP_X+10, MP_Y+90, "Created by ServerUang", 7, "Tahoma Narrow", Gray); 
//---- 
   return(0); 
  } 
//+------------------------------------------------------------------+ 
//+------------------------------------------------------------------+ 
//+------------------------------------------------------------------+ 
// Write Procedure 
void Write(string LBL, double side, int pos_x, int pos_y, string text, int fontsize, string fontname, color Tcolor=CLR_NONE) 
     { 
       ObjectCreate(LBL, OBJ_LABEL, 0, 0, 0); 
       ObjectSetText(LBL,text, fontsize, fontname, Tcolor); 
       ObjectSet(LBL, OBJPROP_CORNER, side); 
       ObjectSet(LBL, OBJPROP_XDISTANCE, pos_x); 
       ObjectSet(LBL, OBJPROP_YDISTANCE, pos_y); 
     } 
      
// CheckColor Function 
color CheckColor(double a, double b, color u, color d) 
      { 
        if (a>b) { return (u); } else { return (d); } 
      } 
//+------------------------------------------------------------------+

2018无需申请注册送58体验金