Price Data Components
0
Views
0
Downloads
0
Favorites
fi79tiqfxtuh96qrer5xvh
//+------------------------------------------------------------------+
//| ÌóëüòèÔðåéì.mq4 |
//| Copyright © 2010, SoloatovS Corp. |
//| "SolomatovS@GMail.com" |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, SoloatovS Corp."
#property link "SolomatovS@GMail.com"
#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 1
extern color UP = Green;
extern color DOWN = Red;
extern color DOJI = Yellow;
extern bool time = true;
extern color TIME = White;
extern bool volume = true;
extern color VOLUME = Black;
extern string symbol1 = "EURUSD";
extern string symbol2 = "GBPUSD";
extern string symbol3 = "EURGBP";
extern string symbol4 = "";
extern string symbol5 = "";
extern string symbol6 = "";
extern string symbol7 = "";
extern string symbol8 = "";
extern string symbol9 = "";
extern string symbol10 = "";
extern string symbol11 = "";
extern string symbol12 = "";
extern string symbol13 = "";
extern string symbol14 = "";
extern string symbol15 = "";
extern string symbol16 = "";
extern string symbol17 = "";
extern string symbol18 = "";
extern string symbol19 = "";
extern string symbol20 = "";
string symbol, SYMBOL[], TimeFrame;
int HandleWindow, KolSybmol = 20;
int init()
{
int Len, i=0;
symbol = Symbol();
IndicatorShortName(symbol);
if(StringLen(symbol1) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol1;
i++;
}
if(StringLen(symbol2) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol2;
i++;
}
if(StringLen(symbol3) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol3;
i++;
}
if(StringLen(symbol4) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol4;
i++;
}
if(StringLen(symbol5) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol5;
i++;
}
if(StringLen(symbol6) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol6;
i++;
}
if(StringLen(symbol7) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol7;
i++;
}
if(StringLen(symbol8) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol8;
i++;
}
if(StringLen(symbol9) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol9;
i++;
}
if(StringLen(symbol10) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol10;
i++;
}
if(StringLen(symbol11) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol11;
i++;
}
if(StringLen(symbol12) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol12;
i++;
}
if(StringLen(symbol13) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol13;
i++;
}
if(StringLen(symbol14) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol14;
i++;
}
if(StringLen(symbol15) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol15;
i++;
}
if(StringLen(symbol16) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol16;
i++;
}
if(StringLen(symbol17) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol17;
i++;
}
if(StringLen(symbol18) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol18;
i++;
}
if(StringLen(symbol19) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol19;
i++;
}
if(StringLen(symbol20) == 0) KolSybmol--;
else
{
ArrayResize(SYMBOL, ArraySize(SYMBOL)+1);
SYMBOL[i] = symbol20;
i++;
}
return(0);
}
int deinit()
{
ObjectsDeleteAll(HandleWindow);
return (0);
}
int start()
{
int i, TimeFrame_VOLUME;
color COLOR;
datetime Date = TimeCurrent();
double OPEN, CLOSE, M1, M5, M15, M30, H1, H4, D1, W1, MN1;
HandleWindow = WindowFind(symbol);
ObjectCreate("ASK", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet("ASK", OBJPROP_XDISTANCE, 523);
ObjectSet("ASK", OBJPROP_YDISTANCE, 2);
ObjectSetText("ASK", "...ASK...", 10, "Comic Sans", UP);
ObjectCreate("BID", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet("BID", OBJPROP_XDISTANCE, 593);
ObjectSet("BID", OBJPROP_YDISTANCE, 2);
ObjectSetText("BID", "...BID...", 10, "Comic Sans", DOWN);
//Âûâîäèì Ïàðû (Ñèìâîëû)
for(i=0; i<KolSybmol; i++)
{
ObjectCreate(SYMBOL[i], OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(SYMBOL[i], OBJPROP_XDISTANCE, 3);
ObjectSet(SYMBOL[i], OBJPROP_YDISTANCE, 23+i*20);
ObjectSetText(SYMBOL[i], SYMBOL[i], 10, "Comic Sans", UP);
//Ñòàâèì öåíó íà ïðîêóïêó (ASK)
ObjectCreate(SYMBOL[i]+"ASK", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(SYMBOL[i]+"ASK", OBJPROP_XDISTANCE, 523);
ObjectSet(SYMBOL[i]+"ASK", OBJPROP_YDISTANCE, 23+i*20);
ObjectSetText(SYMBOL[i]+"ASK", DoubleToStr(MarketInfo(SYMBOL[i], MODE_ASK), Digits), 10, "Comic Sans", UP);
//Ñòàâèì öåíó íà ïðîäàæó (BID)
ObjectCreate(SYMBOL[i]+"BID", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(SYMBOL[i]+"BID", OBJPROP_XDISTANCE, 593);
ObjectSet(SYMBOL[i]+"BID", OBJPROP_YDISTANCE, 23+i*20);
ObjectSetText(SYMBOL[i]+"BID", DoubleToStr(MarketInfo(SYMBOL[i], MODE_BID), Digits), 10, "Comic Sans", DOWN);
}
//Âûâîäèì ÒàéìÔðåéì
for(int k=0; k<9; k++)
{
switch(k)
{
case 0: TimeFrame = "...M1.."; break;
case 1: TimeFrame = "...M5.."; break;
case 2: TimeFrame = "..M15.."; break;
case 3: TimeFrame = "..M30.."; break;
case 4: TimeFrame = "...H1.."; break;
case 5: TimeFrame = "...H4.."; break;
case 6: TimeFrame = "...D1.."; break;
case 7: TimeFrame = "...W1.."; break;
case 8: TimeFrame = "..MN1.."; break;
}
ObjectCreate(symbol+k, OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+k, OBJPROP_XDISTANCE, k * 43 + 100);
ObjectSet(symbol+k, OBJPROP_YDISTANCE, 5);
ObjectSetText(symbol+k, TimeFrame, 10, "Terminal", UP);
}
//Âûâîäèì "Ñâåòîôîð÷èê"
for(k=0; k<KolSybmol; k++)
{
M1 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_M1, 0), Digits);
M5 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_M5, 0), Digits);
M15 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_M15, 0), Digits);
M30 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_M30, 0), Digits);
H1 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_H1, 0), Digits);
H4 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_H4, 0), Digits);
D1 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_D1, 0), Digits);
W1 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_W1, 0), Digits);
MN1 = NormalizeDouble(iOpen(SYMBOL[k], PERIOD_MN1, 0), Digits);
CLOSE=NormalizeDouble(iClose(SYMBOL[k],PERIOD_M1, 0), Digits);
for(i=0; i<9; i++)
{
switch(i)
{
case 0: OPEN = M1; TimeFrame_VOLUME = PERIOD_M1; break;
case 1: OPEN = M5; TimeFrame_VOLUME = PERIOD_M5; break;
case 2: OPEN = M15; TimeFrame_VOLUME = PERIOD_M15; break;
case 3: OPEN = M30; TimeFrame_VOLUME = PERIOD_M30; break;
case 4: OPEN = H1; TimeFrame_VOLUME = PERIOD_H1; break;
case 5: OPEN = H4; TimeFrame_VOLUME = PERIOD_H4; break;
case 6: OPEN = D1; TimeFrame_VOLUME = PERIOD_D1; break;
case 7: OPEN = W1; TimeFrame_VOLUME = PERIOD_W1; break;
case 8: OPEN = MN1; TimeFrame_VOLUME = PERIOD_MN1; break;
}
COLOR = COLOR_FUNK(OPEN, CLOSE);
ObjectCreate(SYMBOL[k]+k+i, OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(SYMBOL[k]+k+i, OBJPROP_XDISTANCE, i * 43 + 100);
ObjectSet(SYMBOL[k]+k+i, OBJPROP_YDISTANCE, 25+k*20);
ObjectSet(SYMBOL[k]+k+i, OBJPROP_ARROWCODE, 111);
ObjectSetText(SYMBOL[k]+k+i, "ÛÛÛÛÛÛÛÛ", 10, "Terminal", COLOR);
if(volume == true)
{
ObjectCreate(SYMBOL[k]+k+i+"Volume", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(SYMBOL[k]+k+i+"Volume", OBJPROP_XDISTANCE, i * 43 + 108);
ObjectSet(SYMBOL[k]+k+i+"Volume", OBJPROP_YDISTANCE, 25+k*20);
ObjectSet(SYMBOL[k]+k+i+"Volume", OBJPROP_ARROWCODE, 111);
ObjectSetText(SYMBOL[k]+k+i+"Volume", DoubleToStr(MathAbs(iOpen(SYMBOL[k], TimeFrame_VOLUME, 0) - iClose(SYMBOL[k], TimeFrame_VOLUME, 0))/Point, 0), 8, "Terminal", VOLUME);
}
}
}
//Âûâîäèì Âðåìÿ äî çàêðûòèÿ ñâå÷åé òåêóùåé ïàðû (ñèìâîëà)
if(time == true)
{
M1 = NormalizeDouble(iTime(symbol, PERIOD_M1, 0), Digits);
M5 = NormalizeDouble(iTime(symbol, PERIOD_M5, 0), Digits);
M15 = NormalizeDouble(iTime(symbol, PERIOD_M15, 0), Digits);
M30 = NormalizeDouble(iTime(symbol, PERIOD_M30, 0), Digits);
H1 = NormalizeDouble(iTime(symbol, PERIOD_H1, 0), Digits);
H4 = NormalizeDouble(iTime(symbol, PERIOD_H4, 0), Digits);
D1 = NormalizeDouble(iTime(symbol, PERIOD_D1, 0), Digits);
W1 = NormalizeDouble(iTime(symbol, PERIOD_W1, 0), Digits);
MN1 = NormalizeDouble(iTime(symbol, PERIOD_MN1, 0), Digits);
ObjectCreate(symbol+"_M1", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_M1", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_M1", OBJPROP_YDISTANCE, 5);
ObjectSet(symbol+"_M1", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_M1", "M1:...."+TimeToStr(MathAbs(M1+PERIOD_M1*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_M5", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_M5", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_M5", OBJPROP_YDISTANCE, 25);
ObjectSet(symbol+"_M5", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_M5", "M5:...."+TimeToStr(MathAbs(M5+PERIOD_M5*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_M15", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_M15", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_M15", OBJPROP_YDISTANCE, 45);
ObjectSet(symbol+"_M15", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_M15", "M15:..."+TimeToStr(MathAbs(M15+PERIOD_M15*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_M30", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_M30", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_M30", OBJPROP_YDISTANCE, 65);
ObjectSet(symbol+"_M30", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_M30", "M30:..."+TimeToStr(MathAbs(M30+PERIOD_M30*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_H1", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_H1", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_H1", OBJPROP_YDISTANCE, 85);
ObjectSet(symbol+"_H1", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_H1", "H1:...."+TimeToStr(MathAbs(H1+PERIOD_H1*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_H4", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_H4", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_H4", OBJPROP_YDISTANCE, 105);
ObjectSet(symbol+"_H4", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_H4", "H4:...."+TimeToStr(MathAbs(H4+PERIOD_H4*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_D1", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_D1", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_D1", OBJPROP_YDISTANCE, 125);
ObjectSet(symbol+"_D1", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_D1", "D1:...."+TimeToStr(MathAbs(D1+PERIOD_D1*60 - TimeCurrent()), TIME_SECONDS), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_W1", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_W1", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_W1", OBJPROP_YDISTANCE, 145);
ObjectSet(symbol+"_W1", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_W1", "W1:...."+TIME_HOUR(MathAbs(W1+PERIOD_W1*60 - TimeCurrent())), 10, "Comic Sans", TIME);
ObjectCreate(symbol+"_MN1", OBJ_LABEL, HandleWindow, 0, 0, 0, 0);
ObjectSet(symbol+"_MN1", OBJPROP_XDISTANCE, 20);
ObjectSet(symbol+"_MN1", OBJPROP_YDISTANCE, 165);
ObjectSet(symbol+"_MN1", OBJPROP_CORNER, 1);
ObjectSetText(symbol+"_MN1", "MN1:."+TIME_HOUR(MathAbs(MN1+PERIOD_MN1*60 - TimeCurrent())), 10, "Comic Sans", TIME);
}
return(0);
}
color COLOR_FUNK(double OPEN, double CLOSE)
{
if(CLOSE > OPEN) return(UP);
if(CLOSE < OPEN) return(DOWN);
if(CLOSE == OPEN) return(DOJI);
}
string TIME_HOUR(datetime time)
{
string HOURS, MINUTES, SECONDS;
HOURS = DoubleToStr(MathFloor(time / 60 / 24), 0); if(StringLen(HOURS) == 1) HOURS = "0"+HOURS;
MINUTES = DoubleToStr(MathMod(time / 60, 60), 0); if(StringLen(MINUTES) == 1) MINUTES = "0"+MINUTES;
SECONDS = DoubleToStr(MathMod(time, 60), 0); if(StringLen(SECONDS) == 1) SECONDS = "0"+SECONDS;
return(HOURS+":"+MINUTES+":"+SECONDS);
}
Comments