MT4 EA编程 模块化函数

最新推荐文章于 2024-05-09 14:11:02 发布
最新推荐文章于 2024-05-09 14:11:02 发布
阅读量9.7k 收藏 21
点赞数 5
分类专栏： MT4 EA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/y2335014573/article/details/53455393
版权

1. 全平仓函数

 

2.设置按钮  给按钮添加功能的函数

//---------------------初始化函数  创建按钮

int OnInit()
  {
//---Print("EA需求请联系QQ601681702")； 

      Print("价格童叟无欺")；
   ObjectCreate(0,"BUY",OBJ_BUTTON,0,0,0);
   ObjectSetInteger(0,"BUY",OBJPROP_XDISTANCE,ChartGetInteger(0,CHART_WIDTH_IN_PIXELS)-100);
   ObjectSetInteger(0,"BUY",OBJPROP_YDISTANCE,50);
   ObjectSetString(0,"BUY",OBJPROP_TEXT,"Buy");
   ObjectCreate(0,"SELL",OBJ_BUTTON,0,0,0);
   ObjectSetInteger(0,"SELL",OBJPROP_XDISTANCE,ChartGetInteger(0,CHART_WIDTH_IN_PIXELS)-100);
   ObjectSetInteger(0,"SELL",OBJPROP_YDISTANCE,80);
   ObjectSetString(0,"SELL",OBJPROP_TEXT,"Sell");
//---
   ObjectSetInteger(0,"BUY",OBJPROP_XDISTANCE,X_SIZE); 
   ObjectSetInteger(0,"BUY",OBJPROP_YDISTANCE,Y_SIZE);
   ObjectSetInteger(0,"SELL",OBJPROP_XDISTANCE,X_SIZE); 
   ObjectSetInteger(0,"SELL",OBJPROP_YDISTANCE,Y_SIZE+30);
   return(0);
  }

//----给图表上的元素添加功能-------------------------------------------
      void OnChartEvent(const int id, 
                  const long &lparam,     //长整形的参数
                  const double &dparam,   //double类型的参数
                  const string &sparam)   //字符串类型的参数
  { 
//--- Check the event by pressing a mouse button 
   double ticket1=0;
   
     //--- If you click on the object with the name buttonID 点一下BUY按钮就会对当前货币现价买入，
   if(id==CHARTEVENT_OBJECT_CLICK&&sparam=="BUY"&&ObjectGetInteger(0,"BUY",OBJPROP_STATE)) 
     { 
         //--- State of the button - pressed or not 
         bool selected1=ObjectGetInteger(0,"BUY",OBJPROP_STATE); 
         //--- log a debug message 
         Print("BUY Button pressed = ",selected1); 
          ticket1=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),3,NormalizeDouble(Ask-StopLoss1*Point,Digits),
            0,"My EA",Magic,0,Red);//NormalizeDouble(Ask+TakeProfit1*Point,Digits)
          ObjectSetInteger(0,"BUY",OBJPROP_STATE,0); 
     }
    if(id==CHARTEVENT_OBJECT_CLICK&&sparam=="SELL"&&ObjectGetInteger(0,"SELL",OBJPROP_STATE)) 
     { 
         //--- State of the button - pressed or not 
         bool selected2=ObjectGetInteger(0,"SELL",OBJPROP_STATE); 
         //--- log a debug message 
         Print("SELL Button pressed = ",selected2); 
          ticket1=OrderSend(Symbol(),OP_SELL,Lots,NormalizeDouble(Bid,Digits),3,NormalizeDouble(Bid+StopLoss1*Point,Digits),
            0,"My EA",Magic,0,Green);//NormalizeDouble(Ask+TakeProfit1*Point,Digits)
          ObjectSetInteger(0,"SELL",OBJPROP_STATE,0); 
     }
   }  

3. 计算服务器和GMT时间平移

//+------------------------------------------------------------------+
//|                                      计算服务器和GMT时间平移.mq4 |
//|                                  Copyright 2013 By Xiyu QQ:19646 |
//|                                                    www.520FX.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2013 By Xiyu QQ:19646"
#property link      "www.520FX.com"


//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
   iGMTDifference();
   return(0);
  }
//+------------------------------------------------------------------+
/*
函    数
输出参量：
输出参数：
算    法:
*/
double iGMTDifference()
  {
    int GMT=StrToDouble(iWorldTime(0,0)); //获得格林威治时间
    int ServerTime=StrToDouble(TimeToStr(TimeCurrent(),TIME_MINUTES)); //获得MT4服务器时间
    iDisplayInfo("Author", "作者:熙羽 520FX",1,10,15,8,"Times New Roman",SlateGray);
    iDisplayInfo("wing",CharToStr(175),1,20,25,30,"Wingdings", Gold);
    Alert("历史数据中心平移时差为: "+(ServerTime-GMT));
  }
/*
函    数：计算当地时间
输入参数：int myTimeZone 本地时区 string myLocalSummerTime 夏令时
输出参数：指定时区时间，格式：hh:mm:ss
算    法：获取本地计算机时间，北京时间，计算GMT时间
          根据夏令时调整
*/
string iWorldTime(int myTimeZone, string myLocalSummerTime)
   {
      string myTime; //函数返回参数
      //计算夏令时起止
      int mySummerStartTime = StrToTime(StringSubstr(myLocalSummerTime, 0, 16));
      int mySummerEndTime = StrToTime(StringSubstr(myLocalSummerTime, 17, 16));
      //
      string myHH,myMM,mySS;
      int GMT = TimeHour(Time[0])-2; //计算GMT时间
      int myLocalTime = GMT+myTimeZone;
      if (myLocalTime < 0) myLocalTime = myLocalTime+24;
      if (myLocalTime >= 24) myLocalTime = myLocalTime-24;
      myHH = DoubleToStr(myLocalTime,0);
      if (StringLen(myHH) == 1) myHH = "0"+myHH;
      myMM = DoubleToStr(TimeMinute(TimeLocal()),0);
      if (StringLen(myMM) == 1) myMM = "0"+myMM;
      mySS = DoubleToStr(TimeSeconds(TimeLocal()),0);
      if (StringLen(mySS) == 1) mySS = "0"+mySS;
      myTime = myHH+":"+myMM;
      if (StrToTime(myTime) > mySummerStartTime && StrToTime(myTime) < mySummerEndTime)
         {
            myHH = DoubleToStr(StrToDouble(myHH)+1,0);
            if (StringLen(myHH) == 1) myHH = "0"+myHH;
            myTime = myHH+":"+myMM+"*";
         }
      return (myTime);
   }
 
 /*
4.函    数：在屏幕上显示文字标签
输入参数：标签名称 文本内容 文本显示角 标签X位置坐标 标签Y位置坐标 文本字号 文本字体 文本颜色
输出参数：
算    法：
*/
void iDisplayInfo(string LableName,string LableDoc,int Corner,int LableX,int LableY,int DocSize,string DocStyle,color DocColor)
   {
      if (Corner == -1) return(0);
      ObjectCreate(LableName, OBJ_LABEL, 0, 0, 0);
      ObjectSetText(LableName, LableDoc, DocSize, DocStyle,DocColor);
      ObjectSet(LableName, OBJPROP_CORNER, Corner);
      ObjectSet(LableName, OBJPROP_XDISTANCE, LableX);
      ObjectSet(LableName, OBJPROP_YDISTANCE, LableY);
   }

5. 获取最近的订单

//---get the last order's open price.   the order latest, the cnt bigger.
if (LastPrice==0) 
   {
      for(cnt=0;cnt<OrdersTotal();cnt++)
      {    
        OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);//  cnt=1 corresponding the first order,cnt=2 corresponding the second order,
         mode=OrderType();    
         if (OrderSymbol()==Symbol()) 
         {
            LastPrice=OrderOpenPrice();
            if (mode==OP_BUY) { myOrderType=2; }
            if (mode==OP_SELL) { myOrderType=1;    }
         }
      }
   }

6. 马丁模块，

//--- 如果之前开的是卖单（myOrderType==1）,允许继续开单，且当前订单比之前订单的开单价高了Pips*Point个点，那么继续做空mylotsi，
//---通过continueOpening控制开单的总量，Pips是马丁间隔
      if (myOrderType==1 && ContinueOpening) 
      {    
         
         if ((Bid-LastPrice)>=Pips*Point || OpenOrders<1) 
         {        
            SellPrice=Bid;                
            LastPrice=0;
            //  如果TakeProfit!=0,则将tp定义为bid-takeProfit
            if (TakeProfit==0) { tp=0; }
            else { tp=SellPrice-TakeProfit*Point; }    
            if (InitialStop==0) { sl=0; }
            else { sl=SellPrice+InitialStop*Point;  }
            if (OpenOrders!=0) 
            {
                  mylotsi=lotsi;            
                  for(cnt=1;cnt<=OpenOrders;cnt++)
                  {
                     // 如果允许的总订单数大于12，则下一次开仓量是前一次的1.5倍
                     if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*1.5,2); }
                     // 如果允许开的总订单数小于等于12，则下一次开单量是前一次的两倍
                     else { mylotsi=NormalizeDouble(mylotsi*2,2); }
                  }
            } else { mylotsi=lotsi; }
            if (mylotsi>100) { mylotsi=100; }
            OrderSend(Symbol(),OP_SELL,mylotsi,SellPrice,slippage,sl,tp,NULL,0,0,Red);                        
            return(0);
         }
      }
      
      if (myOrderType==2 && ContinueOpening) 
      {
         if ((LastPrice-Ask)>=Pips*Point || OpenOrders<1) 
         {        
            BuyPrice=Ask;
            LastPrice=0;
            if (TakeProfit==0) { tp=0; }
            else { tp=BuyPrice+TakeProfit*Point; }    
            if (InitialStop==0)  { sl=0; }
            else { sl=BuyPrice-InitialStop*Point; }
            if (OpenOrders!=0) {
               mylotsi=lotsi;            
               for(cnt=1;cnt<=OpenOrders;cnt++)
               {
                  if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*1.5,2); }
                  else { mylotsi=NormalizeDouble(mylotsi*2,2); }
               }
            } else { mylotsi=lotsi; }
            if (mylotsi>100) { mylotsi=100; }
            OrderSend(Symbol(),OP_BUY,mylotsi,BuyPrice,slippage,sl,tp,NULL,0,0,Blue);           
            return(0);
         }
      }   

7. profit 计算模块

    //赋值给变量profit，盈利计算模块
    for(cnt=0;cnt<OrdersTotal();cnt++)
    {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol()==Symbol()) 
      {            
             LastTicket=OrderTicket();
            if (OrderType()==OP_BUY) { LastType=OP_BUY; }
            if (OrderType()==OP_SELL) { LastType=OP_SELL; }
            LastClosePrice=OrderClosePrice();
            LastLots=OrderLots();
            if (LastType==OP_BUY) 
            {
                //Profit=Profit+(Ord(cnt,VAL_CLOSEPRICE)-Ord(cnt,VAL_OPENPRICE))*PipValue*Ord(cnt,VAL_LOTS);                
                if (OrderClosePrice()<OrderOpenPrice()) 
                    { Profit=Profit-(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point; }
                if (OrderClosePrice()>OrderOpenPrice()) 
                    { Profit=Profit+(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point; }
            }
            if (LastType==OP_SELL) 
            {
                //Profit=Profit+(Ord(cnt,VAL_OPENPRICE)-Ord(cnt,VAL_CLOSEPRICE))*PipValue*Ord(cnt,VAL_LOTS);
                if (OrderClosePrice()>OrderOpenPrice()) 
                    { Profit=Profit-(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point; }
                if (OrderClosePrice()<OrderOpenPrice()) 
                    { Profit=Profit+(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point; }
            }
            //Print(Symbol,":",Profit,",",LastLots);
      }
   }
   
    
    Profit=Profit*PipValue;
    text2="Profit: $"+DoubleToStr(Profit,2)+" +/-";

用comment可以显示text2

y2335014573
关注
  • 5
    点赞
  • 踩
  • 21
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
如何编写一个模块化交易系统EA
大道至簡的博客
05-29 5941
引言 本人之前在用MQL4开发EA交易系统的时候，总是习惯性的将所有的代码逻辑都放在一个.mql4文件里，新写一个EA的时候，也是直接把老的EA直接复制粘贴过来再改。这样做在当时觉得很快很爽，但是当我写了很多EA的时候就发现问题来了。第一，重复的样板代码太多，有时一个EA的某个功能改了，你去修改另一个EA的时候，发现这个功能还得再改一遍，像这种情况，完全可以把一些通用的功能抽取出来，让所有EA都去依赖它就可以了，这样只用修改一处即可。第二，把所有的逻辑都堆到一个文件中，也不符合软件设计中的单一职责原则，随着
MT4 EA编程实例
02-03 1632
MT4自带的EA,高手做的详细注解 //+------------------------------------------------------------------+ //| Moving Average.mq4 | //| http://www.imt.
分享一个外汇交易的风控EA
最新发布
hqsmy2的博客
05-09 1383
/Print("当前订单号："+OrderTicket()+"，币种："+OrderSymbol()+ ", 建仓时间："+orderTime+"，止损价："+OrderStopLoss()+", 盈亏："+OrderProfit()+ ", 类型："+ OrderType());期间下单总数： "+ num);+", 订单盈利:"+ OrderProfit()+ ", 序号:" + i + ", 订单号："+OrderTicket() + ", 订单类型："+ OrderType());
会PHP语言的能编写EA吗,自己编写EA-MT4平台简单流程
weixin_29315569的博客
04-12 744
第一步，打开MT4，然后点击编辑器。第二步，点击新建，勾选“Expert Advisor”,点击下一步。第三步，给我们的EA取一个名字“我的第一个EA”，下一步，下一窗口不勾选直接下一步，之后直接点击完成即可。接下来我们开始来编写这个“我的第一个EA”第一步，我们要让这个EA显示其基本信息，它的版本号，假设为“V1.00”。第二步，提醒我们这个程序的功能是什么(我们今天要让EA显示盘面实时买入价)...
mt4函数-开仓,平仓
小憩
09-03 3542
建即时仓 int res = OrderSend(Symbol(),OP_SELL,0.1,Bid,3,0,0,"OP_SELL",0,0,Green); Print("OP_SELL: " + res); res = OrderSend(Symbol(),OP_BUY,0.1,Ask,3,0,0,"OP_BUY",0,0,Red); Print("OP_
mt4在界面上添加按钮输入框等控件并执行代码
flash_temp的博客
09-10 4150
转载一篇，不错的内容 最近经常有人问我说：他们看到一些EA能实现 在K线界面上添加一下按钮， 然后按钮按下去会执行相应的功能。比如：按钮按下 就可以全部平仓。 更有厉害的EA，可以在界面上做一个输入框出来，让你输入一个价格值 然后按一个按钮，就可以把所有多单的止盈价格都改成那个价格了。 非常方便，非常牛逼。这样的EA是怎么写出来的，这种技术懂的人并不多 今天我就以函数封装的形式，给大家讲解下，一讲...
php 购物车类的属性,php – WooCommerce购物车中的Echo特定产品属性和元数据
weixin_33661631的博客
04-02 194
Update (compatibility with WC 3+)在您的评论中解释之后,我发现您正在使用Essential Grid premium plugin(商业插件)来创建与您的wooCommerce产品相关的一些自定义字段和属性.At this point, I can’t help, because I have never used this plugin before, and I...
00.TrendLineAuto_EA_v3.0（趋势线突破）_免费EA_ea_mt4ea趋势线_趋势线EA_趋势EA_
10-03
【标题】"00.TrendLineAuto_EA_v3.0（趋势线突破）_免费EA_ea_mt4ea趋势线_趋势线EA_趋势EA_" 提供的是一个MT4交易平台上的自动交易专家顾问（EA），它基于趋势线突破策略进行交易决策。这个版本是3.0，意味着开发者...
MQL4平台上DLL编程
12-13
MQL4，作为MetaTrader 4（MT4）交易平台的内置编程语言，虽然功能强大，但在代码保护方面存在一定的局限性。对于那些希望在交易策略上保持竞争优势的专业人士而言，如何在保护自己策略的同时利用更强大的编程能力，...
MT4一键平仓所有盈利单脚本.ex4
10-20
MT4一键平仓所有盈利单脚本
MT4-programming-manual.rar_MT4 手册_mt4
09-24
8. **脚本与函数库**：除了EA，MQL4还支持编写脚本（Script）和函数库（Library），前者是一次性执行的程序，后者则可复用的代码模块，有助于代码重用和模块化设计。 9. **MQL4市场与代码库**：MT4平台提供了MQL4...
main.c/move_to_user_mode()分析
qq_42718041的博客
05-22 319
main.c/move_to_mode() 在做李治军操作系统实验课的时候，在进程运行轨迹与统计部分，有提到使用move_to_mode()函数，但是当时的实验并没有涉及到这个函数的具体内容，于是自己找了一些资料，捋了一下。 1.进程0的创建 move_to_user_mode()实现从内核模式切换到用户模式，执行进程0. 进程0则在经过sti()之前的语句，已经创建完毕。 在kernel/sched.c中： static union task_union init_task = {INIT_TASK,};
pythonATM,购物车项目实战5-数据处理层
wtt234的专栏
12-09 96
数据处理层 """ 数据处理层 -专门用户处理数据的 """ import json import os from conf import settings #查看数据 def select(username): # 1)接收层传过来的username用户名，拼接用户json文件路径，如果穿过来的用户是 # 是’张三‘那么本地就是存储为"张三.json"文件 user_path=os.path.join( settings.USER_DA
TSM Server for Linux安装注意事项
Lurou's Home
03-04 2359
TSM Server for Linux的整个安装过程比较简单，这次是第二次部署了，我只记录一下需要注意的地方，详细的安装过程直接参考James的手册更好： IBM TSM Server v6.3.4安裝手冊      1、配置yum源： 可以参考我之前写的文章： http://blog.csdn.net/laven54/article/details/8394023
VNPY_ 价差交易模块
IAlexanderI的专栏
08-13 4073
目录： 一、数据定义stBase.py 二、价差引擎stEngine.py 三、价差算法stAlgo.py 四、界面定义uiStWidget.py 五、实盘配置ST_setting.json 六、价差交易界面 一、数据定义stBase.py 本文件中定义了价差模块用到的腿类、价差类及方法。 1、类StLeg定义： 以vtSymbol作为腿关键字，定义“实际交易时的比例”、“ 计...
基于python实现超市购物管理系统
m0_56051805的博客
09-22 2811
基于python实现超市购物管理系统
MQL5 细则手册：指标子窗口控件 - 按钮
JanLEE
08-22 550
简介 本文中，我们将探讨开发具备按钮控件的用户界面的示例。为向用户传递互动性理念，当光标悬停于按钮时，按钮颜色会发生改变。光标位于按钮之上时，按钮颜色将稍微变暗，点击时，按钮颜色则会变得更暗。此外，我们将为每一按钮添加工具提示，从而创建直观界面。 本文也将讨论一些事件：鼠标移动事件、鼠标左键状态、左击对象和修改图表属性事件。将创建按钮面板，其将占据指标子窗口的全部空间。为做到清晰明了，按钮将分三行排列，每行四个按钮。 开发 在 MQL5 中，可使用多种图形对象创建按钮，如OBJ_BUTTON（按
MT4与MT5通用程序设计：通用交易函数的设计与实现
迈达量化的博客
01-19 486
通用交易函数的设计思想与代码实现，可实现开发跨平台EA，写一个EA可同时运行在MT4与MT5之下。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值