iWPRSignAlert एक सेमाफोर तीर संकेतक है जो क्लासिक विलियम्स पर्सेंट रेंज ऑस्सीलेटर पर आधारित है। यह ओवरबॉट और ओवरसोल्ड क्षेत्रों को छोड़ते समय संकेत प्रदान करता है, जिसमें अलर्ट, ईमेल भेजने और मोबाइल डिवाइस पर पुश-नोटिफिकेशन शामिल हैं।
इस संकेतक के कोड में निम्नलिखित परिवर्तन किए गए हैं ताकि अलर्ट, ईमेल संदेश और पुश-नोटिफिकेशन का कार्यान्वयन किया जा सके:
- नए इनपुट पैरामीटर जोड़े गए हैं:
input uint NumberofBar=1;// संकेत के लिए बार संख्या input bool SoundON=true; // अलर्ट सक्षम करें input uint NumberofAlerts=2;// अलर्ट की संख्या input bool EMailON=false; // संकेत को मेल करने के लिए सक्षम करें input bool PushON=false; // मोबाइल डिवाइस पर संकेत भेजने के लिए सक्षम करें
- संकेतक कोड के अंत में तीन नए फंक्शन जोड़े गए हैं: BuySignal(), SellSignal() और GetStringTimeframe()
//+------------------------------------------------------------------+ //| खरीद संकेत कार्य | //+------------------------------------------------------------------+ void BuySignal(string SignalSirname, // ईमेल और पुश संदेशों के लिए संकेतक नाम का पाठ double &BuyArrow[], // खरीद संकेतों के लिए संकेतक बफर const int Rates_total, // वर्तमान बार की संख्या const int Prev_calculated, // पिछले टिक पर बार की संख्या const double &Close[], // बंद मूल्य const int &Spread[]) // स्प्रेड { //--- static uint counter=0; if(Rates_total!=Prev_calculated) counter=0; bool BuySignal=false; bool SeriesTest=ArrayGetAsSeries(BuyArrow); int index; if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; if(NormalizeDouble(BuyArrow[index],_Digits) && BuyArrow[index]!=EMPTY_VALUE) BuySignal=true; if(BuySignal && counter<=NumberofAlerts) { counter++; MqlDateTime tm; TimeToStruct(TimeCurrent(),tm); string text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min); SeriesTest=ArrayGetAsSeries(Close); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; double Ask=Close[index]; double Bid=Close[index]; SeriesTest=ArrayGetAsSeries(Spread); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; Bid+=Spread[index]; string sAsk=DoubleToString(Ask,_Digits); string sBid=DoubleToString(Bid,_Digits); string sPeriod=GetStringTimeframe(ChartPeriod()); if(SoundON) Alert("BUY signal \n Ask=",Ask,"\n Bid=",Bid,"\n currtime=",text,"\n Symbol=",Symbol()," Period=",sPeriod); if(EMailON) SendMail(SignalSirname+": BUY signal alert","BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); if(PushON) SendNotification(SignalSirname+": BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); } //--- } //+------------------------------------------------------------------+ //| बिक्री संकेत कार्य | //+------------------------------------------------------------------+ void SellSignal(string SignalSirname, // ईमेल और पुश संदेशों के लिए संकेतक नाम का पाठ double &SellArrow[], // बिक्री संकेतों के लिए संकेतक बफर const int Rates_total, // वर्तमान बार की संख्या const int Prev_calculated, // पिछले टिक पर बार की संख्या const double &Close[], // बंद मूल्य const int &Spread[]) // स्प्रेड { //--- static uint counter=0; if(Rates_total!=Prev_calculated) counter=0; bool SellSignal=false; bool SeriesTest=ArrayGetAsSeries(SellArrow); int index; if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; if(NormalizeDouble(SellArrow[index],_Digits) && SellArrow[index]!=EMPTY_VALUE) SellSignal=true; if(SellSignal && counter<=NumberofAlerts) { counter++; MqlDateTime tm; TimeToStruct(TimeCurrent(),tm); string text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min); SeriesTest=ArrayGetAsSeries(Close); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; double Ask=Close[index]; double Bid=Close[index]; SeriesTest=ArrayGetAsSeries(Spread); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; Bid+=Spread[index]; string sAsk=DoubleToString(Ask,_Digits); string sBid=DoubleToString(Bid,_Digits); string sPeriod=GetStringTimeframe(ChartPeriod()); if(SoundON) Alert("SELL signal \n Ask=",Ask,"\n Bid=",Bid,"\n currtime=",text,"\n Symbol=",Symbol()," Period=",sPeriod); if(EMailON) SendMail(SignalSirname+": SELL signal alert","SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); if(PushON) SendNotification(SignalSirname+": SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); } //--- } //+------------------------------------------------------------------+ //| समय सीमा को स्ट्रिंग के रूप में प्राप्त करना | //+------------------------------------------------------------------+ string GetStringTimeframe(ENUM_TIMEFRAMES timeframe) { //---- return(StringSubstr(EnumToString(timeframe),7,-1)); //---- }
- BuySignal() और SellSignal() फंक्शनों को संकेतक गणना चक्रों के बाद OnCalculate() ब्लॉक में जोड़ा गया:
BuySignal("iWPRSign",BuyBuffer,rates_total,prev_calculated,close,spread); SellSignal("iWPRSign",SellBuffer,rates_total,prev_calculated,close,spread);
जहाँ BuyBuffer और SellBuffer खरीद और बिक्री संकेतों के लिए संकेतक बफर के नाम हैं। संकेतक बफर में खाली मान या तो शून्य या EMPTY_VALUE सेट किए जाने चाहिए।
यह मान लिया गया है कि संकेतक कोड के OnCalculate() ब्लॉक में केवल एक ही BuySignal() और SellSignal() फंक्शन का कॉल किया जाएगा।
Fig.1. चार्ट पर iWPRSignAlert संकेतक
Fig.2. iWPRSignAlert संकेतक। अलर्ट उत्पन्न करना।