Initial commit: MQL5 Indicators Collection (MetaTrader 5) - Part 4
This commit is contained in:
GeneralTradingSarl
@@ -0,0 +1,24 @@
|
||||
# 🚀 Unlock the Power of Trading!
|
||||
|
||||
Welcome to this open-source trading project. Here you will find powerful tools to enhance your trading journey. If you find this project useful, please consider starring ⭐, sharing, or donating to support further development!
|
||||
|
||||
---
|
||||
|
||||
**Support the project:**
|
||||
- Star this repository on GitHub
|
||||
- Share it with your trading friends
|
||||
- [Donate here](https://www.paypal.com/donate/?hosted_button_id=YOUR_BUTTON_ID) to help us grow!
|
||||
|
||||
---
|
||||
|
||||
## Files included:
|
||||
### Source Files:
|
||||
- `stepupdown.mq5`
|
||||
|
||||
### Screenshots:
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
> Made with ❤️ for the trading community.
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 3.3 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.5 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.4 KiB |
@@ -0,0 +1,387 @@
|
||||
//+------------------------------------------------------------------+
|
||||
//| StepUpDown.mq5 |
|
||||
//| Copyright 2017, Roberto Jacobs (3rjfx) |
|
||||
//| https://www.mql5.com/en/users/3rjfx |
|
||||
//+------------------------------------------------------------------+
|
||||
#property copyright "Copyright 2017, Roberto Jacobs (3rjfx) ~ By 3rjfx ~ Created: 11/01/2017"
|
||||
#property link "https://www.mql5.com/en/users/3rjfx"
|
||||
#property version "1.00"
|
||||
#property strict
|
||||
#property indicator_chart_window
|
||||
//--
|
||||
#property description "Price Direction movement Step Up and Down Forex Indicator for MetaTrader 5."
|
||||
//--
|
||||
#property indicator_buffers 2
|
||||
#property indicator_plots 2
|
||||
#property indicator_style1 DRAW_NONE
|
||||
#property indicator_style2 DRAW_NONE
|
||||
//-- Global scope
|
||||
input bool MsgSignalAlerts = true; // PopUp Message Alert
|
||||
input bool SoundAlertsSignal = true; // Sound Alert
|
||||
input bool eMailSignalAlerts = false; // Send Email Alert
|
||||
input string FileSoundAlert = "alert.wav"; // Sound Alert file name
|
||||
input color UpsColor = clrAqua; // UP Color
|
||||
input color DnsColor = clrOrangeRed; // Down Color
|
||||
//---
|
||||
//-- indicator buffers
|
||||
double naik[],
|
||||
turun[];
|
||||
//--
|
||||
int barcount=77,
|
||||
wavecount=13,
|
||||
periodturn=3,
|
||||
slowperiod=36;
|
||||
//--
|
||||
int limit;
|
||||
int mina,minx;
|
||||
int posH,posL;
|
||||
int curAlert,prvAlert;
|
||||
//--
|
||||
//--
|
||||
long Chart_Id;
|
||||
bool ups,dns;
|
||||
//--
|
||||
string name_arr_ups,
|
||||
name_arr_dns,
|
||||
name_dir_ups,
|
||||
name_dir_dwn;
|
||||
//--
|
||||
string ind_name;
|
||||
string Sibase,SiSubj,SiMsg;
|
||||
//---
|
||||
//+------------------------------------------------------------------+
|
||||
//| Custom indicator initialization function |
|
||||
//+------------------------------------------------------------------+
|
||||
int OnInit(void)
|
||||
{
|
||||
//--
|
||||
SetIndexBuffer(0,naik,INDICATOR_DATA);
|
||||
SetIndexBuffer(1,turun,INDICATOR_DATA);
|
||||
PlotIndexSetString(0,PLOT_LABEL,"Up");
|
||||
PlotIndexSetString(1,PLOT_LABEL,"Down");
|
||||
PlotIndexSetInteger(0,PLOT_SHOW_DATA,true);
|
||||
PlotIndexSetInteger(0,PLOT_SHOW_DATA,true);
|
||||
PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0);
|
||||
PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0);
|
||||
//----
|
||||
Chart_Id=ChartID();
|
||||
ind_name="StepUpDown";
|
||||
IndicatorSetString(INDICATOR_SHORTNAME,ind_name);
|
||||
IndicatorSetInteger(INDICATOR_DIGITS,_Digits);
|
||||
//--
|
||||
//--- initialization done
|
||||
return(INIT_SUCCEEDED);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Custom indicator deinitialization function |
|
||||
//+------------------------------------------------------------------+
|
||||
void OnDeinit(const int reason)
|
||||
{
|
||||
//----
|
||||
ObjectDelete(ChartID(),name_arr_dns);
|
||||
ObjectDelete(ChartID(),name_arr_ups);
|
||||
ObjectDelete(ChartID(),name_dir_dwn);
|
||||
ObjectDelete(ChartID(),name_dir_ups);
|
||||
GlobalVariablesDeleteAll();
|
||||
//--
|
||||
//----
|
||||
return;
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Custom indicator iteration function |
|
||||
//+------------------------------------------------------------------+
|
||||
//---
|
||||
int OnCalculate (const int rates_total,
|
||||
const int prev_calculated,
|
||||
const datetime& time[],
|
||||
const double& open[],
|
||||
const double& high[],
|
||||
const double& low[],
|
||||
const double& close[],
|
||||
const long& tick_volume[],
|
||||
const long& volume[],
|
||||
const int& spread[])
|
||||
{
|
||||
//------
|
||||
ResetLastError();
|
||||
int i,j;
|
||||
int mlhi=0,mllo=0,wbar=wavecount;
|
||||
if(rates_total<barcount) return(0);
|
||||
if(prev_calculated==0) limit=barcount;
|
||||
if(prev_calculated>0) limit++;
|
||||
//--
|
||||
ArraySetAsSeries(high,true);
|
||||
ArraySetAsSeries(low,true);
|
||||
ArraySetAsSeries(time,true);
|
||||
//--
|
||||
ups=false;
|
||||
dns=false;
|
||||
//--
|
||||
double divma0=0;
|
||||
double divma1=0;
|
||||
double mahi=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,1);
|
||||
double malo=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,1);
|
||||
//--
|
||||
for(i=wbar-1; i>=0; i--)
|
||||
{
|
||||
if(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)>mahi)
|
||||
{mahi=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i); mlhi=i;}
|
||||
if(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)<malo)
|
||||
{malo=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i); mllo=i;}
|
||||
divma0=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)-iMA(_Symbol,PERIOD_CURRENT,slowperiod,0,MODE_SMMA,PRICE_TYPICAL,i);
|
||||
divma1=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i+1)-iMA(_Symbol,PERIOD_CURRENT,slowperiod,0,MODE_SMMA,PRICE_TYPICAL,i+1);
|
||||
}
|
||||
//----
|
||||
//--
|
||||
for(j=limit-1; j>=0; j--)
|
||||
{
|
||||
//--
|
||||
if((mlhi>mllo)&&(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,j)>malo))
|
||||
{ups=true; dns=false;}
|
||||
if((mlhi>mllo)&&(divma0<divma1))
|
||||
{dns=true; ups=false;}
|
||||
if((mlhi<mllo)&&(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,j)>mahi))
|
||||
{dns=true; ups=false;}
|
||||
if((mlhi<mllo)&&(divma0>divma1))
|
||||
{ups=true; dns=false;}
|
||||
//---
|
||||
//--
|
||||
if(j==0)
|
||||
{
|
||||
//---
|
||||
posH=iHighest(_Symbol,PERIOD_CURRENT,wavecount,j);
|
||||
posL=iLowest(_Symbol,PERIOD_CURRENT,wavecount,j);
|
||||
//--
|
||||
if(ups==true) // direction up (naik)
|
||||
{
|
||||
//--
|
||||
name_arr_ups = "uparrow";
|
||||
name_dir_ups = "updirec";
|
||||
double pos_price = low[posL];
|
||||
datetime pos_dir_time = time[posL];
|
||||
naik[j]=low[posL];
|
||||
turun[j]=EMPTY_VALUE;
|
||||
ObjectDelete(Chart_Id,name_arr_dns);
|
||||
ObjectDelete(Chart_Id,name_dir_dwn);
|
||||
//--
|
||||
CreateDirection(Chart_Id,name_dir_ups," UP ","Bodoni MT Black",9,UpsColor,pos_dir_time,pos_price-5*_Point,ANCHOR_LEFT_UPPER);
|
||||
CreateDirection(Chart_Id,name_arr_ups,CharToString(217),"Wingdings",15,UpsColor,pos_dir_time,pos_price-5*_Point,ANCHOR_RIGHT_UPPER);
|
||||
//--
|
||||
curAlert=0;
|
||||
SendAlerts(curAlert,naik[j]);
|
||||
//--
|
||||
}
|
||||
//---
|
||||
if(dns==true) // direction down (turun)
|
||||
{
|
||||
//--
|
||||
name_arr_dns = "dnarrow";
|
||||
name_dir_dwn = "dndirec";
|
||||
double pos_price = high[posH];
|
||||
datetime pos_dir_time = time[posH];
|
||||
turun[j]=high[posH];
|
||||
naik[j]=EMPTY_VALUE;
|
||||
ObjectDelete(Chart_Id,name_arr_ups);
|
||||
ObjectDelete(Chart_Id,name_dir_ups);
|
||||
//--
|
||||
CreateDirection(Chart_Id,name_dir_dwn," DOWN","Bodoni MT Black",9,DnsColor,pos_dir_time,pos_price+5*_Point,ANCHOR_LEFT_LOWER);
|
||||
CreateDirection(Chart_Id,name_arr_dns,CharToString(218),"Wingdings",15,DnsColor,pos_dir_time,pos_price+5*_Point,ANCHOR_RIGHT_LOWER);
|
||||
//--
|
||||
curAlert=1;
|
||||
SendAlerts(curAlert,turun[j]);
|
||||
//--
|
||||
}
|
||||
//--- end if(j)
|
||||
}
|
||||
//---
|
||||
}
|
||||
//--
|
||||
ChartRedraw(0);
|
||||
Sleep(500);
|
||||
//--- end for(j)
|
||||
//----
|
||||
//----- done
|
||||
return(rates_total);
|
||||
}
|
||||
//---------//
|
||||
|
||||
void CreateDirection(long chart_id,
|
||||
string obj_name,
|
||||
string obj_text,
|
||||
string font_model,
|
||||
int font_size,
|
||||
color obj_color,
|
||||
datetime text_time,
|
||||
double text_pos,
|
||||
int anchor)
|
||||
{
|
||||
//--
|
||||
if(ObjectFind(chart_id,obj_name)>0) ObjectDelete(chart_id,obj_name);
|
||||
//--
|
||||
ObjectCreate(chart_id,obj_name,OBJ_TEXT,0,text_time,text_pos);
|
||||
ObjectSetString(chart_id,obj_name,OBJPROP_FONT,font_model);
|
||||
ObjectSetInteger(chart_id,obj_name,OBJPROP_FONTSIZE,font_size);
|
||||
ObjectSetInteger(chart_id,obj_name,OBJPROP_COLOR,obj_color);
|
||||
ObjectSetString(chart_id,obj_name,OBJPROP_TEXT,obj_text);
|
||||
ObjectSetInteger(chart_id,obj_name,OBJPROP_ANCHOR,anchor);
|
||||
ChartRedraw();
|
||||
//--
|
||||
}
|
||||
//---------//
|
||||
|
||||
double iMA(string symbol,
|
||||
ENUM_TIMEFRAMES tf,
|
||||
int period,
|
||||
int ma_shift,
|
||||
ENUM_MA_METHOD method,
|
||||
ENUM_APPLIED_PRICE mprice,
|
||||
int shift)
|
||||
{
|
||||
int handle=iMA(symbol,tf,period,ma_shift,method,mprice);
|
||||
double buf[];
|
||||
//--
|
||||
if(handle<0)
|
||||
{
|
||||
Print("The iMA object is not created: Error",GetLastError());
|
||||
return(-1);
|
||||
}
|
||||
else
|
||||
{
|
||||
CopyBuffer(handle,0,shift,1,buf);
|
||||
}
|
||||
return(buf[0]);
|
||||
//----
|
||||
} //-end iMA()
|
||||
//---------//
|
||||
|
||||
int iHighest(string symbol,
|
||||
ENUM_TIMEFRAMES tf,
|
||||
int countbar,
|
||||
int startpos)
|
||||
{
|
||||
//--
|
||||
int index=startpos;
|
||||
if(startpos<0) return(-1);
|
||||
if(countbar<=0) countbar=Bars(symbol,tf);
|
||||
double high[];
|
||||
ArraySetAsSeries(high,true);
|
||||
CopyHigh(symbol,tf,startpos,countbar,high);
|
||||
index=ArrayMaximum(high,startpos,countbar-startpos+1); // maximum in High
|
||||
//--
|
||||
return(index);
|
||||
}
|
||||
//---------//
|
||||
|
||||
int iLowest(string symbol,
|
||||
ENUM_TIMEFRAMES tf,
|
||||
int countbar,
|
||||
int startpos)
|
||||
{
|
||||
//--
|
||||
int index=startpos;
|
||||
if(startpos<0) return(-1);
|
||||
if(countbar<=0) countbar=Bars(symbol,tf);
|
||||
double low[];
|
||||
ArraySetAsSeries(low,true);
|
||||
CopyLow(symbol,tf,startpos,countbar,low);
|
||||
index=ArrayMinimum(low,startpos,countbar-startpos+1); // minimum in Low
|
||||
//--
|
||||
return(index);
|
||||
}
|
||||
//---------//
|
||||
|
||||
enum TimeReturn
|
||||
{
|
||||
year = 0, // Year
|
||||
mon = 1, // Month
|
||||
day = 2, // Day
|
||||
hour = 3, // Hour
|
||||
min = 4, // Minutes
|
||||
sec = 5, // Seconds
|
||||
day_of_week = 6, // Day of week (0-Sunday, 1-Monday, ... ,6-Saturday)
|
||||
day_of_year = 7 // Day number of the year (January 1st is assigned the number value of zero)
|
||||
};
|
||||
//---------//
|
||||
|
||||
int MqlReturnDateTime(datetime reqtime,
|
||||
const int mode)
|
||||
{
|
||||
MqlDateTime mqltm;
|
||||
TimeToStruct(reqtime,mqltm);
|
||||
int valdate=0;
|
||||
//--
|
||||
switch(mode)
|
||||
{
|
||||
case 0: valdate=mqltm.year; break; // Return Year
|
||||
case 1: valdate=mqltm.mon; break; // Return Month
|
||||
case 2: valdate=mqltm.day; break; // Return Day
|
||||
case 3: valdate=mqltm.hour; break; // Return Hour
|
||||
case 4: valdate=mqltm.min; break; // Return Minutes
|
||||
case 5: valdate=mqltm.sec; break; // Return Seconds
|
||||
case 6: valdate=mqltm.day_of_week; break; // Return Day of week (0-Sunday, 1-Monday, ... ,6-Saturday)
|
||||
case 7: valdate=mqltm.day_of_year; break; // Return Day number of the year (January 1st is assigned the number value of zero)
|
||||
}
|
||||
return(valdate);
|
||||
}
|
||||
//---------//
|
||||
|
||||
void DoSignalAlerts(string msgSignalText,string eMailSignalSub)
|
||||
{
|
||||
if (MsgSignalAlerts) Alert(msgSignalText);
|
||||
if (SoundAlertsSignal) PlaySound(FileSoundAlert);
|
||||
if (eMailSignalAlerts) SendMail(eMailSignalSub,msgSignalText);
|
||||
}
|
||||
//---------//
|
||||
|
||||
string strTF(int period)
|
||||
{
|
||||
switch(period)
|
||||
{
|
||||
//--
|
||||
case PERIOD_M1: return("M1");
|
||||
case PERIOD_M5: return("M5");
|
||||
case PERIOD_M15: return("M15");
|
||||
case PERIOD_M30: return("M30");
|
||||
case PERIOD_H1: return("H1");
|
||||
case PERIOD_H4: return("H4");
|
||||
case PERIOD_D1: return("D1");
|
||||
case PERIOD_W1: return("W1");
|
||||
case PERIOD_MN1: return("MN");
|
||||
default: return("Unknown");
|
||||
//--
|
||||
}
|
||||
}
|
||||
//---------//
|
||||
|
||||
void SendAlerts(int alerts,double position)
|
||||
{
|
||||
//---
|
||||
mina=MqlReturnDateTime(TimeCurrent(),TimeReturn(min));
|
||||
if(mina!=minx)
|
||||
{
|
||||
if((alerts!=prvAlert)&&(alerts==0))
|
||||
{
|
||||
Sibase=ind_name+" "+_Symbol+", TF: "+strTF(_Period);
|
||||
SiSubj=Sibase+" Step to Up Above: "+DoubleToString(position,_Digits);
|
||||
SiMsg=SiSubj+" @ "+TimeToString(TimeCurrent(),TIME_SECONDS);
|
||||
DoSignalAlerts(SiMsg,SiSubj);
|
||||
prvAlert=alerts;
|
||||
minx=mina;
|
||||
}
|
||||
//---
|
||||
if((alerts!=prvAlert)&&(alerts==1))
|
||||
{
|
||||
Sibase=ind_name+" "+_Symbol+", TF: "+strTF(_Period);
|
||||
SiSubj=Sibase+" Step to Down Below: "+DoubleToString(position,_Digits);
|
||||
SiMsg=SiSubj+" @ "+TimeToString(TimeCurrent(),TIME_SECONDS);
|
||||
DoSignalAlerts(SiMsg,SiSubj);
|
||||
prvAlert=alerts;
|
||||
minx=mina;
|
||||
}
|
||||
}
|
||||
//---
|
||||
return;
|
||||
//----
|
||||
} //-end SendAlerts()
|
||||
//---------//
|
||||
//+------------------------------------------------------------------+
|
||||
Reference in New Issue
Block a user