A6-9V/NUNA_FORK
0
0
Fork 0
forked from LengKundee/NUNA
Code Pull requests Projects Releases Packages Activity Actions
NUNA_FORK/Logs/Indicators/Downloads/iForexSessions.mq5

447 lines
39 KiB
MQL5
Raw Permalink Normal View History

Initial commit
2026-01-06 05:44:21 +00:00
<EFBFBD><EFBFBD>//+------------------------------------------------------------------+
//| iForexSessions.mq5 |
//| Copyright <EFBFBD> 2018, Amr Ali |
//| https://www.mql5.com/en/users/amrali |
//+------------------------------------------------------------------+
#property copyright "Copyright <00> 2018, Amr Ali"
#property link "https://www.mql5.com/en/users/amrali"
#property version "1.99"
#property description "Forex Sessions indicator"
#property description "Highlights the Forex Market Sessions"
#property description "The indicator assumes local \"wall clock\" trading hours of 8:00 AM - 5:00 PM in "
#property description "each Forex market, except in Sydney it is 7:00 AM - 4:00 PM or 9:00 AM - 6:00 PM."
#property indicator_chart_window
#property indicator_buffers 0
#property indicator_plots 0
#include <Canvas\Canvas.mqh>
#include "SessionHours.mqh"
//+------------------------------------------------------------------+
//--- input parameters
input int InpNumDays = 35; // Number of days to display
input color InpColorSydney = clrPurple; // Sydney session color
input color InpColorTokyo = clrTeal; // Tokyo session color
input color InpColorLondon = clrMaroon; // London session color
input color InpColorNewYork = clrDarkBlue; // NewYork session color
input bool InpShowLabels = true; // Show session labels
input bool InpShowVLines = true; // Show sydney-session start lines
input bool InpShowClock = true; // Show broker's clock (left lower corner)
input bool InpShowGrid = false; // Show grid in the chart
input bool InpUseGoldSymbol = true; // Load XAUUSD symbol for estimation of the server's TZ/DST
//+------------------------------------------------------------------+
//--- global variables
string obj_name_prefix=MQLInfoString(MQL_PROGRAM_NAME);
int WidthScreen;
int HeightScreen;
CCanvas canv;
bool canv_on=false;
bool ready_H1=false;
bool chart_grid;
enum ENUM_SESSIONS
{
SYD = 0,
TOK = 1,
LON = 2,
NYC = 3
};
struct SBrokerSession
{
datetime BeginBroker; // session time begin in broker time
datetime EndBroker; // session time end in broker time
};
SBrokerSession Sessions[][4]; // 2d array of 4 sessions for n days
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
if(Period()>PERIOD_H4)
{
Alert("This indicator works only on H4 charts and lower");
}
//--- timer
if(InpShowClock)
{
EventSetTimer(1);
}
//--- remember chart grid flag
ChartGetInteger(0,CHART_SHOW_GRID,chart_grid);
//--- set chart grid flag
ChartSetInteger(0,CHART_SHOW_GRID,InpShowGrid);
ChartRedraw();
//--- create canvas to output debug info
WidthScreen =(int)ChartGetInteger(0,CHART_WIDTH_IN_PIXELS);
HeightScreen=(int)ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS);
ChartSetInteger(0,CHART_FOREGROUND,false);
if(!canv.CreateBitmapLabel(0,0,"Canvas07",0,0,WidthScreen,HeightScreen,COLOR_FORMAT_ARGB_NORMALIZE))
Print("Error creating canvas: ",GetLastError());
canv.FontSet("Courier New",18);
canv.FontFlagsSet(FW_SEMIBOLD);
ChartSetInteger(0,CHART_EVENT_MOUSE_MOVE,true);
//--- set the option of using Gold symbol for estimation of the server's TZ/DST
CTimeZoneInfo::SetUsingGoldSymbol(InpUseGoldSymbol);
//--- Initialization completed successfully
return (INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//--- delete timer
EventKillTimer();
//--- delete canvas
canv.Destroy();
//---- restore chart grid
ChartSetInteger(0,CHART_SHOW_GRID,chart_grid);
//--- delete objects
ObjectsDeleteAll(0,obj_name_prefix);
ChartRedraw();
}
//+------------------------------------------------------------------+
//| 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[])
{
ENUM_TIMEFRAMES P=Period();
if(P > PERIOD_H4)
return(0);
//--- make sure that H1 timeframe is loaded.
datetime timeH1=iTime(NULL,PERIOD_H1,0);
if(timeH1==0)
{
datetime times[];
if(CopyTime(Symbol(),PERIOD_H1,time[0],1,times)<=0)
{
ChartSetSymbolPeriod(0,NULL,P); // emulate a tick
}
ready_H1=false;
return(0);
}
ready_H1=true;
//--- draw only if a new hourly bar has arrived
static datetime prevtime;
if(timeH1 == prevtime)
return(0);
else
prevtime=timeH1;
//---
GetForexSessions(Sessions,InpNumDays);
DrawSessions(Sessions);
ChartRedraw();
//---
return(0);
}
//+------------------------------------------------------------------+
//| ChartEvent function |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
const long &lparam,
const double &dparam,
const string &sparam)
{
if(id==CHARTEVENT_CHART_CHANGE)
{
if(ready_H1)
{
GetForexSessions(Sessions,InpNumDays);
DrawSessions(Sessions);
ChartRedraw();
}
WidthScreen =(int)ChartGetInteger(0,CHART_WIDTH_IN_PIXELS);
HeightScreen=(int)ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS);
canv.Resize(WidthScreen,HeightScreen);
}
if(id==CHARTEVENT_MOUSE_MOVE)
{
//--- moving the mouse on a chart while the "Ctrl" key is pressed
if(TerminalInfoInteger(TERMINAL_KEYSTATE_CONTROL))
{
int x =(int)lparam;
int y =(int)dparam;
datetime time =0;
double price =0;
int window=0;
//--- convert the X and Y coordinates in terms of time/price
if(ChartXYToTimePrice(0,x,y,window,time,price))
{
int i1=iBarShift(_Symbol,_Period,time);
datetime bartime = iTime(_Symbol,_Period,i1);
bool dst = CTimeZoneInfo::IsDaylightSavingsTime(ZONE_ID_BROKER, bartime);
//---
ChartTimePriceToXY(0,window,bartime,price,x,y);
canv.Erase(0);
canv.LineVertical(x,HeightScreen-1,0,ColorToARGB(clrRed));
canv.TextOut(WidthScreen-600,HeightScreen-170,"bar #"+IntegerToString(i1),ColorToARGB(dst ? clrYellow: clrOrange));
canv.TextOut(WidthScreen-600,HeightScreen-150,CTimeZoneInfo::FormatTimeForPlace(bartime, ZONE_ID_BROKER),ColorToARGB(dst ? clrYellow: clrOrange));
//---
ENUM_ZONE_ID ids[]= {ZONE_ID_SYDNEY, ZONE_ID_TOKYO, ZONE_ID_LONDON, ZONE_ID_NEWYORK};
for(int i = 0; i < ArraySize(ids); i++)
{
ENUM_ZONE_ID id = ids[i];
datetime converted = CTimeZoneInfo::ConvertTimeForPlace(bartime, ZONE_ID_BROKER, id);
dst = CTimeZoneInfo::IsDaylightSavingsTime(id, converted);
//PrintFormat("bar #%d | %s | %s", i1, CTimeZoneInfo::FormatTimeForPlace(bartime, ZONE_ID_BROKER), CTimeZoneInfo::FormatTimeForPlace(converted, id));
canv.TextOut(WidthScreen-600,HeightScreen-130+i*20,CTimeZoneInfo::FormatTimeForPlace(converted, id),ColorToARGB(dst ? clrYellow: clrOrange));
}
canv.Update();
canv_on=true;
}
}
//--- moving the mouse on a chart while the "Ctrl" key is released
else
if(canv_on)
{
canv.Erase(0);
canv.Update();
canv_on=false;
}
}
}
//+------------------------------------------------------------------+
//| Custom indicator timer function |
//+------------------------------------------------------------------+
void OnTimer()
{
UpdateBrokerClock();
ChartRedraw();
}
//+------------------------------------------------------------------+
//| Get forex market sessions for the specified num of days. |
//+------------------------------------------------------------------+
int GetForexSessions(SBrokerSession &BrokerSessions[][4], int numDays=9)
{
ArrayFree(BrokerSessions);
if(numDays <= 0)
return(0);
ArrayResize(BrokerSessions,numDays);
//--- Forex pairs start at 17:00 NY. Gold starts an hour later.
string beginNYC = "17:00";
if(StringSubstr(Symbol(),0,3)=="XAU"||StringSubstr(Symbol(),0,4)=="GOLD")
{
beginNYC = "18:00";
}
int day = 0;
int bars = iBars(NULL,PERIOD_H1);
for(int i = 0; i < bars; i++)
{
datetime bartime = iTime(NULL,PERIOD_H1,i);
datetime tNYC = CTimeZoneInfo::ConvertTimeForPlace(bartime, ZONE_ID_BROKER, ZONE_ID_NEWYORK);
if(TimeToString(tNYC,TIME_MINUTES) == beginNYC) // find the H1 bar matching Fx opening in NY.
{
//--- server time corresponding to forex opening at 5 pm in New York (or 6 pm for gold)
BrokerSessions[day][SYD].BeginBroker = bartime;
BrokerSessions[day][SYD].EndBroker = bartime + 9*PeriodSeconds(PERIOD_H1);
//--- set session hours to 8:00 am - 5:00 pm local time
datetime beginlocal = StringToTime(TimeToString(tNYC+PeriodSeconds(PERIOD_D1), TIME_DATE) + " " + "08:00");
datetime endlocal = StringToTime(TimeToString(tNYC+PeriodSeconds(PERIOD_D1), TIME_DATE) + " " + "17:00");
//--- conversion to broker time
BrokerSessions[day][TOK].BeginBroker = CTimeZoneInfo::ConvertTimeForPlace(beginlocal, ZONE_ID_TOKYO, ZONE_ID_BROKER);
BrokerSessions[day][TOK].EndBroker = CTimeZoneInfo::ConvertTimeForPlace(endlocal, ZONE_ID_TOKYO, ZONE_ID_BROKER);
BrokerSessions[day][LON].BeginBroker = CTimeZoneInfo::ConvertTimeForPlace(beginlocal, ZONE_ID_LONDON, ZONE_ID_BROKER);
BrokerSessions[day][LON].EndBroker = CTimeZoneInfo::ConvertTimeForPlace(endlocal, ZONE_ID_LONDON, ZONE_ID_BROKER);
BrokerSessions[day][NYC].BeginBroker = CTimeZoneInfo::ConvertTimeForPlace(beginlocal, ZONE_ID_NEWYORK, ZONE_ID_BROKER);
BrokerSessions[day][NYC].EndBroker = CTimeZoneInfo::ConvertTimeForPlace(endlocal, ZONE_ID_NEWYORK, ZONE_ID_BROKER);
//---
if(++day>=numDays)
break;
}
}
numDays = MathMin(numDays,day);
ArrayResize(BrokerSessions,numDays);
// ArrayPrint(BrokerSessions);
//---
return(numDays);
}
//+------------------------------------------------------------------+
//| Create vertical lines and colored rectangles for forex sessions |
//+------------------------------------------------------------------+
void DrawSessions(SBrokerSession &BrokerSessions[][4])
{
string obj_name, tooltip;
datetime time1, time2;
double price1, price2;
color sColor;
double high[];
double dayhigh;
bool weekstart;
//---
string session_names[]= {"Sydney","Tokyo","London","NewYork"};
string session_labels[]= {"SYD","TOK","LON","NYC"};
color session_colors[4];
session_colors[0]=InpColorSydney;
session_colors[1]=InpColorTokyo;
session_colors[2]=InpColorLondon;
session_colors[3]=InpColorNewYork;
//--- find the highest and lowest values of the chart
double max_price=ChartGetDouble(0,CHART_PRICE_MAX);
double min_price=ChartGetDouble(0,CHART_PRICE_MIN);
double height=(max_price-min_price)/70;
//--- delete objects
ObjectsDeleteAll(0,obj_name_prefix);
//---
for(int i = 0; i < ArrayRange(BrokerSessions, 0); i++)
{
if(InpShowVLines)
{
//--- Show sydney-session start lines
time1 = BrokerSessions[i][SYD].BeginBroker;
obj_name = obj_name_prefix+": "+CTimeZoneInfo::FormatTimeForPlace(time1, ZONE_ID_BROKER, false, false);
weekstart = (i+1 < ArrayRange(BrokerSessions, 0)) && (time1 - BrokerSessions[i+1][SYD].BeginBroker > 24*3600);
sColor = weekstart ? clrDarkOrange : clrWheat;
VLineCreate(obj_name,time1,sColor,STYLE_DASHDOTDOT);
//--- Show day of week text label
int shift = iBarShift(Symbol(),0,time1);
double low = iLow(Symbol(),0,shift);
string wkday = EnumToString((ENUM_DAY_OF_WEEK)(((uint)time1 / 86400 + 4) % 7));
TextCreate(obj_name+"_wkday",wkday,time1,low-50*_Point,sColor);
}
int copied=CopyHigh(Symbol(),PERIOD_H1,BrokerSessions[i][SYD].BeginBroker,BrokerSessions[i][NYC].EndBroker,high);
if(copied<=0)
continue;
dayhigh=high[ArrayMaximum(high)];
for(int s = 0; s < ArraySize(session_names); s++)
{
obj_name = obj_name_prefix+session_names[s]+"Rect"+(string)i;
time1 = BrokerSessions[i][s].BeginBroker;
time2 = BrokerSessions[i][s].EndBroker;
price1 = dayhigh + (height*1.3)*(4-s);
price2 = price1 - height;
sColor = session_colors[s];
tooltip = session_names[s]+" session from "+TimeToString(time1,TIME_MINUTES)+" to "+TimeToString(time2,TIME_MINUTES)+" (server time)";
RectangleCreate(obj_name,time1,price1,time2,price2,sColor,tooltip);
//---
if(InpShowLabels)
{
obj_name = obj_name_prefix+session_names[s]+"Text"+(string)i;
tooltip = session_labels[s]+" "+TimeToString(time1,TIME_MINUTES);
TextCreate(obj_name,tooltip,time1,price1-(height/2),clrWheat);
}
}
}
//---
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void UpdateBrokerClock()
{
string obj_name, text;
int x_, y_;
color sColor;
//---
int sec = CSessionHours::SecRemainingForex();
datetime forexCloseTime = CSessionHours::ForexCloseTime();
int shiftInSeconds = CheckTimeSync();
//---
string brokers_labels[4][2] =
{
{"Server Time : ", CTimeZoneInfo::FormatTimeForPlace(TimeTradeServer(), ZONE_ID_BROKER)},
{"Closing Time : ", CTimeZoneInfo::FormatTimeForPlace(forexCloseTime, ZONE_ID_BROKER)},
{"Remaining sec : ", StringFormat("%i sec = %s %s", sec, CSessionHours::SecondsToString(sec), sec ? sec >= 7200 ? "" : " (closing soon)" : " (market closed)")},
{"PC Time sync : ", shiftInSeconds < 30 ? "Ok" : StringFormat("Shift of pc time is %i sec - Check www.time.is", shiftInSeconds)}
};
//---
for(int i = 0; i < ArrayRange(brokers_labels,0); i++)
for(int j = 0; j < ArrayRange(brokers_labels,1); j++)
{
obj_name = obj_name_prefix+"BrokerLabel_"+(string)(i+4*j);
text = brokers_labels[i][j];
x_ = 12+112*j;
y_ = 72-14*i;
sColor = sec != 0 ? clrWheat : clrDarkGray;
LabelCreate(obj_name,text,x_,y_,sColor);
}
}
//+------------------------------------------------------------------+
//| Check the time synchronization of the local computer. |
//+------------------------------------------------------------------+
int CheckTimeSync()
{
static datetime current, before;
static int shiftInSeconds = 0;
before = current;
current = TimeCurrent();
//--- if it is the first call of the function
if(before == 0)
return(0);
//--- if the server is not "frozen" due to weekends/holidays
if(current != before)
{
shiftInSeconds = (int)(TimeTradeServer() - current);
}
return(shiftInSeconds);
}
//+------------------------------------------------------------------+
//| Create the vertical line |
//+------------------------------------------------------------------+
void VLineCreate(string name, datetime time, color clr, ENUM_LINE_STYLE style=STYLE_SOLID, int width=1)
{
ObjectCreate(0,name,OBJ_VLINE,0,time,0);
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
ObjectSetInteger(0,name,OBJPROP_STYLE,style);
ObjectSetInteger(0,name,OBJPROP_WIDTH,width);
ObjectSetInteger(0,name,OBJPROP_BACK,false);
ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
}
//+------------------------------------------------------------------+
//| Create rectangle by the given coordinates |
//+------------------------------------------------------------------+
void RectangleCreate(string name, datetime time1, double price1, datetime time2, double price2, color clr, string tooltip)
{
ObjectCreate(0,name,OBJ_RECTANGLE,0,time1,price1,time2,price2);
ObjectSetString(0,name,OBJPROP_TOOLTIP,tooltip);
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID);
ObjectSetInteger(0,name,OBJPROP_WIDTH,1);
ObjectSetInteger(0,name,OBJPROP_FILL,true);
ObjectSetInteger(0,name,OBJPROP_BACK,true);
ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
}
//+------------------------------------------------------------------+
//| Creating Text object |
//+------------------------------------------------------------------+
void TextCreate(string name, string text, datetime time, double price, color clr=clrWhiteSmoke)
{
ObjectCreate(0,name,OBJ_TEXT,0,time,price);
ObjectSetString(0,name,OBJPROP_TEXT,text);
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
ObjectSetInteger(0,name,OBJPROP_ANCHOR,ANCHOR_LEFT);
ObjectSetDouble(0,name,OBJPROP_ANGLE,0.00);
ObjectSetString(0,name,OBJPROP_FONT,"Lucida Console");
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,8);
ObjectSetInteger(0,name,OBJPROP_BACK,true);
ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
}
//+------------------------------------------------------------------+
//| Create a text label |
//+------------------------------------------------------------------+
void LabelCreate(string name, string text, int x, int y, color clr=clrWhiteSmoke)
{
ObjectCreate(0,name,OBJ_LABEL,0,0,0);
ObjectSetString(0,name,OBJPROP_TEXT,text);
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,y);
ObjectSetInteger(0,name,OBJPROP_CORNER,CORNER_LEFT_LOWER);
ObjectSetInteger(0,name,OBJPROP_ANCHOR,ANCHOR_LEFT);
ObjectSetDouble(0,name,OBJPROP_ANGLE,0.00);
ObjectSetString(0,name,OBJPROP_FONT,"Lucida Console");
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,8);
ObjectSetInteger(0,name,OBJPROP_BACK,false);
ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
}
//+------------------------------------------------------------------+
Copy permalink