发表于:2017-10-27 10:44只看该作者
23楼
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 White
#property indicator_color2 Yellow
#property indicator_color3 Yellow
#property indicator_color4 White
extern int 间隔分钟=1;
extern int 均线周期1=13;
extern int 均线周期2=233;
extern int 类型1=1; //类型: 0-SMA; 1-EMA; 2-SMMA; 3-LWMA
extern int 类型2=1; //类型: 0-SMA; 1-EMA; 2-SMMA; 3-LWMA
extern string 类型说明="0-SMA; 1-EMA; 2-SMMA; 3-LWMA";
extern int 文字水平=0;
extern int 文字垂直=0;
extern int 文字大小=14;
extern string 文字标识="1";
extern color 文字颜色=Yellow;
extern int 是否报警=1;
extern int 是否发邮件=1;
double Ma13;
double Ma233;
double Up;
double Down;
int TimeInMinute;
int FlagAlert=0;
datetime NextTime=0;
int init()
{
IndicatorBuffers(4);
SetIndexStyle(0,DRAW_LINE);
SetIndexStyle(1,DRAW_LINE);
SetIndexStyle(2,DRAW_ARROW);
SetIndexStyle(3,DRAW_ARROW);
SetIndexBuffer(0,Ma13);
SetIndexBuffer(1,Ma233);
SetIndexBuffer(2,Up);
SetIndexBuffer(3,Down);
SetIndexArrow(2,233);
SetIndexArrow(3,234);
TimeInMinute=0;
return(0);
}
int start()
{
int i;
int limit;
string Signal;
int counted_bars=IndicatorCounted();
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;
for (i=limit-1;i>=0;i--)
{
Ma13=iMA(NULL,0,均线周期1,0,类型1,PRICE_CLOSE,i);
Ma233=iMA(NULL,0,均线周期2,0,类型2,PRICE_CLOSE,i);
if ((Ma13[i+1]Ma233)&&(Close>Ma13)&&(Close>Ma233))
{
Signal="["+Period()+"分钟]"+TimeMonth(Time+TimeInMinute)+"月"+TimeDay(Time+TimeInMinute)+"日"+TimeHour(Time+TimeInMinute)+"点"+TimeMinute(Time+TimeInMinute)+"分 "+Symbol()+"在价格"+DoubleToStr(Close,4)+"发生"+均线周期1+"均线上穿"+均线周期2+"均线";
writetext(文字标识,Signal,20+文字水平,40+文字垂直,文字颜色,文字大小);
Up=Low-3*Point;
if (i==0)
{
if (FlagAlert==0)
{
if (是否报警==1)
Alert(Signal);
if (是否发邮件==1)
if( TimeLocal()>NextTime)
SendMail(Signal,Signal);
NextTime=TimeLocal()+间隔分钟*60;
FlagAlert=1;
}
}
}
if ((Ma13[i+1]>Ma233[i+1])&&(Ma13NextTime)
SendMail(Signal,Signal);
NextTime=TimeLocal()+间隔分钟*60;
FlagAlert=1;
}
}
}else FlagAlert=0;
}
return(0);
}
void writetext(string Labelname,string data,int x,int y,color ColorValue,int FontSize)//通过Object写文字
{
ObjectDelete(Labelname);
ObjectCreate(Labelname, OBJ_LABEL, 0, 0, 0);
ObjectSetText(Labelname, data, FontSize, "Arial", ColorValue);
ObjectSet(Labelname, OBJPROP_CORNER, 0);
ObjectSet(Labelname, OBJPROP_XDISTANCE, x);
ObjectSet(Labelname, OBJPROP_YDISTANCE, y);
}
韬客社区www.talkfx.co
发表于:2017-10-27 10:45只看该作者
24楼
用普通邮箱还是会有发邮件数的限制。。最好自己想办法申请个企业邮
韬客社区www.talkfx.co
25楼
mjp204 发表于 2017-10-27 18:45
用普通邮箱还是会有发邮件数的限制。。最好自己想办法申请个企业邮
韬客社区www.talkfx.co
发表于:2017-10-31 15:53只看该作者
27楼
sumone 发表于 2017-10-30 09:10
谢谢! 限制下邮件数后qq邮箱就够用了~
韬客社区www.talkfx.co
发表于:2017-11-14 15:04只看该作者
28楼
sumone 发表于 2017-10-30 09:10
谢谢! 限制下邮件数后qq邮箱就够用了~
韬客社区www.talkfx.co
29楼
mjp204 发表于 2017-11-14 23:04
能发给我吗???我的发几次有点频繁了。。。不够简洁
点评
发表于 2017-11-15 10:39
韬客社区www.talkfx.co
发表于:2017-11-15 10:39只看该作者
30楼
sumone 发表于 2017-11-15 09:56
我传不了附件~附上代码你自己弄一下吧 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #property indicator_chart_w ...
31楼
mjp204 发表于 2017-11-15 18:39
运行报错。。。能把 .mq4文件发到我QQ邮箱吗???
点评
发表于 2017-11-16 11:42
发表于:2017-11-16 11:42只看该作者
32楼
sumone 发表于 2017-11-16 12:01
已发,你用的是MT4吗?
韬客社区www.talkfx.co