14
Views
0
Downloads
0
Favorites
Bid_View2_0
//+------------------------------------------------------------------+
//| BID_VIEW-2.0.mq4 |
//| Copyright © 2008, "OTCFX" |
//| Revision 2.0 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008 OTCFX"
#property indicator_separate_window
extern bool Bid_Colors=True;
extern string FontType=" Sans MS";
extern color ColorHeading=Gainsboro;
extern color ColorValue= CadetBlue;
extern int TimeFrame = 1440;
extern int Trend_Bars=10;
extern bool show_Trend=false;
extern bool show_CTrend=true;
extern int price_x_offset= 50;
extern int price_y_offset= 10;
color ColorPrice=CadetBlue;
extern int myArrowSize=15;
int MAP=1;
int Spread;
int Local_Time;
string labelNames;
string shortName;
int corner;
int totalLabels;
int window;
int nDigits;
int pZX;
int PTL;
int EROS;
int EROB;
double O_P;
double O_P1;
double O_P2;
int F_Offset=0;
string Arrow12="é"; // 12 oclock 225
string Arrow12_2= "ñ"; // 12 oclock
string Arrow6 = "ê"; // 6 oclock 226
string Arrow6_2= "ò"; // 6 oclock
extern color N_color = Lime;
extern color S_color = Red;
double xREV;
double xREV1;
int BidDir,R77Dir;
string PriceDir;
string PriceDir1;
color CloseColor;
color CloseColor1;
int NormalSpread,NormalStopLevel;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
color fColor(double i)
{
color rColor;
if(i==1) rColor=N_color; else
{
//if ( i >= 4 ) rColor = NE_color ; else {
//if ( i == 3 ) rColor = E_color ; else {
if(i==0) rColor=S_color; else
{
rColor=S_color;
}
}
return(rColor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int fDirection(double i,double j)
{
int rColor;
if(i>j) rColor=1;
else
{
if(i<j) rColor=0;
else rColor=0;
}
return(rColor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string fCompass(double i)
{
string rCompass;
if(i==1) rCompass=Arrow12; else
{
if(i==0) rCompass=Arrow6; else
{
rCompass=Arrow6;
}
}
return(rCompass);
}
/////////////////////////////>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.....#2
color tColor(double i)
{
color tColor;
if(i==1) tColor=N_color; else
{
if(i==0) tColor=S_color; else
{
tColor=S_color;
}
}
return(tColor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int gDirection(double i,double j)
{
int tColor;
if(i>j) tColor=1;
else
{
if(i<j) tColor=0;
else tColor=0;
}
return(tColor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string gCompass(double i)
{
string gCompass;
if(i==1) gCompass=Arrow12; else
{
if(i==0) gCompass=Arrow6; else
{
gCompass=Arrow6;
}
}
return(gCompass);
}
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
corner = 0;
shortName = MakeUniqueName("MT ","");
labelNames = shortName;
IndicatorShortName(shortName);
NormalSpread=MarketInfo(Symbol(),MODE_SPREAD);
NormalStopLevel=MarketInfo(Symbol(),MODE_STOPLEVEL);
start();
string S=Symbol();
if(S=="ER2" || S=="FESX" || S=="FTSE" || S=="FDAX") nDigits=1;
if(S=="GBPJPY" || S=="EURJPY" || S=="USDJPY" || S=="GOLD" || S=="AUDJPY" || S=="FGBL" ||
S=="NZDJPY" || S=="CADJPY" || S=="CHFJPY" || S=="BRN" || S=="WTI" || S=="NQ" || S=="ES" || S=="XAU") nDigits=2;
if(S=="GBPUSD" || S=="EURUSD" || S=="NZDUSD" || S=="USDCHF" ||
S=="USDCAD"||S=="AUDUSD"|| S=="EURUSD"||S=="EURCHF"|| S=="EURGBP"
|| S=="EURCAD" || S=="EURAUD" || S=="AUDNZD" || S=="GBPCHF" || S=="EURAUD" ||
S=="GBPAUD"|| S== "AUDCAD" || S=="AUDCHF"|| S=="NZDCHF"|| S=="NZDCAD" ||S=="NZDCHF"||
S=="EURNZD"|| S=="CADCHF"|| S=="EURCAD"|| S=="USDNOK"|| S=="USDDKK") nDigits = 4;
int result;
if(TimeFrame==0)
result=Period();
else
{
switch(TimeFrame)
{
case 1 : result = PERIOD_M1; break;
case 5 : result = PERIOD_M5; break;
case 15 : result = PERIOD_M15; break;
case 30 : result = PERIOD_M30; break;
case 60 : result = PERIOD_H1; break;
case 240 : result = PERIOD_H4; break;
case 1440 : result = PERIOD_D1; break;
case 7200 : result = PERIOD_W1; break;
case 28800: result = PERIOD_MN1; break;
default : result=Period(); break;
}
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
while(totalLabels>0) { ObjectDelete(StringConcatenate(labelNames,totalLabels)); totalLabels--;}
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
int limit=Bars-counted_bars;
if(counted_bars==0) limit--;
if(limit<0) return;
if(counted_bars<Trend_Bars) return;
window=WindowFind(shortName);
ObjectsDeleteAll(window,21);
ObjectsDeleteAll(window,22);
ObjectsDeleteAll(window,23);
int i=0;
int R77=0,CD=0,AM=0,Mval=0;
double CC7,CC2,CC3,CC4,CC5,CC6;
double HY1,HY2,HZ1,HZ2,SC1;
double C7_7,C2_2,C3_3,C4_4,C5_5,C6_6;
double HD,DL,BTX1,BTX1_1,BTX2,BTX2_2,BTX3,BTX3_3,BTX4,BTX4_4,BTX5,BTX5_5;
double BTX6,BTX6_6,BTX7,BTX7_7,BTX8,BTX8_8,BTX9,BTX9_9,BTX10,BTX10_10,DC,DO;
double PercentUp,Perc,Per;
double R77T,R77T1,R77T2;
string FX_T="Verdana Bold";
string T=TimeFrame;
if(TimeFrame==0) TimeFrame=Period();
int yPos=24,xPos=10;
int xSpacer=140;
string SpacerText1 = "__________________________";
string SpacerText2 = "__________________________________________________________________________________________________________";
if(F_Offset>0) F_Offset=0;
if(Trend_Bars>15) Trend_Bars=15;
if(price_y_offset<10) price_y_offset=10;
if(price_y_offset>20) price_y_offset=20;
if(price_x_offset<0) price_x_offset=0;
if(myArrowSize>15) myArrowSize=15;
if(show_Trend==true) show_CTrend=false;
string S=Symbol();
if(S=="ES" || S=="WTI" || S=="XAU" || S=="GOLD") {EROS=13;}else {EROS=16;}
if(S=="ES" || S=="WTI" || S=="XAU" || S=="GOLD") {EROB=12;}else {EROB=13;}
if(S=="ER2" || S=="FESX" || S=="FTSE" || S=="FDAX") {pZX=1000000;}
if(S=="GBPJPY" ||S=="EURJPY" || S=="USDJPY" || S=="GOLD"|| S=="AUDJPY"||S=="FGBL"||
S=="NZDJPY"|| S=="CADJPY" ||S== "CHFJPY" || S=="BRN" ||S=="WTI" || S=="NQ" || S=="ES"||
S=="XAU" || S=="XAG") {pZX=100000;}
if(S=="GBPUSD" || S=="EURUSD" || S=="NZDUSD" || S=="USDCHF" ||
S=="USDCAD"||S=="AUDUSD"|| S=="EURUSD"||S=="EURCHF"|| S=="EURGBP"
|| S=="EURCAD" || S=="EURAUD" || S=="AUDNZD" || S=="GBPCHF" || S=="EURAUD" ||
S=="GBPAUD"|| S== "AUDCAD" || S=="AUDCHF"|| S=="NZDCHF"|| S=="NZDCAD" ||S=="NZDCHF"||
S=="EURNZD" || S=="CADCHF" || S=="EURCAD" || S=="USDNOK" || S=="USDDKK"){pZX=1000;}
CC2 =iClose(NULL,PERIOD_M5,0);
C2_2= iOpen(NULL,PERIOD_M5,0);
CC3 =iClose(NULL,PERIOD_M15,0);
C3_3= iOpen(NULL,PERIOD_M15,0);
CC4 =iClose(NULL,PERIOD_M30,0);
C4_4= iOpen(NULL,PERIOD_M30,0);
CC5 =iClose(NULL,PERIOD_H1,0);
C5_5= iOpen(NULL,PERIOD_H1,0);
CC6 =iClose(NULL,PERIOD_H4,0);
C6_6= iOpen(NULL,PERIOD_H4,0);
CC7 =iClose(NULL,PERIOD_D1,0);
C7_7= iOpen(NULL,PERIOD_D1,0);
R77=(iClose(NULL,PERIOD_D1,0)-iOpen(NULL,PERIOD_D1,0))/Point;
if(R77<-99) {Mval=242;}else {Mval=246;}
DO=iOpen(NULL,PERIOD_D1,0);
DC =iClose(NULL,PERIOD_D1,0);
HD = iHigh(NULL,PERIOD_D1,0);
DL = iLow(NULL,PERIOD_D1,0);
//open0 = iOpen(NULL,PERIOD_D1,0);
if(DC!=0) PercentUp=((R77)/(DC))/100;
else return;
Per=PercentUp*pZX;
Perc=Per/1000;
RefreshRates();
int ActualSpread=(Ask-Bid)/Point;
int ActualStopLevel=MarketInfo(Symbol(),MODE_STOPLEVEL);
if(ActualSpread>NormalSpread) {SC1=2;}else {SC1=0; }
color ColorCH7044;
if(SC1>1) { ColorCH7044=Red;} else { ColorCH7044=ColorHeading;}
Spread=NormalizeDouble((Ask-Bid)/Point,0);
if(Spread<0) Spread=0;
R77=(iClose(NULL,PERIOD_D1,0)-iOpen(NULL,PERIOD_D1,0))/Point;
if(R77<-99) {Mval=242;}else {Mval=246;}
if(Bid_Colors==True)
{
if(Close[i]>O_P) ColorPrice=DodgerBlue;
if(Close[i]>O_P) {HY1=2;}
if(Close[i]<O_P) ColorPrice=Silver;
if(Close[i]<O_P) {HY2=0;}
O_P=Close[i];
}
color ColorCT709;
if(Close[i]<O_P2) { ColorCT709=Red;}
O_P2=Close[i];
if(Close[i]<O_P2) //{BP1=False;}
color ColorCT708;
if(Close[i]>O_P1) { ColorCT708=Lime;}
string Market_Price=DoubleToStr(Close[i],Digits);
color ColorCH704;
if(R77 >= 0 ) { ColorCH704 =LimeGreen; }
if(R77 >= 0 ) {HZ1=2;}
color ColorCH705;
if(R77 < 0) { ColorCH705 =Silver; }else { ColorCH705 =ColorValue; }
if(R77>= 0) {HZ2=0;}
BidDir= fDirection(HY1,HY2);
R77Dir= gDirection(HZ1,HZ2);
xREV=BidDir;
xREV1=R77Dir;
CloseColor=fColor(xREV);
CloseColor1=tColor(xREV1);
PriceDir=fCompass(xREV);
PriceDir1=gCompass(xREV1);
setObject(next(),PriceDir,115+price_x_offset,4+price_y_offset,CloseColor,"Wingdings",myArrowSize+F_Offset,0);
//setObject(next(),"^",129+price_x_offset, 32+price_y_offset,ColorCT709 ,"Arial Bold",20+F_Offset,180);
setObject(next(),PriceDir1,227+price_x_offset,4+price_y_offset,CloseColor1,"Wingdings",myArrowSize+F_Offset,0);//
//setObject(next(),"^",240+price_x_offset, 32+price_y_offset,ColorCH705 ,"Arial Bold",18+F_Offset,180);//
setObject(next(),Market_Price,140+price_x_offset,5+price_y_offset,ColorPrice,FX_T,EROS+F_Offset);
setObject(next(),StringSubstr(Symbol(),0),22+price_x_offset,5+price_y_offset,ColorValue,FX_T,13+F_Offset);
setObject(next(),DoubleToStr(DO,Digits),383+price_x_offset,5+price_y_offset,ColorValue,FX_T,EROB+F_Offset);
setObject(next(),DoubleToStr(HD,Digits),472+price_x_offset,5+price_y_offset,ColorValue,FX_T,EROB+F_Offset);
setObject(next(),DoubleToStr(DL,Digits),554+price_x_offset,5+price_y_offset,ColorValue,FX_T,EROB+F_Offset);
setObject(next(),DoubleToStr(R77,0),Mval+price_x_offset,5+price_y_offset,ColorCH705,FX_T,EROB+F_Offset);
//setObject(next(),DoubleToStr(R77T2 ,nDigits),247+price_x_offset, 5+price_y_offset,ColorValue ,FX_T,13+F_Offset);
setObject(next(),TimeToStr(CurTime(),TIME_SECONDS),777+price_x_offset,5+price_y_offset,ColorValue,FX_T,13+F_Offset);
setObject(next(),TimeToStr(LocalTime(),TIME_MINUTES),880+price_x_offset,5+price_y_offset,ColorValue,FX_T,13+F_Offset);
setObject(next(),DoubleToStr(Spread,Digits-3),970+price_x_offset,5+price_y_offset,ColorValue,FX_T,13+F_Offset);
setObject(next(),DoubleToStr(Perc,nDigits),300+price_x_offset,5+price_y_offset,ColorValue,FX_T,13+F_Offset);
setObject(next(),"Name",45+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"Last",157+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"Change",237+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"%CH",317+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"Open",398+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"High",484+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"Low",571+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"BidTime",795+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"LocalTime",880+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),"Spread",970+price_x_offset,-10+price_y_offset,ColorCH7044,FX_T,9+F_Offset);
if(show_Trend)
{
setObject(next(),"1",755+price_x_offset,-10+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),DoubleToStr(Trend_Bars,0),630+price_x_offset,-10+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"Trend",695+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
setObject(next(),StringSubstr((T),0),655+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
}
setObject(next(),SpacerText1,88+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,199+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,270+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,350+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,430+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,520+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,600+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,745+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,840+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,930+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,1002+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText1,-25+price_x_offset,30+price_y_offset,DarkGray,FX_T,17+F_Offset,90);
setObject(next(),SpacerText2,0+price_x_offset,-5+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,250+price_x_offset,-5+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,450+price_x_offset,-5+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,650+price_x_offset,-5+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,650+price_x_offset,21+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,380+price_x_offset,21+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText2,100+price_x_offset,21+price_y_offset,DarkGray,FX_T,6+F_Offset);
setObject(next(),SpacerText1,0+price_x_offset,21+price_y_offset,DarkGray,FX_T,6+F_Offset);
color ColorCX105;
if(CC2>=C2_2) { ColorCX105=LimeGreen; }else { ColorCX105=Red; }
color ColorCX106;
if(CC3>=C3_3) { ColorCX106=LimeGreen; }else { ColorCX106=Red; }
color ColorCX107;
if(CC4>=C4_4) { ColorCX107=LimeGreen; }else { ColorCX107=Red; }
color ColorCX108;
if(CC5>=C5_5) { ColorCX108=LimeGreen; }else { ColorCX108=Red; }
color ColorCX109;
if(CC6>=C6_6) { ColorCX109=LimeGreen; }else { ColorCX109=Red; }
color ColorCX110;
if(CC7>=C7_7) { ColorCX110=LimeGreen; }else { ColorCX110=Red; }
if(show_CTrend)
{
setObject(next(),"-",616+price_x_offset,24+price_y_offset,ColorCX105,FX_T,30+F_Offset,90);
setObject(next(),"-",639+price_x_offset,24+price_y_offset,ColorCX106,FX_T,30+F_Offset,90);
setObject(next(),"-",660+price_x_offset,24+price_y_offset,ColorCX107,FX_T,30+F_Offset,90);
setObject(next(),"-",683+price_x_offset,24+price_y_offset,ColorCX108,FX_T,30+F_Offset,90);
setObject(next(),"-",708+price_x_offset,24+price_y_offset,ColorCX109,FX_T,30+F_Offset,90);
setObject(next(),"-",730+price_x_offset,24+price_y_offset,ColorCX110,FX_T,30+F_Offset,90);
setObject(next(),"5",630+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"15",648+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"30",670+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"60",692+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"H4",715+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"D1",739+price_x_offset,13+price_y_offset,ColorHeading,"Verdana",8+F_Offset);
setObject(next(),"Candle Color",657+price_x_offset,-10+price_y_offset,ColorHeading,FX_T,9+F_Offset);
}
color LabelColor;
int SpX=615,SpX2=7;
for(i=Trend_Bars; i>=0; i--)
{
BTX1=iMA(S,TimeFrame,MAP,0,1,1,i);
BTX1_1=iMA(S,TimeFrame,MAP,0,0,0,i);
LabelColor=Red;
if(BTX1_1>BTX1) LabelColor=Lime;
SpX=SpX+SpX2;
if(show_Trend)
{
setObject(next(),"-",SpX+price_x_offset,25+price_y_offset,LabelColor,FX_T,30,90);
}
}
return(0);
}
string next() { totalLabels++; return(totalLabels); }
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string MakeUniqueName(string first,string rest)
{
string result=first+(MathRand()%1001)+rest;
while(WindowFind(result)>0)
result=first+(MathRand()%1001)+rest;
return(result);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void setObject(string name,string text,int x,int y,color theColor,string font="Arial",int size=10,int angle=0)
{
string labelName=StringConcatenate(labelNames,name);
if(ObjectFind(labelName)==-1)
{
ObjectCreate(labelName,OBJ_LABEL,window,0,0);
ObjectSet(labelName,OBJPROP_CORNER,corner);
if(angle!=0)
ObjectSet(labelName,OBJPROP_ANGLE,angle);
}
ObjectSet(labelName,OBJPROP_XDISTANCE,x);
ObjectSet(labelName,OBJPROP_YDISTANCE,y);
ObjectSetText(labelName,text,size,font,theColor);
//}
//---- done
return(0);
}
//+------------------------------------------------------------------+
Comments