shustrobotpro.mq4

#property version   "1.00"
#property strict
#include <sovetnikovGUI\Orders.mqh>
#include <sovetnikovGUI\Time.mqh>
#include <sovetnikovGUI\Button.mqh>

#define VALID_KEY "Советник активирован."
#define EMPTY_KEY "Активируйте советник."
#define INVALID_KEY "Неверная лицензия."
#define EXPERIED "Время лицензии истекло."

#define LOGO_RESOURCE "::Images\\automoney\\logo.bmp"
#define PANEL_RESOURCE "::Images\\automoney\\panel.bmp"

#define LOGO_W 520
#define LOGO_H 533

#define PANEL_W 386
#define PANEL_H 195

#resource "\\Images\\automoney\\logo.bmp"
#resource "\\Images\\automoney\\panel.bmp"

#define LICENSE_NAME "automoney"

#define MAX_SYSTEMS 3
string sStrategy[MAX_SYSTEMS]= {"GridA","GridB","GridC"};

BLOCK(0,"-----------  ОБЩИЕ НАСТРОЙКИ  -----------");//.
B GridA=true;//Стратегия GridA
B GridB=true;//Стратегия GridB
B GridC=true;//Стратегия GridC
I MagicGridA=5551;//Мэджик номер GridA
I MagicGridB=5552;//Мэджик номер GridB
I MagicGridC=5553;//Мэджик номер GridC
B StopTradeAfterTP=false;//StopTradeAfterTP
D MinStopEquityLev=750;//Остановка торговли по уровню маржи,%
B UseEquityStop=false;//UseEquityStop
D TotalEquityRisk=20.0;//TotalEquityRisk
BLOCK(1,"-----------  НАСТРОЙКИ ЛОТНОСТИ  -----------");//.
D MaxLots=100.0;//Максимальный объем ордера
D AutoMM=8.0;  //АвтоММ
I BaseOrderLevel=1;//BaseLotLevel
D LotExponent=1.525;//LotExponent
BLOCK(2,"-----------  НАСТРОЙКИ ТЕЙКПРОФИТА  -----------");//.
D TakeProfitA=17;//ТейкПрофит GridA
D TakeProfitB=17;//ТейкПрофит GridB
D TakeProfitC=17;//ТейкПрофит GridC
BLOCK(3,"-----------  НАСТРОЙКИ СЕТКИ  -----------");//.
D Step_GridA=18;//Шаг усреднения GridA
D Step_GridB=24;//Шаг усреднения GridB
D Step_GridC=18;//Шаг усреднения GridC
I MaxTrades_GridA=15;//Максимум ордеров GridA
I MaxTrades_GridB=15;//Максимум ордеров GridB
I MaxTrades_GridC=15;//Максимум ордеров GridC
D DistanceExponent=1.22;//DistanceExponent
I BaseDistanceOrder=5;//BaseDistanceLevel
TF tf=PERIOD_CURRENT;//TF для усреднения ордеров
BLOCK(4,"----------- НАСТРОЙКИ ИНФО ПАНЕЛИ -----------");//.
B chartDisplay=true;//Отображение инфо панели
input ENUM_BASE_CORNER panelCorner=CORNER_RIGHT_UPPER; //Угол расположения панели
I fontSize=13; //Размер текста
B showLogo=true;//Показать логотип

class CMyOptions: public COptions
  {
public:
   /*
   B Grid=true;
   I MagicGrid
   D TakeProfit
   I BaseOrderLevel
   D LotExponent
   D Step_Grid
   I MaxTrades_Grid
   D DistanceExponent
   I BaseDistanceOrder

   B StopTradeAfterTP

   */
   bool              Grid[];
   int               MagicGrid[];
   double            TakeProfit[];
   int               BaseOrderLevel[];
   double            LotExponent[];
   double            Step_Grid[];
   int               MaxTrades_Grid[];
   double            DistanceExponent[];
   int               BaseDistanceOrder[];
   bool              StopTradeAfterTP[];

   virtual void      OnInit()
     {
      // код доступен только после оплаты
   }

   void              Add_Grid(bool bGrid)
     {
      Add(Grid,bGrid);
     }
   void              Add_MagicGrid(int iMagicGrid)
     {
      Add(MagicGrid,iMagicGrid);
     }
   void              Add_TakeProfit(double dTakeProfit)
     {
      Add(TakeProfit,dTakeProfit);
     }
   void              Add_BaseOrderLevel(int iBaseOrderLevel)
     {
      Add(BaseOrderLevel,iBaseOrderLevel);
     }
   void              Add_LotExponent(double dLotExponent)
     {
      Add(LotExponent,dLotExponent);
     }
   void              Add_Step_Grid(double dStep_Grid)
     {
      Add(Step_Grid,dStep_Grid);
     }
   void              Add_MaxTrades_Grid(int iMaxTrades_Grid)
     {
      Add(MaxTrades_Grid,iMaxTrades_Grid);
     }
   void              Add_DistanceExponent(double dDistanceExponent)
     {
      Add(DistanceExponent,dDistanceExponent);
     }
   void              Add_BaseDistanceOrder(int iBaseDistanceOrder)
     {
      Add(BaseDistanceOrder,iBaseDistanceOrder);
     }
   void              Add_StopTradeAfterTP(bool bStopTradeAfterTP)
     {
      Add(StopTradeAfterTP,bStopTradeAfterTP);
     }

  };

class CMyOrders: public COrders
  {
public:

  };

class CMain: public CMainDefault
  {
protected:
   CMyOptions        m_options;
   CMyOrders         m_main[MAX_SYSTEMS];
   CNewBar           m_bar;

   CTimer            m_timer;
   CDrawPos          m_panel;
   SNButton          m_dry;
   bool              bDrawPanel;
   bool              bDrawLogo;

public:
   virtual int       OnInit()
     {
      // код доступен только после оплаты
   }

   virtual void      OnDeinit(const int reason)
     {
      m_timer.OnDeinit();
      m_panel.OnDeinit();
      m_dry.OnDeinit();

      for(int i=0; i<MAX_SYSTEMS; i++)
        {
         m_main[i].OnDeinit();
        }
      HideTestIndicators(false);
     }

   void              DrawPanel()
     {

      double dd=0;
      double dBalance=AccountBalance();
      if(dBalance>0)
         dd=NormalizeDouble((AccountEquity()-dBalance)*100/dBalance,2);

      m_panel.Text("name",StringFormat("Аккаунт %s",AccountName()));
      m_panel.Text("account",StringFormat("Счет № %ld",AccountNumber()));
      color ccolor=clrOrange;
      if(dd<=-30)
         ccolor=clrRed;

      m_panel.Color("dd",ccolor);
      m_panel.Text("dd",StringFormat("Просадка %.2f%%",dd));

      m_panel.Text("balance",StringFormat("Баланс %.2f",dBalance));
      m_panel.Text("equity",StringFormat("Эквити %.2f",AccountEquity()));

      double dMarginLevel=AccountLevel();

      ccolor=clrOrange;
      if(MinStopEquityLev>0 && dMarginLevel<MinStopEquityLev && dMarginLevel!=0)
         ccolor=clrRed;
      m_panel.Color("margin",ccolor);
      m_panel.Text("margin",StringFormat("Маржа %.2f%%",dMarginLevel));

      int idir[MAX_SYSTEMS]= {-1,-1,-1},icount[MAX_SYSTEMS]= {0};
      double dlots[MAX_SYSTEMS]= {0},dprofit[MAX_SYSTEMS]= {0};
      double dalltotal=0,dalllast=0,dtotal=0,dlast=0;

      for(int i=0; i<OrdersTotal(); i++)
        {
         if(!OrderSelect(i,SELECT_BY_POS))
            continue;

         if(OrderSymbol()!=_Symbol)
            continue;

         if(OrderMagicNumber()==MagicGridA)
           {
            icount[0]++;
            idir[0]=OrderType();
            dlots[0]+=OrderLots();
            dprofit[0]+=MacroProfit;
           }
         if(OrderMagicNumber()==MagicGridB)
           {
            icount[1]++;
            idir[1]=OrderType();
            dlots[1]+=OrderLots();
            dprofit[1]+=MacroProfit;
           }
         if(OrderMagicNumber()==MagicGridC)
           {
            icount[2]++;
            idir[2]=OrderType();
            dlots[2]+=OrderLots();
            dprofit[2]+=MacroProfit;
           }
        }

      datetime tmDay=iTime(_Symbol,PERIOD_D1,0);
      datetime tmLast=iTime(_Symbol,PERIOD_D1,1);

      for(int i=0; i<OrdersHistoryTotal(); i++)
        {
         if(!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
            continue;

         if(OrderType()>=2)
            continue;

         if(OrderCloseTime()>=tmDay && ::OrderCloseTime()<=tmDay+86400)
           {
            dalltotal+=MacroProfit;
            if(OrderSymbol()==_Symbol)
               dtotal+=MacroProfit;
           }

         if(OrderCloseTime()>=tmLast && OrderCloseTime()<tmDay)
           {
            dalllast+=MacroProfit;
            if(OrderSymbol()==_Symbol)
               dlast+=MacroProfit;
           }

        }

      m_panel.Text("alltoday",StringFormat("Общий сегодня %.2f",dalltotal));
      m_panel.Text("alllast",StringFormat("Общий вчера %.2f",dalllast));
      m_panel.Text("today",StringFormat("Сегодня %.2f",dtotal));
      m_panel.Text("last",StringFormat("Вчера %.2f",dlast));

      string sdir[MAX_SYSTEMS]= {"","",""};
      for(int i=0; i<MAX_SYSTEMS; i++)
        {
         if(idir[i]==OP_BUY)
            sdir[i]="buy";
         if(idir[i]==OP_SELL)
            sdir[i]="sell";
        }

      if(icount[0]>0)

Показано первые 50% кода (символов: 15085)