Alert Line

楼主  收藏   举报   帖子创建时间:  2019-05-05 05:06 回复:0 关注量:246
a<em></em>lert-line-en.png

  1. //+------------------------------------------------------------------+
  2. //|                                                    alertLine.mq4 |
  3. //|                               Copyright ?2010, Vladimir Hlystov |
  4. //|                                         http://cmillion.narod.ru |
  5. //+------------------------------------------------------------------+
  6. #property copyright "Copyright ?2010, Vladimir Hlystov"
  7. #property link      "http://cmillion.narod.ru"
  8. #property indicator_chart_window
  9. //+------------------------------------------------------------------+
  10. int start()
  11. {
  12.    double Support,Rezistans;
  13.    string txt;
  14.    if (ObjectFind("Support")==-1) txt="No line <Support>n";
  15.    else
  16.    {
  17.       Support = ObjectGetValueByShift("Support", 0);
  18.       if (Bid<Support)
  19.       {
  20.          alert("Price below the support line ");
  21.          txt=StringConcatenate(txt,"Price below the support line n");
  22.       }
  23.       else txt=StringConcatenate(txt,"Distance to the line of support ",DoubleToStr((Bid-Support)/Point,0),"n");
  24.    }
  25.    if (ObjectFind("Rezistans")==-1) txt=StringConcatenate(txt,"No line <Rezistans>n");
  26.    else
  27.    {
  28.       Rezistans = ObjectGetValueByShift("Rezistans", 0);
  29.       if (Ask>Rezistans)
  30.       {
  31.          alert("Price above the resistance line");
  32.          txt=StringConcatenate(txt,"Price above the resistance line");
  33.       }
  34.       else txt=StringConcatenate(txt,"Distance to the line of support ",DoubleToStr((Rezistans-Ask)/Point,0));
  35.    }
  36.    Comment(txt);
  37.    return(0);
  38. }
  39. //+------------------------------------------------------------------+
打赏