saherelm/MQL5Data
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

last ...

Browse Source
This commit is contained in:
saherelm
2025-09-15 13:18:25 +03:30
parent cc403082ed
commit 9e2f375fbe
5 changed files with 3802 additions and 1248 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Classes/x-saherelm.x-backtester.expert.class.mq5
+1696
View File
File diff suppressed because it is too large Load Diff
Classes/x-saherelm.x-chart.helper.class.mq5
+528 -81
View File
@@ -66,8 +66,8 @@ class XCChartHelper : public XCBase
* @return ( bool )
*/
bool Navigate(
const ENUM_CHART_POSITION position,
const int shift //
ENUM_CHART_POSITION position,
int shift //
)
{
return (ChartNavigate(mChartID, position, shift));
@@ -80,11 +80,110 @@ class XCChartHelper : public XCBase
*
* @return ( bool )
*/
bool ApplyTemplate(const string filename) const
bool ApplyTemplate(string filename)
{
return (ChartApplyTemplate(mChartID, filename));
}
/**
* Add Specified Indicator to Chart ...
*
* @param subWindow: int ...
* @param handle: int ...
*
* @return ( bool )
*/
bool IndicatorAdd(int subWindow, int handle)
{
//
// Normalize Subwindow ...
if (subWindow <= 0)
{
subWindow = 0;
}
//
return (ChartIndicatorAdd(mChartID, subWindow, handle));
}
/**
* Delete Specified Indicator from Chart ...
*
* @param subWindow: int ...
* @param name: string ...
*
* @return ( bool )
*/
bool IndicatorDelete(int subWindow, string name)
{
//
// Normalize Subwindow ...
if (subWindow <= 0)
{
subWindow = 0;
}
//
return (ChartIndicatorDelete(mChartID, subWindow, name));
}
/**
* Count all Charts Indicator ...
*
* @param subWindow: int ...
*
* @return ( int )
*/
int IndicatorsTotal(int subWindow)
{
//
// Normalize Subwindow ...
if (subWindow <= 0)
{
subWindow = 0;
}
//
return (ChartIndicatorsTotal(mChartID, subWindow));
}
/**
* Get Specified Indexed Indicator's Name ...
*
* @param subWindow: int ...
* @param index: int ...
*
* @return ( string )
*/
string IndicatorName(int subWindow, int index)
{
//
// Normalize Subwindow ...
if (subWindow <= 0)
{
subWindow = 0;
}
//
return (ChartIndicatorName(mChartID, subWindow, index));
}
/**
* Set Chart Symbol, Period ...
*
* @param symbol: string ...
* @param period: ENUM_TIMEFRAMES ...
*
* @return ( bool )
*/
bool SetSymbolPeriod(
string symbol,
ENUM_TIMEFRAMES period //
)
{
return (ChartSetSymbolPeriod(mChartID, symbol, period));
}
/**
* Take an Screenshot of Chart ...
*
@@ -113,88 +212,436 @@ class XCChartHelper : public XCBase
//
string work_str;
int work_int;
//--- check
//
bool has = false;
//
// Validate ...
if (file_handle == INVALID_HANDLE || mChartID == -1)
return (false);
//--- write start marker - 0xFFFFFFFFFFFFFFFF
if (FileWriteLong(file_handle, -1) != sizeof(long))
return (false);
//--- write chart type
if (FileWriteInteger(file_handle, Type(), INT_VALUE) != INT_VALUE)
return (false);
//--- write chart symbol
{
return has;
}
//
// Write start marker - 0xFFFFFFFFFFFFFFFF ...
has = FileWriteLong(file_handle, -1) == sizeof(long);
if (!has)
{
return has;
}
//
// Write chart type ...
has = FileWriteInteger(file_handle, Type(), INT_VALUE) == INT_VALUE;
if (!has)
{
return has;
}
//
// Write chart symbol ...
work_str = Symbol();
work_int = StringLen(work_str);
if (FileWriteInteger(file_handle, work_int, INT_VALUE) != INT_VALUE)
return (false);
has = FileWriteInteger(file_handle, work_int, INT_VALUE) == INT_VALUE;
if (!has)
{
return has;
}
if (work_int != 0)
if (FileWriteString(file_handle, work_str, work_int) != work_int)
return (false);
//--- write period of chart
if (FileWriteInteger(file_handle, Period(), INT_VALUE) != sizeof(int))
return (false);
//--- write value of the "Mode" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_MODE), INT_VALUE) != sizeof(int))
return (false);
//--- write value of the "Foreground" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_FOREGROUND), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "Shift" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHIFT), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShiftSize" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHIFT), INT_VALUE) != sizeof(int))
return (false);
//--- write value of the "AutoScroll" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_AUTOSCROLL), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "Scale" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALE), INT_VALUE) != sizeof(int))
return (false);
//--- write value of the "ScaleFix" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALEFIX), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ScaleFix_11" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALEFIX_11), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "FixedMax" property
if (FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_FIXED_MAX)) != sizeof(double))
return (false);
//--- write value of the "FixedMin" property
if (FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_FIXED_MIN)) != sizeof(double))
return (false);
//--- write the "ScalePPB" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALE_PT_PER_BAR), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "PointsPerBar" property
if (FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_POINTS_PER_BAR)) != sizeof(double))
return (false);
//--- write value of the "ShowOHLC" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_OHLC), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowLineBid" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_BID_LINE), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowLineAsk" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_ASK_LINE), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowLastLine" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_LAST_LINE), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowPeriodSep" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_PERIOD_SEP), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowGrid" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_GRID), CHAR_VALUE) != sizeof(char))
return (false);
//--- write value of the "ShowVolumes" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_VOLUMES), INT_VALUE) != sizeof(int))
return (false);
//--- write value of the "ShowObjectDescr" property
if (FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_OBJECT_DESCR), CHAR_VALUE) != sizeof(char))
return (false);
//--- successful
return (true);
{
//
has = FileWriteString(file_handle, work_str, work_int) == work_int;
if (!has)
{
return has;
}
}
//
// Write Period of chart ...
has = FileWriteInteger(file_handle, Period(), INT_VALUE) == sizeof(int);
if (!has)
{
return has;
}
//
// Write value of the "Mode" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_MODE), INT_VALUE) == sizeof(int);
if (!has)
{
return has;
}
//
// Write value of the "Foreground" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_FOREGROUND), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "Shift" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHIFT), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShiftSize" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHIFT), INT_VALUE) == sizeof(int);
if (!has)
{
return has;
}
//
// Write value of the "AutoScroll" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_AUTOSCROLL), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "Scale" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALE), INT_VALUE) == sizeof(int);
if (!has)
{
return has;
}
//
// Write value of the "ScaleFix" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALEFIX), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ScaleFix_11" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALEFIX_11), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "FixedMax" property ...
has = FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_FIXED_MAX)) == sizeof(double);
if (!has)
{
return has;
}
//
// Write value of the "FixedMin" property ...
has = FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_FIXED_MIN)) == sizeof(double);
if (!has)
{
return has;
}
//
// Write the "ScalePPB" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SCALE_PT_PER_BAR), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "PointsPerBar" property ...
has = FileWriteDouble(file_handle, ChartGetDouble(mChartID, CHART_POINTS_PER_BAR)) == sizeof(double);
if (!has)
{
return has;
}
//
// Write value of the "ShowOHLC" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_OHLC), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowLineBid" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_BID_LINE), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowLineAsk" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_ASK_LINE), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowLastLine" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_LAST_LINE), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowPeriodSep" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_PERIOD_SEP), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowGrid" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_GRID), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
// Write value of the "ShowVolumes" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_VOLUMES), INT_VALUE) == sizeof(int);
if (!has)
{
return has;
}
//
// Write value of the "ShowObjectDescr" property ...
has = FileWriteInteger(file_handle, (int)ChartGetInteger(mChartID, CHART_SHOW_OBJECT_DESCR), CHAR_VALUE) == sizeof(char);
if (!has)
{
return has;
}
//
return has;
}
/**
* Load Specified Chart File ...
*
* @param file_handle: int ...
*
* @return ( bool )
*/
bool Load(const int file_handle)
{
//
string work_str;
int work_int;
//
bool has = false;
//
// Validate ...
if (file_handle == INVALID_HANDLE || mChartID == -1)
{
return has;
}
//
// Read and checking start marker - 0xFFFFFFFFFFFFFFFF ...
if (FileReadLong(file_handle) != -1)
return has;
//
// Read and checking chart type ...
if (FileReadInteger(file_handle, INT_VALUE) != Type())
return has;
//
// Read chart symbol ...
work_int = FileReadInteger(file_handle);
if (work_int != 0)
{
work_str = FileReadString(file_handle, work_int);
}
else
{
work_str = "";
}
//
// Read chart period ...
work_int = FileReadInteger(file_handle);
SetSymbolPeriod(work_str, (ENUM_TIMEFRAMES)work_int);
//
// Read value of the "Mode" property ...
has = ChartSetInteger(mChartID, CHART_MODE, FileReadInteger(file_handle, INT_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "Foreground" property ...
has = ChartSetInteger(mChartID, CHART_FOREGROUND, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "Shift" property ...
has = ChartSetInteger(mChartID, CHART_SHIFT, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "ShiftSize" property ...
has = ChartSetInteger(mChartID, CHART_SHIFT, FileReadInteger(file_handle, INT_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "AutoScroll" property ...
has = ChartSetInteger(mChartID, CHART_AUTOSCROLL, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "Scale" property ...
has = ChartSetInteger(mChartID, CHART_SCALE, FileReadInteger(file_handle, INT_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "ScaleFix" property ...
has = ChartSetInteger(mChartID, CHART_SCALEFIX, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Read value of the "ScaleFix_11" property ...
has = ChartSetInteger(mChartID, CHART_SCALEFIX_11, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "FixedMax" property ...
has = ChartSetDouble(mChartID, CHART_FIXED_MAX, FileReadDatetime(file_handle));
if (!has)
{
return has;
}
//
// Rread value of the "FixedMin" property ...
has = ChartSetDouble(mChartID, CHART_FIXED_MIN, FileReadDatetime(file_handle));
if (!has)
{
return has;
}
//
// Rread value of the "ScalePPB" property ...
has = ChartSetInteger(mChartID, CHART_SCALE_PT_PER_BAR, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "PointsPerBar" property ...
has = ChartSetDouble(mChartID, CHART_POINTS_PER_BAR, FileReadDatetime(file_handle));
if (!has)
{
return has;
}
//
// Rread value of the "ShowOHLC" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_OHLC, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowLineBid" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_BID_LINE, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowLineAsk" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_ASK_LINE, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowLastLine" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_LAST_LINE, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowPeriodSep" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_PERIOD_SEP, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowGrid" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_GRID, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowVolumes" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_VOLUMES, FileReadInteger(file_handle, INT_VALUE));
if (!has)
{
return has;
}
//
// Rread value of the "ShowObjectDescr" property ...
has = ChartSetInteger(mChartID, CHART_SHOW_OBJECT_DESCR, FileReadInteger(file_handle, CHAR_VALUE));
if (!has)
{
return has;
}
//
return has;
}
//
Documents/BKP/backtester.temp.mq5
+1484
View File
File diff suppressed because it is too large Load Diff
Experts/x-saherelm.backtester.mq5
+87 -1166
View File
File diff suppressed because it is too large Load Diff
Experts/x-saherelm.xom1.ea.mq5
+6
View File
@@ -153,6 +153,12 @@ int OnInit()
//
// Setting All Inputs to Expert Adviser Class ...
//
// Common ...
eaExpert.eaMagicNumber = eaMagicNumber;
eaExpert.eaSlippage = eaSlippage;
eaExpert.eaLogSuffix = eaTag;
//
// Symbols ...
eaExpert.eaSymbolConfiguration = eaSymbolConfiguration;