カテゴリー: インジケーター・EA・bot開発

class CPanelDialog : public CAppDialog
  {
private:
  
   CLabel            m_LabelSymbol;
   CButton           m_BtnTrapRepeat; 

public:
                     CPanelDialog(void);
                    ~CPanelDialog(void);
   virtual bool      Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);

protected:
   bool              Create_LabelSymbol(void);
   bool              Create_BtnTrapRepeat(string name1, string name2, string text, double x1, double y1, double x2,double y2);
  };

bool CPanelDialog::Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2)
  {
   if(!CAppDialog::Create(chart,name,subwin,x1,y1,x2,y2)) return(false);
   if( !Create_LabelSymbol())return (false);
      if(!Create_BtnTrapRepeat(
      "m_BtnTrapRepeat", "__BtnTrapRepeat", "Trap",
      indent_left,
      indent_top+full_height+controls_gap_y,
      indent_left+full_width,
      indent_top+full_height+controls_gap_y+full_height
   )) return(false);
   return(true);
  }

CPanelDialog AppWindow;

bool CPanelDialog::Create_LabelSymbol(void)
{
   int x1=indent_left;
   int y1=indent_top;
   int x2=x1+full_width;
   int y2=y1+full_height;
   
   if( !m_LabelSymbol.Create( m_chart_id, m_name + "m_LabelSymbol", m_subwin, x1, y1, x2, y2 ) ) return false;
   if( !m_LabelSymbol.Text( StringConcatenate(Symbol()," ",PERIOD_CURRENT)) ) return false;
   if( !Add( m_LabelSymbol ) ) return false;
   
   return true;
}

bool CPanelDialog::Create_BtnTrapRepeat(string name1, string name2, string text, double x1, double y1, double x2,double y2)
  {
   
   if(!m_BtnTrapRepeat.Create(0,name2,0,x1,y1,x2,y2)) return(false);
   if(!m_BtnTrapRepeat.Text(text)) return(false);
   if(!Add(m_BtnTrapRepeat)) return(false);

   return(true);
  }

void CreateButton(string name, string label, int x, int y, int width, int height,
                  color bgColor = C'236,233,216', color textColor = clrBlack, int anchor = CORNER_RIGHT_UPPER)
  {
   ObjectCreate(name, OBJ_BUTTON, 0, 0, 0);
   ObjectSet(name,OBJPROP_XDISTANCE,x+width);
   ObjectSet(name,OBJPROP_YDISTANCE,y);
   ObjectSet(name,OBJPROP_WIDTH,x);
   ObjectSet(name,OBJPROP_XSIZE,width);
   ObjectSet(name,OBJPROP_YSIZE,height);
   ObjectSet(name, OBJPROP_CORNER, anchor);
   ObjectSet(name, OBJPROP_BGCOLOR, bgColor);
   ObjectSet(name, OBJPROP_COLOR, textColor);
   ObjectSet(name, OBJPROP_ZORDER, 100);
   ObjectSetText(name, label, FontSize);
  }

void CreateLabel(string name, string label, int x, int y, int width, int height,
                 color bgColor = C'236,233,216', color textColor = clrBlack, int anchor = CORNER_RIGHT_UPPER)
  {
   ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
   ObjectSet(name,OBJPROP_XDISTANCE,x+width);
   ObjectSet(name,OBJPROP_YDISTANCE,y);
   ObjectSet(name,OBJPROP_WIDTH,x);
   ObjectSet(name,OBJPROP_XSIZE,width);
   ObjectSet(name,OBJPROP_YSIZE,height);
   ObjectSet(name, OBJPROP_CORNER, anchor);
   ObjectSet(name, OBJPROP_BGCOLOR, bgColor);
   ObjectSet(name, OBJPROP_COLOR, textColor);
   ObjectSet(name, OBJPROP_ZORDER, 100);
   ObjectSetText(name, label, FontSize);
  }

void OrderBuyEven(double point)
  {
   if(MarketInfo(OrderSymbol(), MODE_BID) - OrderOpenPrice() >= BeslAt * point)
     {
      if(OrderStopLoss() < OrderOpenPrice() && OrderStopLoss() != OrderOpenPrice() + Besl * point)
        {
         Print("建値+", Besl, " pips");
         if(OrderLots() > 0.01)
           {
            ticket = OrderClose(OrderTicket(), NormalizeDouble(OrderLots() / Trades, NormDigit), MarketInfo(OrderSymbol(),MODE_BID), slippage, CLR_NONE);
            Print("半利しました ",OrderSymbol()," - ",iClose(OrderSymbol(),0,0));
           }
        }
     }
void OrderSellEven(double point)
  {
   if(OrderOpenPrice() - MarketInfo(OrderSymbol(), MODE_ASK) >= BeslAt * point)
     {
      if(OrderStopLoss() > OrderOpenPrice() && OrderStopLoss() != OrderOpenPrice() - (Besl + spread)  * point)
        {
         Print("建値+", Besl, " pips");
         if(OrderLots() > 0.01)
           {
            ticket = OrderClose(OrderTicket(), NormalizeDouble(OrderLots() / Trades, NormDigit), MarketInfo(OrderSymbol(),MODE_ASK), slippage, CLR_NONE);
            Print("半利しました ",OrderSymbol()," - ",iClose(OrderSymbol(),0,0));
           }
        }
     }

            for(int i=0; i<ArraySize(PairList); i++)
              {
               if(OrderSymbol() == PairList[i])
                 {
                  BeslAt= BeslAt_Low * 10;
                  Besl= Besl_Low * 10;
                 }
              }