//+------------------------------------------------------------------+ //| Chin Breakout Alert.mq4 | //| Copyright ? 2007, MetaQuotes Software Corp. | //| Instructions for use // | are in this video:http://www.youtube.com/watch?v=5Ds1BZl78xQ //+------------------------------------------------------------------+ #property copyright "Chin Pip. Video instruction is@ youtube video below:" #property link " http://www.youtube.com/watch?v=svbAXmkCTKE" #property link "and http://www.youtube.com/watch?v=5Ds1BZl78xQ" #include #property indicator_chart_window #property indicator_buffers 1 #property indicator_color1 Black //---- input parameters extern bool Alert_on? =True; extern bool Pop_Up_Box=False; extern double Time_Out=7; extern bool Full_Voice_Support? = true; extern string INSTURCTIONS____= "The Above requires 20 additional Sound files."; //---- buffers double ExtMapBuffer1; double top =-1; double bottom=-1; double hi= -1; //this is used for the visible bar High double lo= -1; //visible bar Low double hi5=-1; // (5 bar hi)this is to make sure that we didn't scale ourselves out of the visible area of WindowS double lo5=-1; // (5 bar low) double himax=-1; //max price on the scale. double lomin=-1; //min price on the scale int windowbars=-1; //how many bars double i=-1; //this is a counter double ii=-1; //another counter double asdf=-28347.23898,asdfff=-289349.832892;//couple of other counters double iasdf=0; //just a counter. Probably not the most efficient way to use variables. double sleep = 716.0989767; // this is an artificial sleep double timecur = -1; //this is the time current for the pauses between movements double timelock = -1; double timelock2= -1;//this is a smaller lock out just for displaying the breech message //double timelock3= -1;//this yet another time lock to make sure sounds are not piled up on each other. I probably could have been more efficient and just used one variable instead of 3. string top$=" "; //this is a string to convert the double top into a string string bottom$="."; //this is to convert double bottom into a string string sym$ = "nothing"; //this is for the symbol(); int sym = -1; // this is going for case switch. double blue_ydistance= -1; //finds the ydistnace double red_ydistance = -1; string TopComment = "none"; string BottomComment = "none"; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { if (Full_Voice_Support? == true && Pop_Up_Box == true) Alert("Turn off Pop_Up_Box if you Want Full Voice Support."); sym$=Symbol(); //this gets the symbols and converts it to a numerical value. if (sym$== "AUDCAD" ) sym = 1 ; if (sym$== "AUDJPY" ) sym = 2 ; if (sym$== "AUDUSD" ) sym = 3 ; if (sym$== "CADJPY" ) sym = 4 ; if (sym$== "CHFJPY" ) sym = 5 ; if (sym$== "EURAUD" ) sym = 6 ; if (sym$== "EURCAD" ) sym = 7 ; if (sym$== "EURCHF" ) sym = 8 ; if (sym$== "EURGBP" ) sym = 9 ; if (sym$== "EURJPY" ) sym = 10 ; if (sym$== "EURUSD" ) sym = 11 ; if (sym$== "GBPCHF" ) sym = 12 ; if (sym$== "GBPJPY" ) sym = 13 ; if (sym$== "GBPUSD" ) sym = 14 ; if (sym$== "NZDJPY" ) sym = 15 ; if (sym$== "NZDUSD" ) sym = 16 ; if (sym$== "USDCAD" ) sym = 17 ; if (sym$== "USDCHF" ) sym = 18 ; if (sym$== "USDJPY" ) sym = 19 ; //---- indicators //Before we Start, Let's delete all the objects: ObjectDelete("top"); ObjectDelete("bottom"); ObjectDelete("Top Instruction"); ObjectDelete("Bottom Instruction"); ObjectDelete("Vis1"); ObjectDelete("Vis2"); ObjectDelete("Vis3"); ObjectDelete("Vis4"); //------------ SetIndexStyle(0,DRAW_LINE); SetIndexBuffer(0,ExtMapBuffer1); //Comment("blah blah"); /* //>>>>>>>>>>>>>>>>>>>>>>>>>>> //let's do some visual effects to let traders know that this is indeed a Visual Trader himax=WindowPriceMax(0); //get the hi and low window price lomin=WindowPriceMin(0); int x1 = MathRound(WindowBarsPerChart()*0.66); int x2 = MathRound(WindowBarsPerChart()*0.39); int x3 = MathRound(WindowBarsPerChart()*0.71); int x4 = MathRound(WindowBarsPerChart()*0.31); double xx1 = lomin+(himax-lomin)/7; //the low plus a tenth of the range of the high to the low double xx2 = himax-(himax-lomin)/7; double xx3 = himax-(himax-lomin)/7; double xx4 = himax-(himax-lomin)/7; xx1=WindowPriceMax(0); xx2=WindowPriceMin(0); Comment("winmax",WindowPriceMax(0), " xx1 ", xx1, " xx2 ", xx2, " xx3 ", xx3, " xx4 ", xx4); ObjectCreate("Vis1",OBJ_TEXT,0,Time[x1],xx1);//lomin+(himax+lomin)/10); ObjectCreate("Vis2",OBJ_TEXT,0,Time[x2],xx2);//himax-(himax+lomin)/10); ObjectCreate("Vis3",OBJ_TEXT,0,Time[x3],xx3);//himax-(himax+lomin)/7); ObjectCreate("Vis4",OBJ_TEXT,0,Time[x4],xx4); ObjectSetText("Vis1","____________________________________________________________",10,"Arial",Blue); //start at the middle and move towards the final location ObjectSetText("Vis2","____________________________________________________________",10,"Arial",Red); ObjectSetText("Vis3","Visual",30,"Arial",ForestGreen); ObjectSetText("Vis4","Trader",40,"Arial",ForestGreen); //final destination of: //vis1: middle and Hi (spins twice as fast) //vis2: middle and low //vis3: Left middle and Low(spins twice as fast) //vis4: Right Middle and Low //we will do a measured move from the origination to the destination i=0; for (i=0; i < 723.9000; i+=4.00000) //we want to spin this thing until it reaches the X coordinates and y coordinates we want. //i / 2 = 360 { timecur = TimeLocal(); ii=0; while (TimeLocal()WindowBarsPerChart()) windowbars = WindowBarsPerChart(); //these are numbered with last bar being number 1. If first visible bar is more than the # of bars per window, then the chart has been scrolled left. else windowbars = WindowFirstVisibleBar(); //if chart has not bee scrolled left, we can use the first visible bar if (windowbars >WindowBarsPerChart()*0.95 || windowbars himax) hi -= (hi+lo)/12; if (lolo5) lo=lo5; //if the scale is out of range, we just take the hi or low of the last 5 bars. //length of the window # of bars short by 1/7 ObjectCreate("top",2,0,Time[windowbars]+windowbars*0.321*Period()*60,hi,Time[0],hi); ObjectSet("top",OBJPROP_COLOR,Blue); ObjectCreate("bottom",2,0,Time[windowbars]+windowbars*0.312*Period()*60,lo,Time[0],lo); ObjectSet("bottom",OBJPROP_COLOR,Red); //---- return (0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- ObjectDelete("top"); ObjectDelete("bottom"); ObjectDelete("Top Instruction"); ObjectDelete("Bottom Instruction"); ObjectDelete("Top Instruction2"); ObjectDelete("Bottom Instruction2"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); //---- //>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>... /* for (int akak =1 ; akak< 10; akak++) { for(int kkkk=1; kkkk<500000; ) kkkk++; Comment(akak); PlaySound("Alert2.wav"); kkkk=0; } */ //>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> if (Alert_on? == False) { ObjectDelete("Top Instruction"); ObjectCreate("Top Instruction",OBJ_LABEL,0,TimeLocal(),0); ObjectSetText("Top Instruction","Alert HAS been Turned OFF.",10,"Arial",DodgerBlue); ObjectSet("Top Instruction",OBJPROP_YDISTANCE, 44); ObjectSet("Top Instruction",OBJPROP_XDISTANCE, 10); ObjectSet("top",OBJPROP_STYLE,STYLE_DASHDOT); ObjectSet("top",OBJPROP_COLOR,Yellow); ObjectSet("bottom",OBJPROP_STYLE,STYLE_DASHDOT); ObjectSet("bottom",OBJPROP_COLOR,Yellow); return(0); } ObjectCreate("Top Instruction",OBJ_TEXT,0,Time[WindowBarsPerChart()/2],hi); ObjectSetText("Top Instruction","Resistance",10,"Arial",DodgerBlue); // ObjectMove("Top Instruction",0,Time[55],hi+15*Point); // ObjectSet("Top Instruction",OBJPROP_XDISTANCE,30); ObjectSet("Top Instruction",OBJPROP_ANGLE, i); if (i>3.9 || ii<-3.7) {i=-3.2; ii=3.4;} i +=0.1657; ii-=0.6; ObjectCreate("Bottom Instruction",OBJ_TEXT,0,Time[WindowBarsPerChart()/2],lo); ObjectSetText("Bottom Instruction","Support",10,"Arial",DeepPink); // ObjectMove("Bottom Instruction",0,Time[37],lo+12*Point); // ObjectSet("Bottom Instruction",OBJPROP_XDISTANCE,30); ObjectSet("Bottom Instruction",OBJPROP_ANGLE, ii); ObjectSet("top",OBJPROP_COLOR,Blue); ObjectSet("bottom",OBJPROP_COLOR,Red); //this gets the price of the blue and red lines top = ObjectGetValueByShift("top",0); bottom = ObjectGetValueByShift ("bottom",0); if(top != hi) { hi +=0.002932498*Point; top$ = NormalizeDouble(top,Digits); //--Let's find the decimal point to the top$ string. (we do this so we can truncate the string to shave off the extra zeros after the decimal point i=0; //for any while loop or for loop, you want to give it two ways to break the loop (for safety). while (StringGetChar(top$,i)!=46 && i<10) i+=1.01010101; //trying to find the decimal point in the top$ string top$ = StringSubstr(top$,0,i+Digits+1); //start extract the string from the first charater up to all the places behind the decimal if (TimeLocal()>timelock2) //do this only if we are not in time lock {TopComment= "R: "+top$; } if (ObjectFind("top") !=0 ) //This is if the /blue horizontal line has been deleted. { top=9999999; TopComment="Top Alert=off (Blue line DELETED)."; //objfind returns the window in which the object resides. } ObjectDelete("Top Instruction"); ObjectCreate("Top Instruction",OBJ_LABEL,0,TimeLocal(),0); ObjectSetText("Top Instruction",TopComment,10,"Arial",SteelBlue); ObjectSet("Top Instruction",OBJPROP_YDISTANCE, 44); ObjectSet("Top Instruction",OBJPROP_XDISTANCE, 10); } if(bottom != lo) { lo +=0.001228398*Point; bottom$ = NormalizeDouble(bottom,Digits); //--- The following is for trying to find the decimal point of the bottom$ string i=0; while (StringGetChar(bottom$,i)!=46 && i <10) i+=1.01010101; //trying to find the decimal point in the top$ string bottom$ = StringSubstr(bottom$,0,i+Digits+1); //start extract the string from the first charater (0) all the way to the last place behind the decimal //--- if(TimeLocal()>timelock2)//DO THIS only if we are not in lock out. {BottomComment="S: "+bottom$; } if (ObjectFind("bottom") !=0 ) //this is if the Red line has been deleted. { bottom=-9999999; BottomComment="Bottom Alert=off (Red line DELETED).";//objectfind returns the window that object resides. } ObjectDelete("Bottom Instruction"); ObjectCreate("Bottom Instruction",OBJ_LABEL,0,TimeLocal(),0); ObjectSetText("Bottom Instruction",BottomComment,10,"Arial",Red); ObjectSet("Bottom Instruction",OBJPROP_YDISTANCE,61); ObjectSet("Bottom Instruction",OBJPROP_XDISTANCE,10); } //Comment("\ntop: ", top, " b ", bottom, " y ", blue_ydistance, " ", red_ydistance); if (Close[0] >=NormalizeDouble(top,Digits) && TimeLocal() > timelock && Alert_on? ==true) { timelock2=TimeLocal()+4.5; //this is a smaller lock out just for displaying the breech message timelock= TimeLocal(); //done just for a slight pause if (Pop_Up_Box == False && Full_Voice_Support? ==False) //if both of these choices are false, we default to just playing the sounds. { PlaySound("Alert.wav"); } else { timelock = TimeLocal(); if (Pop_Up_Box == true) { Alert("Upper Breech ",Symbol()," ",top$); //we will shoot an alert, but then go for a few seconds delay if full voice is on } if (Full_Voice_Support? == true) { SoundFilesResistance(); } } TopComment = top$+ " Breech!"; ObjectSetText("Top Instruction",TopComment,12,"Arial",DodgerBlue); timelock = TimeLocal()+Time_Out; //how many seconds do we lock out the Alert } if (Close[0] <=NormalizeDouble(bottom,Digits) && TimeLocal() > timelock && Alert_on? ==true) { timelock2 = TimeLocal()+4.5;//this is a smaller lock out just for displaying the breech message timelock = TimeLocal(); //just for a slight, unofficial pause if (Pop_Up_Box == False && Full_Voice_Support? == False) //if both choices are false, we default to just playing the sound alone without pop box and no full voice support { PlaySound("Alert.wav"); } else { timelock = TimeLocal(); if (Pop_Up_Box == true) { Alert("Lower Breech ",Symbol()," ",bottom$);//we will shoot an alert, but then go for a few seconds delay if full voice is on } if (Full_Voice_Support? == true) { SoundFilesSupport(); } } BottomComment =bottom$ + " Breech!"; ObjectSetText("Bottom Instruction",BottomComment,12,"Arial",Red); timelock = TimeLocal()+Time_Out; //how many seconds do we lock out the Alert } //for(asdfff=0;asdfff<99.293;asdfff +=1.020201021) asdfff+=0; //while(asdf<99.299302 && asdfff <1000) asdf +=1.101001011; // Comment("TimeLocal() ",TimeToStr(TimeLocal(),TIME_SECONDS)," Lockout, ",TimeToStr(timelock2,TIME_SECONDS) ); //Comment("asdf ", asdf," asdfff ", asdfff," iasdf ",iasdf, " i ", i, " ii ",ii); //---- return(0); } //+------------------------------------------------------------------+ int SoundFilesResistance() { switch(sym) { case 1: PlaySound("rAUDCAD.wav"); break; case 2: PlaySound("rAUDJPY.wav"); break; case 3: PlaySound("rAUDUSD.wav"); break; case 4: PlaySound("rCADJPY.wav"); break; case 5: PlaySound("rCHFJPY.wav"); break; case 6: PlaySound("rEURAUD.wav"); break; case 7: PlaySound("rEURCAD.wav"); break; case 8: PlaySound("rEURCHF.wav"); break; case 9: PlaySound("rEURGBP.wav"); break; case 10: PlaySound("rEURJPY.wav"); break; case 11: PlaySound("rEURUSD.wav"); break; case 12: PlaySound("rGBPCHF.wav"); break; case 13: PlaySound("rGBPJPY.wav"); break; case 14: PlaySound("rGBPUSD.wav"); break; case 15: PlaySound("rNZDJPY.wav"); break; case 16: PlaySound("rNZDUSD.wav"); break; case 17: PlaySound("rUSDCAD.wav"); break; case 18: PlaySound("rUSDCHF.wav"); break; case 19: PlaySound("rUSDJPY.wav"); break; default: if (Pop_Up_Box==false) Alert("Res. Break. ",Symbol(), " (Voice Support not Avail.)"); break; } return(0); } //>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> //now for when support is broken: int SoundFilesSupport() { switch(sym) { case 1: PlaySound("sAUDCAD.wav"); break; case 2: PlaySound("sAUDJPY.wav"); break; case 3: PlaySound("sAUDUSD.wav"); break; case 4: PlaySound("sCADJPY.wav"); break; case 5: PlaySound("sCHFJPY.wav"); break; case 6: PlaySound("sEURAUD.wav"); break; case 7: PlaySound("sEURCAD.wav"); break; case 8: PlaySound("sEURCHF.wav"); break; case 9: PlaySound("sEURGBP.wav"); break; case 10: PlaySound("sEURJPY.wav"); break; case 11: PlaySound("sEURUSD.wav"); break; case 12: PlaySound("sGBPCHF.wav"); break; case 13: PlaySound("sGBPJPY.wav"); break; case 14: PlaySound("sGBPUSD.wav"); break; case 15: PlaySound("sNZDJPY.wav"); break; case 16: PlaySound("sNZDUSD.wav"); break; case 17: PlaySound("sUSDCAD.wav"); break; case 18: PlaySound("sUSDCHF.wav"); break; case 19: PlaySound("sUSDJPY.wav"); break; default: if (Pop_Up_Box==false) Alert("Supp. Breech (Voice Support Not Avail.) ", Symbol()); break; } return(0); } Chin_Breakout_Alert_V.1.2s.jpg

Thanks

韬客交易社区-国内最大的外汇交易社区

不错不错不错不错　值得大家参考

韬客交易社区-国内最大的外汇交易社区

多谢分享

dddd

多谢分享