Gunther Schulz
201 lines
7.8 KiB
Plaintext
201 lines
7.8 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| OnTick(string symbol).mqh |
|
|
//| Copyright 2010, Lizar |
|
|
//| https://login.mql5.com/ru/users/Lizar |
|
|
//| modifications by Gunther Schulz based on Revision 2011.01.30 |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2010, Lizar"
|
|
#property link "https://login.mql5.com/ru/users/Lizar"
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| The events enumeration is implemented as flags |
|
|
//| the events can be combined using the OR ("|") logical operation |
|
|
//+------------------------------------------------------------------+
|
|
|
|
|
|
enum ENUM_CHART_EVENT_SYMBOL
|
|
{
|
|
CHARTEVENT_NO =0, // Events disabled
|
|
CHARTEVENT_INIT =0, // "Initialization" event
|
|
|
|
CHARTEVENT_NEWBAR_M1 =0x00000001, // "New bar" event on M1 chart
|
|
CHARTEVENT_NEWBAR_M2 =0x00000002, // "New bar" event on M2 chart
|
|
CHARTEVENT_NEWBAR_M3 =0x00000004, // "New bar" event on M3 chart
|
|
CHARTEVENT_NEWBAR_M4 =0x00000008, // "New bar" event on M4 chart
|
|
|
|
CHARTEVENT_NEWBAR_M5 =0x00000010, // "New bar" event on M5 chart
|
|
CHARTEVENT_NEWBAR_M6 =0x00000020, // "New bar" event on M6 chart
|
|
CHARTEVENT_NEWBAR_M10=0x00000040, // "New bar" event on M10 chart
|
|
CHARTEVENT_NEWBAR_M12=0x00000080, // "New bar" event on M12 chart
|
|
|
|
CHARTEVENT_NEWBAR_M15=0x00000100, // "New bar" event on M15 chart
|
|
CHARTEVENT_NEWBAR_M20=0x00000200, // "New bar" event on M20 chart
|
|
CHARTEVENT_NEWBAR_M30=0x00000400, // "New bar" event on M30 chart
|
|
CHARTEVENT_NEWBAR_H1 =0x00000800, // "New bar" event on H1 chart
|
|
|
|
CHARTEVENT_NEWBAR_H2 =0x00001000, // "New bar" event on H2 chart
|
|
CHARTEVENT_NEWBAR_H3 =0x00002000, // "New bar" event on H3 chart
|
|
CHARTEVENT_NEWBAR_H4 =0x00004000, // "New bar" event on H4 chart
|
|
CHARTEVENT_NEWBAR_H6 =0x00008000, // "New bar" event on H6 chart
|
|
|
|
CHARTEVENT_NEWBAR_H8 =0x00010000, // "New bar" event on H8 chart
|
|
CHARTEVENT_NEWBAR_H12=0x00020000, // "New bar" event on H12 chart
|
|
CHARTEVENT_NEWBAR_D1 =0x00040000, // "New bar" event on D1 chart
|
|
CHARTEVENT_NEWBAR_W1 =0x00080000, // "New bar" event on W1 chart
|
|
|
|
CHARTEVENT_NEWBAR_MN1=0x00100000, // "New bar" event on MN1 chart
|
|
CHARTEVENT_TICK =0x00200000, // "New tick" event
|
|
|
|
CHARTEVENT_ALL =0xFFFFFFFF, // All events enabled
|
|
};
|
|
|
|
//---
|
|
#define CHART_EVENT_SYMBOL CHARTEVENT_TICK // frequency of calling OnTick()
|
|
|
|
int _handle_[];
|
|
|
|
int _symbols_total_ = 0; // total symbols
|
|
int _symbols_market_ = 0; // number of symbols in Market Watch
|
|
bool _market_watch_ = false; // use symbols from Market Watch
|
|
bool _testing_ = false; // In testing mode
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator initialization function |
|
|
//+------------------------------------------------------------------+
|
|
int LoadSymbol(string symbol)
|
|
|
|
// TODO only load when not already exists
|
|
{
|
|
//--- check if we work in Strategy Tester:
|
|
_testing_=((bool)MQL5InfoInteger(MQL5_TESTING) ||
|
|
(bool)MQL5InfoInteger(MQL5_OPTIMIZATION) ||
|
|
(bool)MQL5InfoInteger(MQL5_VISUAL_MODE));
|
|
|
|
//--- check settings
|
|
if(_testing_ )
|
|
{
|
|
Print("Error: Strategy Tester is not working. ");
|
|
return(1);
|
|
}
|
|
|
|
//--- Initialization of variables and arrays:
|
|
_symbols_total_=SymbolsTotal(false); // total symbols
|
|
ArrayResize(_handle_,_symbols_total_); // resize array for handles of "spys"
|
|
ArrayInitialize(_handle_,INVALID_HANDLE); // initalizae array for handles of "spys"
|
|
|
|
_symbols_total_=ArraySize(tickSymbols);
|
|
for(int i=0;i<_symbols_total_;i++)
|
|
if(!LoadAgent(i, symbol)) return(1);
|
|
|
|
return(0);
|
|
}
|
|
|
|
int UnloadAllSymbols()
|
|
{
|
|
//--- check if we work in Strategy Tester:
|
|
_testing_=((bool)MQL5InfoInteger(MQL5_TESTING) ||
|
|
(bool)MQL5InfoInteger(MQL5_OPTIMIZATION) ||
|
|
(bool)MQL5InfoInteger(MQL5_VISUAL_MODE));
|
|
|
|
//--- check settings
|
|
if(_testing_ )
|
|
{
|
|
Print("Error: Strategy Tester is not working. ");
|
|
return(1);
|
|
}
|
|
|
|
_symbols_total_=ArraySize(tickSymbols);
|
|
for(int i=0;i<_symbols_total_;i++)
|
|
if(!DeLoadAgent(i, tickSymbols[i])) return(false);
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Expert tick function |
|
|
//| Used only in Strategy Tester |
|
|
//+------------------------------------------------------------------+
|
|
void OnTick()
|
|
{
|
|
if(_testing_)
|
|
{
|
|
for(int i=0;i<_symbols_total_;i++)
|
|
{
|
|
string __symbol__=tickSymbols[i];
|
|
if(MathAbs(GlobalVariableGet(__symbol__+"_flag")-2)<0.1)
|
|
{
|
|
GlobalVariableSet(__symbol__+"_flag",1);
|
|
OnTick(__symbol__);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
|
|
//| ChartEvent function |
|
|
|
|
//+------------------------------------------------------------------+
|
|
|
|
void OnChartEvent(const int id,const long& lparam,const double& dparam,const string& sparam)
|
|
|
|
{
|
|
//--- Call of OnTick(string symbol) or OnChartEvent event handler:
|
|
if(id==CHARTEVENT_CUSTOM_LAST)
|
|
{
|
|
OnTick(sparam);
|
|
//--- synchronize "agents" with Market Watch if necessary:
|
|
}
|
|
else _OnChartEvent(id,lparam,dparam,sparam);
|
|
}
|
|
|
|
#define OnChartEvent _OnChartEvent // rendefine of OnChartEvent function
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Function for loading of "spys" |
|
|
//| INPUT: __id__ - id, corresponds to the symbol index in |
|
|
//| the list of symbols |
|
|
//| __symbol__ - symbol name |
|
|
//| OUTPUT: true - if successful |
|
|
//| false - if error |
|
|
//| REMARK: no. |
|
|
//+------------------------------------------------------------------+
|
|
bool LoadAgent(int __id__, string __symbol__)
|
|
{
|
|
_handle_[__id__]=iCustom(__symbol__,_Period,"Spy Control panel MCM",ChartID(),65534,CHART_EVENT_SYMBOL);
|
|
if(_handle_[__id__]==INVALID_HANDLE)
|
|
{
|
|
Print("Error in setting of agent for ",__symbol__);
|
|
return(false);
|
|
}
|
|
Print("The agent for ",__symbol__," is set.");
|
|
return(true);
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Function for release of the "spys" |
|
|
//| INPUT: __id__ - id, corresponds to the symbol index in |
|
|
//| the list of symbols |
|
|
//| __symbol__ - symbol name |
|
|
//| OUTPUT: true - if successful |
|
|
//| false - if error |
|
|
//| REMARK: no. |
|
|
//+------------------------------------------------------------------+
|
|
bool DeLoadAgent(int __id__, string __symbol__)
|
|
{
|
|
if(_handle_[__id__]!=INVALID_HANDLE)
|
|
{
|
|
if(!IndicatorRelease(_handle_[__id__]))
|
|
{
|
|
Print("Error deletion of agent for ",__symbol__);
|
|
return(false);
|
|
}
|
|
Print("The agent for ",__symbol__," is deleted.");
|
|
_handle_[__id__]=INVALID_HANDLE;
|
|
}
|
|
return(true);
|
|
}
|
|
|
|
//+------------------------------ end -------------------------------+ |