[go: up one dir, main page]
Scribd
Upload
73 views5 pages

MQL Buy Sell

The document contains code for an expert advisor that creates buttons and labels on a chart for testing trades. It handles clicks on the buy and sell buttons by sending orders with the specified stop loss and take profit values.

Uploaded by

panigrahianupam
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
73 views5 pages

MQL Buy Sell

The document contains code for an expert advisor that creates buttons and labels on a chart for testing trades. It handles clicks on the buy and sell buttons by sending orders with the specified stop loss and take profit values.

Uploaded by

panigrahianupam
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 5

Inserted Code

//+------------------------------------------------------------------+
//| TesterTrades.mq4 |
//| Keith Watford |
//| none |
//+------------------------------------------------------------------+
#property copyright "Keith Watford"
#property link "none"
#property version "1.00"
#property strict
//--- input parameters
input int MagicNumber=99;
input double LotSize=1;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
if(IsTesting())
{
string name;
string heading[4]={"Buy","Sell","Stop","TP"};
int xc=5;
int yc=30;
for(int i=0;i<2;i++)
{
name=heading[i];
ObjectCreate(0,name,OBJ_BUTTON,0,0,0);
ObjectSetText(name,name,10,"Arial",clrBlue);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,yc);
yc+=20;
}
for(int i=2;i<4;i++)
{
name=heading[i];
ObjectCreate(0,name,OBJ_LABEL,0,0,0);
ObjectSetText(name,name,10,"Arial",clrBlue);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,yc);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
yc+=20;
}
name="EditSL";
ObjectCreate(0,name,OBJ_EDIT,0,0,0);
ObjectSetText(name,DoubleToStr(0,Digits),10,"Arial",clrRed);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc+50);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,70);
ObjectSetInteger(0,name,OBJPROP_XSIZE,60);
ObjectSetInteger(0,name,OBJPROP_YSIZE,20);
name="EditTP";
ObjectCreate(0,name,OBJ_EDIT,0,0,0);
ObjectSetText(name,DoubleToStr(0,Digits),10,"Arial",clrRed);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc+50);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,90);
ObjectSetInteger(0,name,OBJPROP_XSIZE,60);
ObjectSetInteger(0,name,OBJPROP_YSIZE,20);
}
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
if(IsTesting())
{
string name="Buy";
if(ObjectGetInteger(0,name,OBJPROP_STATE)==true)
{
ObjectSetInteger(0,name,OBJPROP_STATE,false);
double sl=StrToDouble(ObjectGetString(0,"EditSL",OBJPROP_TEXT));
double tp=StrToDouble(ObjectGetString(0,"EditTP",OBJPROP_TEXT));
int
ticket=OrderSend(Symbol(),OP_BUY,LotSize,Ask,50,sl,tp,NULL,MagicNumber,0,clr
NONE);
}
name="Sell";
if(ObjectGetInteger(0,name,OBJPROP_STATE)==true)
{
ObjectSetInteger(0,name,OBJPROP_STATE,false);
double sl=StrToDouble(ObjectGetString(0,"EditSL",OBJPROP_TEXT));
double tp=StrToDouble(ObjectGetString(0,"EditTP",OBJPROP_TEXT));
int
ticket=OrderSend(Symbol(),OP_SELL,LotSize,Ask,50,sl,tp,NULL,MagicNumber,0,cl
rNONE);
}
}
//---

----------------------------------------------------------------------------
-------
----------------------------------------------------------------------------
---------
#property copyright "Keith Watford"
#property link "none"
#property version "1.00"
#property strict
//--- input parameters
input int MagicNumber=99;
input double LotSize=1;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//if(IsTesting())
{
string name;
string heading[4]={"Buy","Sell","Stop","TP"};
int xc=5;
int yc=30;
for(int i=0;i<2;i++)
{
name=heading[i];
ObjectCreate(0,name,OBJ_BUTTON,0,0,0);
ObjectSetText(name,name,10,"Arial",clrBlue);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,yc);
yc+=20;
}
for(int i=2;i<4;i++)
{
name=heading[i];
ObjectCreate(0,name,OBJ_LABEL,0,0,0);
ObjectSetText(name,name,10,"Arial",clrBlue);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,yc);
ObjectSetInteger(0,name,OBJPROP_SELECTED,false);
yc+=20;
}
name="EditSL";
ObjectCreate(0,name,OBJ_EDIT,0,0,0);
ObjectSetText(name,DoubleToStr(0,Digits),10,"Arial",clrRed);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc+50);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,70);
ObjectSetInteger(0,name,OBJPROP_XSIZE,60);
ObjectSetInteger(0,name,OBJPROP_YSIZE,20);
name="EditTP";
ObjectCreate(0,name,OBJ_EDIT,0,0,0);
ObjectSetText(name,DoubleToStr(0,Digits),10,"Arial",clrRed);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,xc+50);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,90);
ObjectSetInteger(0,name,OBJPROP_XSIZE,60);
ObjectSetInteger(0,name,OBJPROP_YSIZE,20);
}
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
//---
}
//+------------------------------------------------------------------+
//| ChartEvent function |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
const long &lparam,
const double &dparam,
const string &sparam)
{
if(id==CHARTEVENT_OBJECT_CLICK)
{
string name="Buy";
if(ObjectGetInteger(0,name,OBJPROP_STATE)==true)
{
ObjectSetInteger(0,name,OBJPROP_STATE,false);
double sl=StrToDouble(ObjectGetString(0,"EditSL",OBJPROP_TEXT));
double tp=StrToDouble(ObjectGetString(0,"EditTP",OBJPROP_TEXT));
int
ticket=OrderSend(Symbol(),OP_BUY,LotSize,Ask,50,sl,tp,NULL,MagicNumber,0,clr
NONE);
}
name="Sell";
if(ObjectGetInteger(0,name,OBJPROP_STATE)==true)
{
ObjectSetInteger(0,name,OBJPROP_STATE,false);
double sl=StrToDouble(ObjectGetString(0,"EditSL",OBJPROP_TEXT));
double tp=StrToDouble(ObjectGetString(0,"EditTP",OBJPROP_TEXT));
int
ticket=OrderSend(Symbol(),OP_SELL,LotSize,Ask,50,sl,tp,NULL,MagicNumber,0,cl
rNONE);
}
}
//---

}
Not tested on a live chart.

You might also like