从 ForexFactory.com 检索高影响事件并将其显示在您的指标或 Expert Advisor - MetaTrader 4 的 Expert 中

一旦我们解析了所有表格行并到达日历末尾，我们就需要在图表上显示事件。如果事件发生在未来，我希望显示一条垂直线，如果发生在过去，则不显示任何线。

// 显示高影响事件（如果有）上次 =无效的;为了(cntr =0; cntr < 最大每日事件数； cntr++)
{
  如果（字符串长度(DailyEvents[cntr].time) ==0）休息;
      
  // 如果最后一个市场时间不同，则在图表上创建事件标记  如果（上次！= DailyEvents[cntr].time）
   {
      资源 = cntr;
      // 如果字符串中有“pm”，则在时间上添加 12 小时      如果（字符串查找(每日事件[cntr].time,“下午”) != -1) DailyEvents[cntr].time =到达时间（时间到时间(每日事件[cntr].time) +43200）；
      如果（对象创建（0, 事件 + cntr,对象事件,0,时间到时间(每日事件[cntr].time),0））
      {
        对象集字符串（0, 事件 + cntr,OBJPROP_TEXT, DailyEvents[cntr].title +”（”+ DailyEvents[cntr].currency +“）”）；
        对象集整数（0, 事件 + cntr,OBJPROP_COLOR， 红色的）;
        对象集整数（0, 事件 + cntr,OBJPROP_WIDTH,2）；
        对象集整数（0, 事件 + cntr,OBJPROP_BACK,真的）；
        对象集整数（0, 事件 + cntr,OBJPROP_SELECTABLE,错误的）；
        对象集整数（0, 事件 + cntr,OBJPROP_SELECTED,错误的）；
        对象集整数（0, 事件 + cntr,OBJPROP_HIDDEN,真的）；
        对象集字符串（0, 事件 + cntr,OBJPROP_工具提示, DailyEvents[cntr].title +”（”+ DailyEvents[cntr].currency +“）”）；
      }
      
      // 如果事件发生在未来，则创建垂直线      如果（时间当前() < TimeOffset(DailyEvents[cntr].time,0））
      {
        如果（对象创建（0, VLine + cntr,OBJ_VLINE,0, TimeOffset(DailyEvents[cntr].time,0),0））
         {
            对象集整数（0, VLine + cntr,OBJPROP_COLOR， 红色的）;
            对象集整数（0, VLine + cntr,OBJPROP_WIDTH,1）；
            对象集整数（0, VLine + cntr,OBJPROP_BACK,真的）；
            对象集整数（0, VLine + cntr,OBJPROP_SELECTABLE,错误的）；
            对象集整数（0, VLine + cntr,OBJPROP_SELECTED,错误的）；
            对象集整数（0, VLine + cntr,OBJPROP_HIDDEN,真的）；
            对象集字符串（0, VLine + cntr,OBJPROP_工具提示, DailyEvents[cntr].title +”（”+ DailyEvents[cntr].currency +“）”）；
         }
      }
      别的         DailyEvents[cntr].displayed =真的;
   }
  别的   {
      标题=对象获取字符串（0, 事件+资源,OBJPROP_工具提示）；            
      标题+=“\n”+ DailyEvents[cntr].title +”（”+ DailyEvents[cntr].currency +“）”;
      对象集字符串（0, 事件+资源,OBJPROP_工具提示， 标题）;
      如果（时间当前() < TimeOffset(DailyEvents[cntr].time,0））对象集字符串（0, VLine + res,OBJPROP_工具提示， 标题）;
   }
   最后时间 = DailyEvents[cntr].time;
}

如果是未来的事件，我想通知用户即将发生的事件（如果该事件在当前时间的 5 分钟内），并删除垂直线。这是通过在 EA 或指标的“start()”函数中添加一些代码来完成的。

//+------------------------------------------------------------------+
//|专家启动功能                                            |
//+------------------------------------------------------------------+
空白开始（）
{
  细绳   事件=无效的;
   
  // 未来 5 分钟内是否有影响较大的事件？  为了（整数我=0; i < 最大每日事件数；我++）
   {
      如果（字符串长度(每日事件[i].时间) ==0）休息;
      如果（时间当前() >=时间到时间(DailyEvents[i].time) -300&&时间当前() <时间到时间(DailyEvents[i].time) && !DailyEvents[i].displayed)
      {
        // 5 分钟后的事件...         事件 += DailyEvents[i].title +”（”+ DailyEvents[i].currency +”），“;
         DailyEvents[i].displayed =真的;
         
        // 删除与事件关联的垂直线        如果（对象查找（“V线”+双转字符串（我，0)) >=0）对象删除（“V线”+双转字符串（我，0））；
      }  
   }
   
  // 有什么要显示的吗？  如果（字符串长度（事件）！=0）
   {
      事件+=“5分钟后。”;
      警报（事件）;
   }
}

最后，我们需要获取每日事件。这是通过在 OnInit() 函数中添加一行来完成的。

//+------------------------------------------------------------------+
//|专家初始化函数                                   |
//+------------------------------------------------------------------+
整数 初始化时()
{
  // 获取今天的事件   获取HighImpactEvents();
   
  返回（初始化成功）；
}

又好又简单。您当然可以修改代码以显示货币对的所有事件，或者向您的指标或 EA 添加输入参数以指定要显示的影响（高、中或低），当然还可以添加对午夜周转的检查以获取新的每日事件列表，但我会让您尝试一下:)

附件下载