精品文檔精品文檔MT4可視化自動報警器誰愿意總是盯盤，不如看看電影打打網游啥的，就跟老婆親熱會也行啊?MT4的報警功能已經很強大了，但是總是要設置，要輸入閥值，很麻煩的說。沒辦法，自編了一個報警器指標，說明如下：有兩種報警方式：一種手動，指示器拖到哪是哪；一種自動，以當前價的百分比幅度自動設置，觸發后移動到新的位置。這樣就可以實現全自動連續報警，只要有行情，它就會響。參數設置：AlertTimes=5:同一位置最大報警次數，不能老是響是不？ReAlertSeconds=10：報警間隔時間（秒），同樣不能老是響是不？AutoMove=true：設定到位置后是否自動移動到新的位置，以當前價加減下一個參數的百分比來確定；要說明的是，即使它自動移動到了新位置，仍然可以手動移動到你想要的位置；AutoMoveRange=0.01；自動移動到新位置距離當前收盤價的百分比幅度。以下是源碼，共同學習交流哈：TOC\o"1-5"\h\z//++〃1可視化報警器.mq4I//|Peiwei|//|2660675|//++#propertycopyright"Peiwei"#propertylink"2660675"#propertyindicator_chart_window//++//|Customindicatorinitializationfunction|//++externcolorAlertArrowUpColor=Brown;externcolorAlertArrowDownColor=Green;externintAlertTimes=5;//報警次數完成后，移動物件，恢復設定次數；externintReAlertSeconds=10;//間隔秒數；externboolAutoMove=true;externdoubleAutoMoveRange=0.01;//按收盤價的百分比幅度移動到新位置intAlert1Times,Alert2Times;doubleAlert1LastPrice,Alert2LastPrice;datetimeAlert1LastTime,Alert2LastTime;intXShift=10;intinit(){//indicators//doubletmpPrice;if(ObjectFind("AlertArrow1")==-1){ObjectCreate("AlertArrow1",OBJ_ARROW,0,0,0,0,0);ObjectCreate("AlertArrow2",OBJ_ARROW,0,0,0,0,0);tmpPrice=Close[0];//ObjectSet("AlertArrow1",OBJPROP_STYLE,STYLE_DASHDOT);ObjectSet("AlertArrow1",OBJPROP_COLOR,AlertArrowUpColor);ObjectSet("AlertArrow1",OBJPROP_PRICE1,tmpPrice*(1+AutoMoveRange));ObjectSet("AlertArrow1",OBJPROP_TIME1,Time[0]+Period()*5*60);ObjectSetText(''上漲報警指示器"，"AlertArrowl");//ObjectSet("AlertArrow2",OBJPROP_STYLE,STYLE_DASHDOT);ObjectSet("AlertArrow2"，OBJPROP_COLOR，AlertArrowDownColor);ObjectSet("AlertArrow2"，OBJPROP_PRICEl，tmpPrice*(l-AutoMoveRange));ObjectSet("AlertArrow2"，OBJPROP_TIMEl，Time[0]+Period()*5*60);ObjectSetText("下跌報警指示器2","AlertArrow2");AlertlTimes=AlertTimes;Alert2Times=AlertTimes;AlertlLastTime=TimeLocal();Alert2LastTime=TimeLocal();}return(0);}TOC\o"1-5"\h\z//++//|Customindicatordeinitializationfunction|//++intdeinit(){////ObjectDelete("AlertArrowl"+AlertArrowNo);//return(0);}//++//|Customindicatoriterationfunction|//++intstart(){//doubleAlertArrow1Price=ObjectGet("AlertArrow1",OBJPROP_PRICE1);doubleAlertArrow2Price=ObjectGet("AlertArrow2",OBJPROP_PRICE1);if(Alert1LastPrice!=AlertArrow1Price){Alert1Times=AlertTimes;Alert1LastPrice=AlertArrow1Price;}if(Alert2LastPrice!=AlertArrow2Price){Alert2Times=AlertTimes;Alert2LastPrice=AlertArrow2Price;}if(Close[0]>=AlertArrow1Price&&(TimeLocal()-Alert1LastTime)>=ReAlertSeconds){if(Alert1Times>0){PlaySound("alert.wav");〃Alert("AlertArrowl:價格觸及報警線！剩余提醒次數：”+AlertlTimes);//DebugAlertlTimes--;AlertlLastTime=TimeLocal();}if(AutoMove&&AlertlTimes==0){ObjectSet("AlertArrowl",OBJPROP_PRICEl,Close[0]*(l+AutoMoveRange));ObjectSet("AlertArrowl",OBJPROP_TIMEl,Time[0]+Period()*XShift*60);ObjectSet("AlertArrow2",OBJPROP_PRICEl,Close[0]*(l-AutoMoveRange));ObjectSet("AlertArrow2",OBJPROP_TIMEl,Time[0]+Period()*XShift*60);}}if(Close[0]<=AlertArrow2Price&&TimeLocal()-Alert2LastTime>=ReAlertSeconds){if(Alert2Times>0){PlaySound("alert2.wav");〃Alert("AlertArrow2:價格觸及報警線！剩余提醒次數：”+Alert2Times);//DebugAlert2Times--;Alert2LastTime=TimeLocal();}if(AutoMove&&Alert2Times==0){ObjectSet("AlertArrow1",OBJPROP_PRICE1,Close[0]*(1+AutoMoveRange));ObjectSet("AlertArrow1",OBJPROP_TIME1,Time[0]+Perio