personal_assistant

//+——————————————————————+
//| PERSONAL_ASSISTANT.mq4 |
//| INFINITE LOOP |
//| |
//+——————————————————————+
#property copyright “INFINITE LOOP”
#property link “”
#property version “1.00”
#property strict
#property description “Personal assistant is there to provide you with crucial information for making investment decisions and to execute your orders!”
//+——————————————————————+
//| User input variables |
//+——————————————————————+
input int ID=3900;
input bool Allow_pen_orders=true; // Allows placement of pending orders
input bool Set_SL = false; // Allows input of StopLoss for active orders before execution
input bool Set_TP = false; // Allows input of TakeProfit for active orders before execution
input bool Display_legend=false; // Allows display of action commands

input double LotSize=0.01;
input int slippage=2;

input int text_size=10;
input color text_color=clrBlack;
input int right_edge_shift = 380;
input int upper_edge_shift = 15;
//+——————————————————————+
//| Global variables |
//+——————————————————————+
string EA_name=”PERSONAL_ASSISTANT”;
string global_Volume = “VOLUME_” + IntegerToString(ID);
string global_Record = “RECORD_” + IntegerToString(ID);
string global_Price=”PRICE_”+IntegerToString(ID);
string global_StopLoss=”SL_”+IntegerToString(ID);
string global_TakeProfit=”TP_”+IntegerToString(ID);
//+——————————————————————+
//| Expert initialization function |
//+——————————————————————+
int OnInit()
{
if(AccountInfoDouble(ACCOUNT_BALANCE)<5)
return(INIT_FAILED);

GlobalVariableSet(global_Volume,LotSize);
GlobalVariableSet(global_Record,-1.0);

GlobalVariableSet(global_Price,0.0);
GlobalVariableSet(global_StopLoss,0.0);
GlobalVariableSet(global_TakeProfit,0.0);

return(INIT_SUCCEEDED);
}
//+——————————————————————+
//| Expert deinitialization function |
//+——————————————————————+
void OnDeinit(const int reason)
{
for(int z=1; z<=24; z++)
ObjectDelete(ChartID(),EA_name+”_”+(string)z);

GlobalVariableDel(global_Volume);
GlobalVariableDel(global_Record);

GlobalVariableDel(global_Price);
GlobalVariableDel(global_StopLoss);
GlobalVariableDel(global_TakeProfit);
}
//+——————————————————————+
//| Expert tick function |
//+——————————————————————+
void OnTick()
{
int x=0,
y=0,
open_position_counter=0,
sl_counter = 0,
tp_counter = 0;

double EA_profit=0,
EA_takeProfit=0,
EA_StopLoss=0,
EA_volume=0;

string text=””;
//********************************************************************************************************************************
// Control over opened positions
for(int pos=0; pos<OrdersTotal(); pos++)
{
// select every order by position
if(OrderSelect(pos,SELECT_BY_POS,MODE_TRADES))
{
// check if order was set by this EA
if(OrderMagicNumber()==ID)
{
open_position_counter++;

EA_profit=EA_profit+(OrderProfit()+OrderCommission()+OrderSwap());

if(OrderTakeProfit()!=0)
{
EA_takeProfit=EA_takeProfit+NormalizeDouble(MathRound((MathAbs(OrderTakeProfit()-OrderOpenPrice())/_Point))*MarketInfo(_Symbol,MODE_TICKVALUE)*OrderLots(),3);
tp_counter++;
}

if(OrderStopLoss()!=0)
{
EA_StopLoss=EA_StopLoss+NormalizeDouble(MathRound((MathAbs(OrderStopLoss()-OrderOpenPrice())/_Point))*MarketInfo(_Symbol,MODE_TICKVALUE)*OrderLots(),3);
sl_counter++;
}
EA_volume=EA_volume+OrderLots();
}
}
}
//********************************************************************************************************************************
// Data display
x = (int)(ChartGetInteger(ChartID(),CHART_WIDTH_IN_PIXELS,0) – right_edge_shift);
y = upper_edge_shift;

text=”EA id = “+EA_name+” “+(string)ID;
createObject(1,OBJ_LABEL,0,x,y,text);

text=”Type & Period = “+_Symbol+” “+IntegerToString(_Period);
createObject(2,OBJ_LABEL,0,x,y+upper_edge_shift,text);

text=”Leverage = “+IntegerToString(AccountLeverage());
createObject(3,OBJ_LABEL,0,x,y+upper_edge_shift*2,text);

text=”Lot amount = “+DoubleToString(GlobalVariableGet(global_Volume),2);
createObject(4,OBJ_LABEL,0,x,y+upper_edge_shift*3,text);

text=”Tick value = “+DoubleToString(MarketInfo(_Symbol,MODE_TICKVALUE)*GlobalVariableGet(global_Volume),3)+” “+AccountInfoString(ACCOUNT_CURRENCY);
createObject(5,OBJ_LABEL,0,x,y+upper_edge_shift*4,text);

text=”Margin required = “+DoubleToString(MarketInfo(_Symbol,MODE_MARGINREQUIRED)*GlobalVariableGet(global_Volume),3);
createObject(6,OBJ_LABEL,0,x,y+upper_edge_shift*5,text);

text=”Spread = “+DoubleToString(MarketInfo(_Symbol,MODE_SPREAD),2);
createObject(7,OBJ_LABEL,0,x,y+upper_edge_shift*6,text);

text=”***************************************************”;
createObject(8,OBJ_LABEL,0,x,y+upper_edge_shift*7,text);

text=”Profit/Loss (sum) = “+DoubleToString(EA_profit,2);
createObject(9,OBJ_LABEL,0,x,y+upper_edge_shift*8,text);

text=”Positions opened by EA = “+IntegerToString(open_position_counter);
createObject(10,OBJ_LABEL,0,x,y+upper_edge_shift*9,text);

if(tp_counter==0)
text=”TakeProfit (sum) = 0.00”;
else
text=”TakeProfit (sum) = “+DoubleToString(EA_takeProfit,3)+” set for (“+IntegerToString(tp_counter)+”/”+IntegerToString(open_position_counter)+”) – Re: “+
DoubleToString(((EA_takeProfit/AccountInfoDouble(ACCOUNT_BALANCE))*100),2)+” %”;

createObject(11,OBJ_LABEL,0,x,y+upper_edge_shift*10,text);

if(sl_counter==0)
text=”StopLoss (sum) = 0.00″;
else
{
text=”StopLoss (sum) = “+DoubleToString(EA_StopLoss,3)+” set for (“+IntegerToString(sl_counter)+”/”+IntegerToString(open_position_counter)+”) – Ri: “+
DoubleToString(((EA_StopLoss/AccountInfoDouble(ACCOUNT_BALANCE))*100),2)+” %”;
}
createObject(12,OBJ_LABEL,0,x,y+upper_edge_shift*11,text);

if(Display_legend)
{
// LEGEND
text=”ACTION LEGEND:”;
createObject(13,OBJ_LABEL,0,x,y+upper_edge_shift*15,text);

text=”* Press 1 to open BUY position!”;
createObject(14,OBJ_LABEL,0,x,y+upper_edge_shift*16,text);

text=”* Press 2 to open SELL position!”;
createObject(15,OBJ_LABEL,0,x,y+upper_edge_shift*17,text);

text=”* Press 3 to close positions!”;
createObject(16,OBJ_LABEL,0,x,y+upper_edge_shift*18,text);

text=”* Press 4 to increase volume!”;
createObject(17,OBJ_LABEL,0,x,y+upper_edge_shift*19,text);

text=”* Press 5 to decrease volume!”;
createObject(18,OBJ_LABEL,0,x,y+upper_edge_shift*20,text);

text=”* Press 6 to open BUY STOP position!”;
createObject(19,OBJ_LABEL,0,x,y+upper_edge_shift*21,text);

text=”* Press 7 to open SELL STOP position!”;
createObject(20,OBJ_LABEL,0,x,y+upper_edge_shift*22,text);

text=”* Press 8 to open BUY LIMIT position!”;
createObject(21,OBJ_LABEL,0,x,y+upper_edge_shift*23,text);

text=”* Press 9 to open SELL LIMIT position!”;
createObject(22,OBJ_LABEL,0,x,y+upper_edge_shift*24,text);

text=”* Press 0 to ABORT action in process!”;
createObject(23,OBJ_LABEL,0,x,y+upper_edge_shift*25,text);
}
}
//+——————————————————————+
//| Custom create object function |
//+——————————————————————+
void createObject(int st_ID,ENUM_OBJECT obj,int window,int x,int y,string txt=””)
{
ObjectCreate(EA_name+”_”+IntegerToString(st_ID),obj,window,0,0);
ObjectSet(EA_name+”_”+IntegerToString(st_ID),OBJPROP_XDISTANCE,x);
ObjectSet(EA_name+”_”+IntegerToString(st_ID),OBJPROP_YDISTANCE,y);
ObjectSetText(EA_name+”_”+IntegerToString(st_ID),txt,text_size,”Arial”,text_color);
}
//+——————————————————————+
//| |
//+——————————————————————+
void createObjectPT(int st_ID,ENUM_OBJECT obj,int window,datetime x,double y,string txt=””)
{
ObjectCreate(ChartID(),EA_name+”_”+IntegerToString(st_ID),obj,window,x,y);
ObjectSetText(EA_name+”_”+IntegerToString(st_ID),txt,16,”Arial”,clrRed);
}
//+——————————————————————+
//| ChartEvent function |
//+——————————————————————+
void OnChartEvent(const int id,
const long &lparam,
const double &dparam,
const string &sparam)
{
int x=0,
y=0;

string text=””;

x = (int)(ChartGetInteger(ChartID(),CHART_WIDTH_IN_PIXELS,0) – right_edge_shift);
y = upper_edge_shift;
/*
button 1 -> open BUY order manually
button 2 -> open SELL order manually
button 3 -> CLOSE BUY or SELL order manually
button 4 -> increase current Lot volume (Lots in increments of 0.01)
button 5 -> decrease current Lot volume (Lots in increments of 0.01)

button 6 -> set PENDING BUY STOP order manually
button 7 -> set PENDING SELL STOP order manually
button 8 -> set PENDING BUY LIMIT order manually
button 9 -> set PENDING SELL LIMIT order manually
*/
if(id==CHARTEVENT_KEYDOWN && (GlobalVariableGet(global_Record)==-1.0))
{
// *********************************************************************************************************************
// button 1
if(lparam==49 || lparam==97)
{
if(!Set_SL && !Set_TP)
if(OrderSend(_Symbol,OP_BUY,GlobalVariableGet(global_Volume),MarketInfo(_Symbol,MODE_ASK),slippage,0,0,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
Print(“Order BUY successfully opened for “,EA_name,”_”,ID);
else
Print(“Order BUY unsuccessfully opened for “,EA_name,”_”,ID);
else
{
GlobalVariableSet(global_Record,lparam);
if(Set_SL)
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input SL”);
else
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input TP”);
}
}
// *********************************************************************************************************************
// button 2
if(lparam==50 || lparam==98)
{
if(!Set_SL && !Set_TP)
if(OrderSend(_Symbol,OP_SELL,GlobalVariableGet(global_Volume),MarketInfo(_Symbol,MODE_BID),slippage,0,0,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
Print(“Order SELL successfully opened for “,EA_name,”_”,ID);
else
Print(“Order SELL unsuccessfully opened for “,EA_name,”_”,ID);
else
{
GlobalVariableSet(global_Record,lparam);
if(Set_SL)
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input SL”);
else
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input TP”);
}
}
// *********************************************************************************************************************
// button 3
if(lparam==51 || lparam==99)
{
for(int pos=0; pos<OrdersTotal(); pos++)
if(OrderSelect(pos,SELECT_BY_POS,MODE_TRADES))
if(OrderMagicNumber()==ID)
{
if(OrderType()==OP_BUY)
if(OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_BID),slippage,clrNONE))
Print(OrderTicket(),” closed successfully for “,EA_name,”_”,ID);
else
Print(OrderTicket(),” closed unsuccessfully for “,EA_name,”_”,ID);

if(OrderType()==OP_SELL)
if(OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_ASK),slippage,clrNONE))
Print(OrderTicket(),” closed successfully for “,EA_name,”_”,ID);
else
Print(OrderTicket(),” closed unsuccessfully for “,EA_name,”_”,ID);
}
}
// *********************************************************************************************************************
// button 4
if(lparam==52 || lparam==100)
{
if(GlobalVariableGet(global_Volume)>=MarketInfo(_Symbol,MODE_MAXLOT))
Alert(“Top limit for order volume reached!”);
else
{
GlobalVariableSet(global_Volume,GlobalVariableGet(global_Volume)+MarketInfo(_Symbol,MODE_LOTSTEP));

text=”Lot amount = “+DoubleToString(GlobalVariableGet(global_Volume),2);
createObject(4,OBJ_LABEL,0,x,y+upper_edge_shift*3,text);

text=”Tick value = “+DoubleToString(MarketInfo(_Symbol,MODE_TICKVALUE)*GlobalVariableGet(global_Volume),3)+” “+AccountInfoString(ACCOUNT_CURRENCY);
createObject(5,OBJ_LABEL,0,x,y+upper_edge_shift*4,text);

text=”Margin required = “+DoubleToString(MarketInfo(_Symbol,MODE_MARGINREQUIRED)*GlobalVariableGet(global_Volume),3);
createObject(6,OBJ_LABEL,0,x,y+upper_edge_shift*5,text);
}
}
// *********************************************************************************************************************
// button 5
if(lparam==53 || lparam==101)
{
if(GlobalVariableGet(global_Volume)<=MarketInfo(_Symbol,MODE_MINLOT))
Alert(“Volume is at minimum, it can not be decreased!”);
else
{
GlobalVariableSet(global_Volume,GlobalVariableGet(global_Volume)-MarketInfo(_Symbol,MODE_LOTSTEP));

text=”Lot amount = “+DoubleToString(GlobalVariableGet(global_Volume),2);
createObject(4,OBJ_LABEL,0,x,y+upper_edge_shift*3,text);

text=”Tick value = “+DoubleToString(MarketInfo(_Symbol,MODE_TICKVALUE)*GlobalVariableGet(global_Volume),3)+” “+AccountInfoString(ACCOUNT_CURRENCY);
createObject(5,OBJ_LABEL,0,x,y+upper_edge_shift*4,text);

text=”Margin required = “+DoubleToString(MarketInfo(_Symbol,MODE_MARGINREQUIRED)*GlobalVariableGet(global_Volume),3);
createObject(6,OBJ_LABEL,0,x,y+upper_edge_shift*5,text);
}
}
// *********************************************************************************************************************
// button 6, button 7, button 8, button 9
if((lparam>=54 && lparam<=57) || (lparam>=102 && lparam<=105))
if(Allow_pen_orders)
{
GlobalVariableSet(global_Record,lparam);
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input PRICE”);
}
else
Alert(“Pending orders not allowed!”);
}
// RESET SELECTED ACTION (button 0)
if(id==CHARTEVENT_KEYDOWN)
if(GlobalVariableGet(global_Record)!=-1.0)
if(lparam==48 || lparam==96)
{
GlobalVariableSet(global_Record,-1.0);
glDelete();
ObjectDelete(ChartID(),EA_name+”_”+(string)24);
}
// MOUSE ON CHART EVENT -> LOCATION of MOUSE CLICK
if(id==CHARTEVENT_CLICK && (GlobalVariableGet(global_Record)!=-1.0))
{
double action=GlobalVariableGet(global_Record);

int window=0;
double price=0,
SL = 0,
TP = 0;
datetime time=0;

ChartXYToTimePrice(ChartID(),(int)lparam,(int)dparam,window,time,price);

price=NormalizeDouble(price,_Digits);

// determine what inputs are required for ACTIVE or PENDING TRADES
// if active trade, and Set_SL TRUE, first set SL, then if Set_TP TRUE, set TP
if(action==49.0 || action==50 || action==97.0 || action==98.0)
{
if(Set_SL && Set_TP)
{
if(GlobalVariableGet(global_TakeProfit)==0 && GlobalVariableGet(global_StopLoss)!=0)
{
GlobalVariableSet(global_TakeProfit,price);
GlobalVariableSet(global_Record,-1.0);
}

if(GlobalVariableGet(global_StopLoss)==0)
{
GlobalVariableSet(global_StopLoss,price);
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input TP”);
}
}

if(!Set_TP && Set_SL)
if(GlobalVariableGet(global_StopLoss)==0)
GlobalVariableSet(global_StopLoss,price);

if(Set_TP && !Set_SL)
if(GlobalVariableGet(global_TakeProfit)==0)
GlobalVariableSet(global_TakeProfit,price);
}

if((action>=54 && action<=57) || (action>=102 && action<=105))
if(GlobalVariableGet(global_Price)==0)
{
GlobalVariableSet(global_Price,price);
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input SL”);
}
else if(GlobalVariableGet(global_StopLoss)==0)
{
GlobalVariableSet(global_StopLoss,price);
createObjectPT(24,OBJ_TEXT,0,Time[0]+_Period*60*20,Bid,”Input TP”);
}
else if(GlobalVariableGet(global_TakeProfit)==0)
{
GlobalVariableSet(global_TakeProfit,price);
GlobalVariableSet(global_Record,-1.0);
}

if(action==49.0 || action==50 || action==97.0 || action==98.0)
{
if(Set_SL && !Set_TP)
GlobalVariableSet(global_Record,-1.0);

if(!Set_SL && Set_TP)
GlobalVariableSet(global_Record,-1.0);
}
SL = GlobalVariableGet(global_StopLoss);
TP = GlobalVariableGet(global_TakeProfit);
price=GlobalVariableGet(global_Price);
// *********************************************************************************************************************
// BUY (button 1)
if((action==49 || action==97) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(((Set_SL && SL<MarketInfo(_Symbol,MODE_ASK)) || !Set_SL) && ((Set_TP && TP>MarketInfo(_Symbol,MODE_ASK)) || !Set_TP))
if(OrderSend(_Symbol,OP_BUY,GlobalVariableGet(global_Volume),MarketInfo(_Symbol,MODE_ASK),slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
Print(“Order BUY successfully opened for “,EA_name,”_”,ID);
else
Print(“Order BUY unsuccessfully opened for “,EA_name,”_”,ID);
else
Alert(“StopLoss or TakeProfit for BUY order is incorrect!”);

glDelete();
}
// *********************************************************************************************************************
// SELL (button 2)
if((action==50 || action==98) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(((Set_SL && SL>MarketInfo(_Symbol,MODE_BID)) || !Set_SL) && ((Set_TP && TP<MarketInfo(_Symbol,MODE_BID)) || !Set_TP))
if(OrderSend(_Symbol,OP_SELL,GlobalVariableGet(global_Volume),MarketInfo(_Symbol,MODE_BID),slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
Print(“Order SELL successfully opened for “,EA_name,”_”,ID);
else
Print(“Order SELL unsuccessfully opened for “,EA_name,”_”,ID);
else
Alert(“StopLoss or TakeProfit for SELL order is incorrect!”);

glDelete();
}
// *********************************************************************************************************************
// BUY STOP (button 6)
if((action==54.0 || action==102.0) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(price>MarketInfo(_Symbol,MODE_ASK))
if(SL<price && TP>price)
if(OrderSend(_Symbol,OP_BUYSTOP,GlobalVariableGet(global_Volume),price,slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
{
Print(“Order BUY STOP successfully opened for “,EA_name,”_”,ID);
Alert(“Pending order BUY STOP set at price = “,price,” with SL = “,SL,” and TP = “,TP);
}
else
{
Print(“Order BUY STOP unsuccessfully opened for “,EA_name,”_”,ID);
Alert(“ERROR at setting Pending order BUY STOP!”);
}
else
Alert(“StopLoss or TakeProfit for BUY STOP order is incorrect!”);
else
Alert(“The Price level set for BUY STOP order is outside allowed range!”);

glDelete();
}
// *********************************************************************************************************************
// SELL STOP (button 7)
if((action==55.0 || action==103.0) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(price<MarketInfo(_Symbol,MODE_BID))
if(SL>price && TP<price)
if(OrderSend(_Symbol,OP_SELLSTOP,GlobalVariableGet(global_Volume),price,slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
{
Print(“Order SELL STOP successfully opened for “,EA_name,”_”,ID);
Alert(“Pending order SELL STOP set at price = “,price,” with SL = “,SL,” and TP = “,TP);
}
else
{
Print(“Order SELL STOP unsuccessfully opened for “,EA_name,”_”,ID);
Alert(“ERROR at setting Pending order SELL STOP!”);
}
else
Alert(“StopLoss or TakeProfit for SELL STOP order is incorrect!”);
else
Alert(“The Price level set for SELL STOP order is outside allowed range!”);

glDelete();
}
// *********************************************************************************************************************
// BUY LIMIT (button 8)
if((action==56.0 || action==104.0) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(price<MarketInfo(_Symbol,MODE_ASK))
if(SL<price && TP>price)
if(OrderSend(_Symbol,OP_BUYLIMIT,GlobalVariableGet(global_Volume),price,slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
{
Print(“Order BUY LIMIT successfully opened for “,EA_name,”_”,ID);
Alert(“Pending order BUY LIMIT set at price = “,price,” with SL = “,SL,” and TP = “,TP);
}
else
{
Print(“Order BUY LIMIT unsuccessfully opened for “,EA_name,”_”,ID);
Alert(“ERROR at setting Pending order BUY LIMIT!”);
}
else
Alert(“StopLoss or TakeProfit for BUY LIMIT order is incorrect!”);
else
Alert(“The Price level set for BUY LIMIT order is outside allowed range!”);

glDelete();
}
// *********************************************************************************************************************
// SELL LIMIT (button 9)
if((action==57.0 || action==105.0) && GlobalVariableGet(global_Record)==-1.0)
{
ObjectDelete(ChartID(),EA_name+”_”+(string)24);

if(price>MarketInfo(_Symbol,MODE_BID))
if(SL>price && TP<price)
if(OrderSend(_Symbol,OP_SELLLIMIT,GlobalVariableGet(global_Volume),price,slippage,SL,TP,EA_name+” “+IntegerToString(ID),ID,0,clrNONE)>0)
{
Print(“Order SELL LIMIT successfully opened for “,EA_name,”_”,ID);
Alert(“Pending order SELL LIMIT set at price = “,price,” with SL = “,SL,” and TP = “,TP);
}
else
{
Print(“Order SELL LIMIT unsuccessfully opened for “,EA_name,”_”,ID);
Alert(“ERROR at setting Pending order SELL LIMIT!”);
}
else
Alert(“StopLoss or TakeProfit for SELL LIMIT order is incorrect!”);
else
Alert(“The Price level set for SELL LIMIT order is outside allowed range!”);

glDelete();
}
}
}
//+——————————————————————+
//| Custom delete global varables function |
//+——————————————————————+
void glDelete()
{
GlobalVariableSet(global_Price,0.0);
GlobalVariableSet(global_StopLoss,0.0);
GlobalVariableSet(global_TakeProfit,0.0);
}
//+——————————————————————+