//+------------------------------------------------------------------+
//| NDA.mq4 |
//| Copyright © 2009, Yuriy Tokman |
//| yuriytokman@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Yuriy Tokman"
#property link "yuriytokman@gmail.com"
#property indicator_chart_window
string name1[]={"frequency 16K","frequency 14K","frequency 12K","frequency 6K","frequency 3K",
"frequency 1K","frequency 600","frequency 310","frequency 170","frequency 60"};
string name2[]={"-20db","-16db","-12db","-8db","-4db","+0db","+4db","+8db","+12db","+16db","+20db"};
string name3[]={"Ï","è","ø","ó"," í","à"," ç","à","ê","à","ç:"," y","u","r","i","y","t","o","k",
"m","a","n","@ "," g","m","a","i","l.","c","o","m"," ",".",".",".",".",".",".",".",".","$"};
int count = 0;
int old_tick = 0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
old_tick = Bid/Point;
//----
MathSrand(TimeLocal());
//----
for(int x=0;x<10;x++)SetText("NDA_txt1"+x,name1[x],1,(x+3)*20,520,9,"Tahoma", Gold,45);
for(x=0;x<10;x++)SetText("NDA_Zero"+x,CharToStr(59),1,(x+2)*21,500,18, "Wingdings", Yellow);
for(x=0;x<11;x++)SetText("NDA_txt2"+x,name2[x],1,15,510-x*14,7,"Arial", Yellow);
SetText("NDA_Centr",CharToStr(91),1,131,330,28,"Wingdings",Aqua);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
string vName;
for(int i=ObjectsTotal()-1; i>=0;i--)
{
vName = ObjectName(i);
if (StringFind(vName,"NDA_") !=-1) ObjectDelete(vName);
}
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int x;
string vName2;
for(int i=ObjectsTotal()-1; i>=0;i--)
{
vName2 = ObjectName(i);
if (StringFind(vName2,"NDA_pole_") !=-1) ObjectDelete(vName2);
}
//----
int new_tick = Bid/Point;
int delta = MathAbs(new_tick-old_tick);
if(delta==0)PlaySound("ok.wav");if(delta==1)PlaySound("tick.wav");
if(delta==2)PlaySound("alert2.wav");if(delta==3)PlaySound("alert.wav");
if(delta>3)PlaySound("timeout.wav");
old_tick = Bid/Point;
//----
ObjectSet("NDA_Centr",OBJPROP_COLOR,GetColor(delta));
for(x=0;x<delta;x++)SetText("NDA_pole_R"+x,CharToStr(59),1,105-x*21,333,18, "Wingdings",GetColor2(delta));
for(x=0;x<delta;x++)SetText("NDA_pole_L"+x,CharToStr(59),1,168+x*21,333,18, "Wingdings",GetColor2(delta));
//----
count++;
color col = Gold;
if (count>41){count=0;for(x=0;x<41;x++)ObjectDelete("NDA_txt3"+x);}
if(count>20)col=Yellow;if(count>30)col=Lime;
for(x=0;x<count;x++)SetText("NDA_txt3"+x,name3[x],2,(x+1)*15,10,12,"Arial Black",col);
//----
int value1 = GetRand(0,10);int value2 = GetRand(0,10);int value3 = GetRand(0,10);
int value4 = GetRand(0,10);int value5 = GetRand(0,10);int value6 = GetRand(0,10);
int value7 = GetRand(0,10);int value8 = GetRand(0,10);int value9 = GetRand(0,10);
int value10 = GetRand(0,10);
//---- +21
for(x=0;x<value1;x++)SetText("NDA_pole_1"+x,CharToStr(59),1,42,485-x*14,18, "Wingdings", GetColor(value1));
for(x=0;x<value2;x++)SetText("NDA_pole_2"+x,CharToStr(59),1,63,485-x*14,18, "Wingdings", GetColor(value2));
for(x=0;x<value3;x++)SetText("NDA_pole_3"+x,CharToStr(59),1,84,485-x*14,18, "Wingdings", GetColor(value3));
for(x=0;x<value4;x++)SetText("NDA_pole_4"+x,CharToStr(59),1,105,485-x*14,18, "Wingdings", GetColor(value4));
for(x=0;x<value5;x++)SetText("NDA_pole_5"+x,CharToStr(59),1,126,485-x*14,18, "Wingdings", GetColor(value5));
for(x=0;x<value6;x++)SetText("NDA_pole_6"+x,CharToStr(59),1,147,485-x*14,18, "Wingdings", GetColor(value6));
for(x=0;x<value7;x++)SetText("NDA_pole_7"+x,CharToStr(59),1,168,485-x*14,18, "Wingdings", GetColor(value7));
for(x=0;x<value8;x++)SetText("NDA_pole_8"+x,CharToStr(59),1,189,485-x*14,18, "Wingdings", GetColor(value8));
for(x=0;x<value9;x++)SetText("NDA_pole_9"+x,CharToStr(59),1,210,485-x*14,18, "Wingdings", GetColor(value9));
for(x=0;x<value10;x++)SetText("NDA_pole_10"+x,CharToStr(59),1,231,485-x*14,18, "Wingdings", GetColor(value10));
//----
return(0);
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
void SetText(string name,string text,int CORNER,int XDISTANCE,int YDISTANCE,
int font_size, string font_name, color text_color=CLR_NONE, double ANGLE = 0)
{
if (ObjectFind(name)!=-1) ObjectDelete(name);
ObjectCreate(name,OBJ_LABEL,0,0,0,0,0);
ObjectSet(name,OBJPROP_CORNER,CORNER);
ObjectSet(name,OBJPROP_XDISTANCE,XDISTANCE);
ObjectSet(name,OBJPROP_YDISTANCE,YDISTANCE);
ObjectSet(name, OBJPROP_ANGLE , ANGLE);
ObjectSetText(name,text,font_size,font_name,text_color);
}
//+----------------------------------------------------------------------------+
int GetRand(int vFrom, int vTo)
{
int vV;
while (true)
{
vV = MathRand();
if (vV>=vFrom && vV<=vTo) break;
}
return(vV);
}
//+----------------------------------------------------------------------------+
//| Îïèñàíèå : Âîçâðàùàåò öâåò ïî íîìåðó |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| nambe - ÷èñëî îò 0 äî 10 |
//+----------------------------------------------------------------------------+
color GetColor(int nambe=0)
{
switch (nambe)
{
case 0: return(Crimson);
case 1: return(Aqua);
case 2: return(Red);
case 3: return(OrangeRed);
case 4: return(Tomato);
case 5: return(Salmon);
case 6: return(LightGreen);
case 7: return(GreenYellow);
case 8: return(LawnGreen);
case 9: return(LimeGreen);
case 10: return(Green);
default: return(Khaki);
}
}
//+----------------------------------------------------------------------------+
//| Îïèñàíèå : Âîçâðàùàåò öâåò ïî íîìåðó |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| nambe - ÷èñëî îò 0 äî 10 |
//+----------------------------------------------------------------------------+
color GetColor2(int nambe=0)
{switch (nambe)
{
case 1: return(GreenYellow);
case 2: return(Lime);
case 3: return(OrangeRed);
case 4: return(DeepPink);
default: return(DeepPink);
}
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features:
It plays sound alerts