zzhhanngg12345 发表于 2019-8-24 22:55:28

连续阴或阳报警(弹窗报警版)

/
#property strict
#property indicator_chart_window
extern int 连续K线数=4;//连续k线数
int mark=0,i;//报警标记
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
{
//--- indicator buffers mapping

//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
{
//---
//mark=0;
   int 连续阴数=0,连续阳数=0;
   for(i=0;i<连续K线数;i++)
   {
      if(iOpen(NULL,0,i)-iClose(NULL,0,i)>0) 连续阴数++;
   }
   for(i=0;i<连续K线数;i++)
   {
      if(iOpen(NULL,0,i)-iClose(NULL,0,i)<0) 连续阳数++;
   }
   Comment("\n",连续K线数,"根K线范围内的阴线数:",连续阴数,"根 阳线数:",连续阳数,"根");

   if(连续K线数==连续阳数 && mark!=1)
   {
      //PlaySound("连续阳线.wav");
      Alert(Symbol(),"-",Period()" 连续出现",连续阳数,"根阳线");
      mark=1;
   }
   if(连续K线数==连续阴数 && mark!=2)
   {
   // PlaySound("连续阴线.wav");
      Alert(Symbol(),"-",Period()" 连续出现",连续阴数,"根阴线");
      mark=2;
   }

//--- return value of prev_calculated for next call
   return(rates_total);
}
//+------------------------------------------------------------------+


505570248 发表于 2019-9-3 19:26:51

{:1_177:}{:1_177:}{:1_176:}{:1_176:}11111{:1_178:}{:1_174:}

yujopozb 发表于 2020-1-5 14:16:12

:lol不错

yxstjqrg 发表于 2020-1-18 16:12:07

过来看看的

ghost 发表于 2020-4-26 14:41:14

有竞争才有进步嘛

ebsvfefuk 发表于 2020-6-14 22:41:45

相当不错,感谢无私分享精神!

kemax2012 发表于 2020-7-3 10:42:11

学习了,不错,讲的太有道理了

ti操盘 发表于 2020-7-9 13:11:52

谢谢楼主分享

人在深圳 发表于 2020-7-22 22:33:02

谢谢楼主分享

arp 发表于 2020-8-9 22:58:53

帮你顶下哈!!
页: [1] 2
查看完整版本: 连续阴或阳报警(弹窗报警版)