Initial commit: MQL5 Scripts Collection (MetaTrader 5)
This commit is contained in:
GeneralTradingSarl
BIN
Binary file not shown.
|
After Width: | Height: | Size: 41 KiB |
+20
@@ -0,0 +1,20 @@
|
||||
# 🚀 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!
|
||||
|
||||
---
|
||||
|
||||
|
||||
|
||||
## Source Files
|
||||
- `multicharts.mq5`
|
||||
|
||||
---
|
||||
> Made with ❤️ for the trading community.
|
||||
BIN
Binary file not shown.
|
After Width: | Height: | Size: 3.1 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
+441
@@ -0,0 +1,441 @@
|
||||
//+------------------------------------------------------------------+
|
||||
//| MultiCharts.mq5 |
|
||||
//| Copyright 2012, MetaQuotes Software Corp. |
|
||||
//| http://www.mql5.com |
|
||||
//+------------------------------------------------------------------+
|
||||
#property copyright "Copyright 2012, MetaQuotes Software Corp."
|
||||
#property link "http://www.mql5.com"
|
||||
#property version "1.00"
|
||||
//--- include the ChartObjectSubChart library
|
||||
#include <ChartObjects\ChartObjectSubChart.mqh>
|
||||
//--- size of OBJ_Chart
|
||||
#define chart_width 318
|
||||
#define chart_height 288
|
||||
//--- start point for charts table drawing
|
||||
#define start_x 0
|
||||
#define start_y 0
|
||||
#property script_show_inputs
|
||||
//--- input parameters
|
||||
input datetime start=D'2012.11.26 00:00:00';
|
||||
input datetime stop=D'2012.12.01 00:00:00';
|
||||
//+------------------------------------------------------------------+
|
||||
//| Class for short and long lines levels |
|
||||
//+------------------------------------------------------------------+
|
||||
class CLines
|
||||
{
|
||||
public:
|
||||
string m_name; // name of currency pair
|
||||
double m_short; // level value for the "short" line
|
||||
double m_long; // level value for the "long" line
|
||||
//--- constructor, destructor
|
||||
CLines(void) { };
|
||||
~CLines(void) { };
|
||||
};
|
||||
//+------------------------------------------------------------------+
|
||||
//| Class for draw a chart with rectangul area |
|
||||
//| and short & long lines |
|
||||
//+------------------------------------------------------------------+
|
||||
class CSubChartExtended: public CChartObjectSubChart
|
||||
{
|
||||
private:
|
||||
long m_subchartID; // subchart ID
|
||||
static bool m_lines_loaded; // flag of lines loading
|
||||
static CLines m_linesData[]; // array for the lines
|
||||
|
||||
public:
|
||||
CSubChartExtended(void);
|
||||
~CSubChartExtended(void);
|
||||
//--- subchart create
|
||||
bool CreateSubChart(const long chart_id,const string name,const int window,
|
||||
const int X,const int Y,const int sizeX,const int sizeY);
|
||||
//--- changing of display settings
|
||||
void ChangeSettings(void);
|
||||
void SubChartNavigate(void);
|
||||
//--- drawing of graphical objects
|
||||
void DrawRectangle(void);
|
||||
void DrawLines(void);
|
||||
//--- redraw
|
||||
void ReDraw(void);
|
||||
//--- loading lines data
|
||||
bool LoadLines(const string path);
|
||||
virtual bool Load(const int file_handle);
|
||||
//--- calculate the location of the point relative to the interval
|
||||
void SetChartMaxMin(const double short_value,const double long_value);
|
||||
int InRange(const double top,const double bottom,const double pos,const double indent);
|
||||
};
|
||||
//+------------------------------------------------------------------+
|
||||
//| Constructor |
|
||||
//+------------------------------------------------------------------+
|
||||
CSubChartExtended::CSubChartExtended(void)
|
||||
{
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Destructor |
|
||||
//+------------------------------------------------------------------+
|
||||
CSubChartExtended::~CSubChartExtended(void)
|
||||
{
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Subchart create |
|
||||
//+------------------------------------------------------------------+
|
||||
bool CSubChartExtended::CreateSubChart(const long chart_id,const string name,
|
||||
const int window,const int X,const int Y,
|
||||
const int sizeX,const int sizeY)
|
||||
{
|
||||
//--- creating of chart object
|
||||
if(!Create(0,name,0,X,Y,sizeX,sizeY))
|
||||
return(false);
|
||||
//--- get subchart ID
|
||||
m_subchartID=ObjectGetInteger(0,name,OBJPROP_CHART_ID);
|
||||
//--- successful creating
|
||||
return(true);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Changing of display settings |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::ChangeSettings(void)
|
||||
{
|
||||
//--- disable chart autoscroll
|
||||
ChartSetInteger(m_subchartID,CHART_AUTOSCROLL,false);
|
||||
//--- set the background color
|
||||
if(!ChartSetInteger(m_subchartID,CHART_COLOR_BACKGROUND,C'245,255,250'))
|
||||
Print("Failed to set the background color for the chart. Code ",GetLastError());
|
||||
ResetLastError();
|
||||
//--- color of axes, scale and OHLC line
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_FOREGROUND,clrBlack);
|
||||
//--- disable Ask, Bid and Last lines
|
||||
ChartSetInteger(m_subchartID,CHART_SHOW_BID_LINE,false);
|
||||
ChartSetInteger(m_subchartID,CHART_SHOW_BID_LINE,false);
|
||||
ChartSetInteger(m_subchartID,CHART_SHOW_BID_LINE,false);
|
||||
//--- disable OHLC
|
||||
ChartSetInteger(m_subchartID,CHART_SHOW_OHLC,false);
|
||||
//--- use candles
|
||||
ChartSetInteger(m_subchartID,CHART_MODE,CHART_CANDLES);
|
||||
//--- bullish candle color
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_CANDLE_BULL,clrWhite);
|
||||
//--- bullish bur color
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_CHART_UP,clrBlack);
|
||||
//--- bearish candle color
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_CANDLE_BEAR,clrBlack);
|
||||
//--- bearish bar color
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_CHART_DOWN,clrBlack);
|
||||
//--- line color
|
||||
ChartSetInteger(m_subchartID,CHART_COLOR_CHART_LINE,clrBlack);
|
||||
//--- disable the grid
|
||||
if(!ChartSetInteger(m_subchartID,CHART_SHOW_GRID,0))
|
||||
Print("Failed to set property \"Grid \"\ for the chart. Code ",GetLastError());
|
||||
ResetLastError();
|
||||
//--- disable the shift of the right edge of the chart
|
||||
ChartSetInteger(m_subchartID,CHART_SHIFT,0);
|
||||
//--- set the shift equal to 30% of the chart width
|
||||
ChartSetDouble(m_subchartID,CHART_SHIFT_SIZE,10);
|
||||
//--- disable the trade levels display
|
||||
if(!ChartSetInteger(m_subchartID,CHART_SHOW_TRADE_LEVELS,0))
|
||||
Print("Failed to set property \"Grid \"\ for the chart. Code ",GetLastError());
|
||||
ResetLastError();
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Chart shift to the left to the desired dates |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::SubChartNavigate(void)
|
||||
{
|
||||
//--- chart shift
|
||||
ChartNavigate(m_subchartID,CHART_END,GetShift(Name(),PERIOD_H4,m_subchartID));
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Draw a rectangle on the subchart |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::DrawRectangle(void)
|
||||
{
|
||||
//--- create rectangle by start-stop dates
|
||||
if(ObjectCreate(m_subchartID,"rect",OBJ_RECTANGLE,0,start,200,stop,0.01))
|
||||
{
|
||||
//--- fill rectangle
|
||||
ObjectSetInteger(m_subchartID,"rect",OBJPROP_FILL,true);
|
||||
//--- rectangle color
|
||||
ObjectSetInteger(m_subchartID,"rect",OBJPROP_COLOR,White);
|
||||
}
|
||||
else
|
||||
{
|
||||
//--- error
|
||||
PrintFormat("Failed to create a rectangle, error code %d",GetLastError());
|
||||
ResetLastError();
|
||||
}
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Draw short and long lines on the subchart |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::DrawLines(void)
|
||||
{
|
||||
//--- check the flag of data loading
|
||||
if(m_lines_loaded)
|
||||
{
|
||||
//--- create variables
|
||||
double short_value=0;
|
||||
double long_value=0;
|
||||
int size=ArraySize(m_linesData);
|
||||
//--- find lines data by name of currency pair
|
||||
for(int j=0;j<size;j++)
|
||||
if(Name()==m_linesData[j].m_name)
|
||||
{
|
||||
short_value=m_linesData[j].m_short;
|
||||
long_value=m_linesData[j].m_long;
|
||||
}
|
||||
//--- create the short line on the chart
|
||||
if(ObjectCreate(m_subchartID,"short",OBJ_HLINE,0,start,short_value))
|
||||
{
|
||||
//--- line color
|
||||
ObjectSetInteger(m_subchartID,"short",OBJPROP_COLOR,Red);
|
||||
}
|
||||
else
|
||||
{
|
||||
//--- error
|
||||
PrintFormat("Failed to create a line, error code %d",GetLastError());
|
||||
ResetLastError();
|
||||
}
|
||||
//--- create the long line on the chart
|
||||
if(ObjectCreate(m_subchartID,"long",OBJ_HLINE,0,start,long_value))
|
||||
{
|
||||
//--- line color
|
||||
ObjectSetInteger(m_subchartID,"long",OBJPROP_COLOR,Blue);
|
||||
}
|
||||
else
|
||||
{
|
||||
//--- error
|
||||
PrintFormat("Failed to create a line, error code %d",GetLastError());
|
||||
ResetLastError();
|
||||
}
|
||||
//--- find and set the top and bottom boundaries, that the lines will be entered on the chart mapping area
|
||||
SetChartMaxMin(short_value,long_value);
|
||||
}
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Subchart redraw |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::ReDraw(void)
|
||||
{
|
||||
//--- A standard method of redrawing
|
||||
ChartRedraw(m_subchartID);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Getting handle for loading the lines from file |
|
||||
//+------------------------------------------------------------------+
|
||||
bool CSubChartExtended::LoadLines(const string path)
|
||||
{
|
||||
//--- reset error
|
||||
ResetLastError();
|
||||
//--- opening the file
|
||||
int file_handle=FileOpen(path,FILE_READ|FILE_TXT|FILE_ANSI);
|
||||
//--- check
|
||||
if(file_handle==INVALID_HANDLE)
|
||||
return(false);
|
||||
//--- loading the data
|
||||
Load(file_handle);
|
||||
//--- successful execution
|
||||
return(true);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Lines loading |
|
||||
//+------------------------------------------------------------------+
|
||||
bool CSubChartExtended::Load(const int file_handle)
|
||||
{
|
||||
//--- variable to read a strings from the file
|
||||
string str=" ";
|
||||
//--- buffer to split the string
|
||||
string buf[3];
|
||||
//--- allocation
|
||||
ArrayResize(m_linesData,50);
|
||||
//--- counter of rows
|
||||
int i=0;
|
||||
//--- read until the end of file
|
||||
while(!FileIsEnding(file_handle))
|
||||
{
|
||||
//--- read the current string
|
||||
str=FileReadString(file_handle);
|
||||
//--- split it into 3 parts
|
||||
StringSplit(str,StringGetCharacter(" ",0),buf);
|
||||
//--- replace commas to points
|
||||
StringReplace(buf[1],",",".");
|
||||
StringReplace(buf[2],",",".");
|
||||
//--- store data
|
||||
m_linesData[i].m_name=buf[0];
|
||||
m_linesData[i].m_short=StringToDouble(buf[1]);
|
||||
m_linesData[i].m_long=StringToDouble(buf[2]);
|
||||
//--- increase the counter
|
||||
i++;
|
||||
}
|
||||
//--- close file
|
||||
FileClose(file_handle);
|
||||
m_lines_loaded=true;
|
||||
//--- successful execution
|
||||
return(true);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Change the maximal and minimal chart boundaries |
|
||||
//+------------------------------------------------------------------+
|
||||
void CSubChartExtended::SetChartMaxMin(const double short_value,const double long_value)
|
||||
{
|
||||
//--- current values of boundaries
|
||||
double chart_fixed_max=ChartGetDouble(m_subchartID,CHART_FIXED_MAX);
|
||||
double chart_fixed_min=ChartGetDouble(m_subchartID,CHART_FIXED_MIN);
|
||||
//--- indent
|
||||
double indent=(chart_fixed_max-chart_fixed_min)*40/chart_height;
|
||||
//--- calculate the values location relative to the interval
|
||||
int ind_short=InRange(chart_fixed_max,chart_fixed_min,short_value,indent);
|
||||
int ind_long=InRange(chart_fixed_max,chart_fixed_min,long_value,indent);
|
||||
//--- If the both lines are inside the boundaries should not be changed
|
||||
if(ind_short==0 && ind_long==0)
|
||||
return;
|
||||
//--- otherwise, you need to change the boundaries.
|
||||
ChartSetInteger(m_subchartID,CHART_SCALEFIX,true);
|
||||
//--- both above
|
||||
if(ind_short==1 && ind_long==1)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MAX,MathMax(short_value,long_value)+indent);
|
||||
//--- short above, long inside
|
||||
if(ind_short==1 && ind_long==0)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MAX,short_value+indent);
|
||||
//--- short above, long below
|
||||
if(ind_short==1 && ind_long==-1)
|
||||
{
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MAX,short_value+indent);
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MIN,long_value-indent);
|
||||
}
|
||||
//--- short inside, long above
|
||||
if(ind_short==0 && ind_long==1)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MAX,long_value+indent);
|
||||
//--- short inside, long below
|
||||
if(ind_short==0 && ind_long==-1)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MIN,long_value-indent);
|
||||
//--- short below, long above
|
||||
if(ind_short==-1 && ind_long==1)
|
||||
{
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MAX,long_value+indent);
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MIN,short_value-indent);
|
||||
}
|
||||
//--- short below, long inside
|
||||
if(ind_short==-1 && ind_long==0)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MIN,short_value-indent);
|
||||
//--- both below
|
||||
if(ind_short==-1 && ind_long==-1)
|
||||
ChartSetDouble(m_subchartID,CHART_FIXED_MIN,MathMin(short_value,long_value)-indent);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| "pos" location relative to interval (bottom,top) |
|
||||
//+------------------------------------------------------------------+
|
||||
int CSubChartExtended::InRange(const double top,const double bottom,
|
||||
const double pos,const double indent)
|
||||
{
|
||||
//--- if above, return 1
|
||||
if(pos>=top-indent)
|
||||
return(1);
|
||||
//--- if below, return -1
|
||||
if(pos<=bottom+indent)
|
||||
return(-1);
|
||||
//--- inside
|
||||
return(0);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Script program start function |
|
||||
//+------------------------------------------------------------------+
|
||||
void OnStart()
|
||||
{
|
||||
//--- number of currency pairs
|
||||
int symbols;
|
||||
//--- name of currency pairs
|
||||
string name;
|
||||
//--- variables of row and column numbers for the chart drawing
|
||||
int col;
|
||||
int row;
|
||||
//--- get the number of currency pairs
|
||||
symbols=SymbolsTotal(true);
|
||||
//--- subchart object
|
||||
CSubChartExtended SubChart[];
|
||||
ArrayResize(SubChart,symbols);
|
||||
//--- loading lines data
|
||||
if(SubChart[0].LoadLines("linesdata.txt")) Print("Data successfully loaded");
|
||||
else Print("Failed to load data: ",GetLastError());
|
||||
//--- loop over all pairs
|
||||
for(int i=0;i<symbols;i++)
|
||||
{
|
||||
//--- get the name of currency pair
|
||||
name=SymbolName(i,true);
|
||||
//--- get the position for the current chart
|
||||
GetPosition(2,i,row,col);
|
||||
//--- create a new subchart
|
||||
if(SubChart[i].CreateSubChart(0,name,0,start_x+col*chart_width,start_x+row*chart_height,chart_width,chart_height))
|
||||
{
|
||||
//--- set the symbol
|
||||
SubChart[i].Symbol(name);
|
||||
//--- time frame
|
||||
SubChart[i].Period(PERIOD_H4);
|
||||
//--- scale
|
||||
SubChart[i].Scale(3);
|
||||
//--- change the display properties
|
||||
SubChart[i].ChangeSettings();
|
||||
//--- redraw
|
||||
SubChart[i].ReDraw();
|
||||
}
|
||||
else
|
||||
{
|
||||
Print("Failed to create a chart, the error: ",GetLastError());
|
||||
ResetLastError();
|
||||
}
|
||||
}
|
||||
//--- loop over all pairs again
|
||||
for(int i=0;i<symbols;i++)
|
||||
{
|
||||
//--- shift the visible area of ??the chart
|
||||
SubChart[i].SubChartNavigate();
|
||||
SubChart[i].ReDraw();
|
||||
//--- delay
|
||||
Sleep(1000);
|
||||
//--- draw a white rectangle
|
||||
SubChart[i].DrawRectangle();
|
||||
//--- redraw
|
||||
SubChart[i].ReDraw();
|
||||
//--- draw the short and long lines
|
||||
SubChart[i].DrawLines();
|
||||
//--- redraw
|
||||
SubChart[i].ReDraw();
|
||||
}
|
||||
Sleep(100000);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Returns the row and column position in the table by number |
|
||||
//+------------------------------------------------------------------+
|
||||
void GetPosition(const int cols,int abs_pos,int &row_pos,int &col_pos)
|
||||
{
|
||||
//--- get the row and column numbers
|
||||
col_pos=abs_pos%cols;
|
||||
row_pos=abs_pos/cols;
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
//| Returns the shift |
|
||||
//+------------------------------------------------------------------+
|
||||
int GetShift(string name,ENUM_TIMEFRAMES timeframe,long chartID)
|
||||
{
|
||||
//--- number of visible bars on the chart
|
||||
int visible_bars=32;
|
||||
//--- variable for the shift
|
||||
int shift=0;
|
||||
//--- array of dates
|
||||
datetime DATA_TIME[];
|
||||
//--- determine the total number of dates for the currency pair
|
||||
int bars=Bars(name,timeframe);
|
||||
//--- get the number of the retrieved dates
|
||||
int count=CopyTime(name,timeframe,0,bars,DATA_TIME);
|
||||
//--- check if there is a data in array
|
||||
if(count!=-1)
|
||||
{
|
||||
//--- find the index number for the "start" date
|
||||
int index=0;
|
||||
for(int j=count-1;j>=0;j--)
|
||||
if(DATA_TIME[j]==start)
|
||||
index=j;
|
||||
//--- get the shift, 2 - indent for the rectangle
|
||||
shift=-count+index+visible_bars-2;
|
||||
}
|
||||
//--- return shift
|
||||
return(shift);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
BIN
Binary file not shown.
|
After Width: | Height: | Size: 2.4 KiB |
Reference in New Issue
Block a user