Price Data Components
Orders Execution
Indicators Used
9
Views
0
Downloads
0
Favorites
Hans123Trader_v8m1_1
//+------------------------------------------------------------------+
//| Hans123 Expert Advisor |
//| Version 8.1 |
//| v8 Programmed by Fukinagashi |
//| v8.1 Programmed by AymenSaket |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
extern int BeginSession1= 5;
extern int LengthSession1= 4;
extern int BeginSession2= 9;
extern int LengthSession2= 4;
extern double Lots = 1;
extern int LocalTimeZone= 1;
extern int DestTimeZone= 1;
extern int ClsOnlUnprTX=1;
extern int ProtectYourInvestments= 1;
extern int Type_TS_Calc= 1;
extern double FactorTSCalculation = 0.5;
datetime bartime = 0;
double Slippage= 3;
int OrderInterval = 10000;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int cnt, ticket, err, i, j;
int MagicNumber;
double ts, tp, sl, LowestPrice, HighestPrice, Price;
bool Order[5];
string setup;
datetime Validity=0;
double TrailingStop;
double TakeProfit;
double InitialStopLoss;
int PipsForEntry;
int TimeZoneDiff= LocalTimeZone - DestTimeZone;
MagicNumber = func_Symbol2Val(Symbol());
setup="H123v8.1_" + Symbol();
if (Symbol()=="GBPUSDm")
{
PipsForEntry= 5;
TrailingStop = 40;
TakeProfit = 60;
InitialStopLoss=50;
}
else if (Symbol()=="EURUSDm")
{
PipsForEntry= 5;
TrailingStop = 30;
TakeProfit = 80;
InitialStopLoss=60;
}
else if (Symbol()=="USDCHFm")
{
PipsForEntry= 10;
TrailingStop = 30;
TakeProfit = 120;
InitialStopLoss=30;
}
else
{
PipsForEntry= 5;
TrailingStop = 40;
TakeProfit = 60;
InitialStopLoss=50;
}
if (bartime == Time[0])
{
return(0);
}
else
{
bartime = Time[0];
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////// MODIFICATIONS ON OPEN ORDERS ////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES)) {
err = GetLastError();
if (err>1) { Print("Error selecting order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
if(OrderType()==OP_BUY && OrderSymbol()==Symbol() && (OrderMagicNumber()==(MagicNumber+1) || OrderMagicNumber()==(MagicNumber+3))) {
if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) {
if (ClsOnlUnprTX==1) {
if(Bid-OrderOpenPrice()<Point*TrailingStop) {
OrderClose(OrderTicket(), Lots, Bid, 3, Red);
}
} else {
OrderClose(OrderTicket(), Lots, Bid, 3, Red);
}
err = GetLastError();
if (err>1) { Print("Error closing buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
} else if (TrailingStop>0) {
if (ProtectYourInvestments==1 && Bid-OrderOpenPrice()>Point*TrailingStop) {
ts = OrderOpenPrice();
} else {
if (Type_TS_Calc==1) {
ts = Bid-(Point*TrailingStop);
} else if (Type_TS_Calc==2) {
ts = Low[0] - FactorTSCalculation * iATR(NULL,0,14,0);
} else if (Type_TS_Calc==3) {
ts = Low[0] - (FactorTSCalculation *(High[0]-Low[0]));
}
}
if (OrderStopLoss()<ts && Bid-OrderOpenPrice()>Point*TrailingStop) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White);
err = GetLastError();
if (err>1) { Print("Error modifying buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
}
} else if(OrderType()==OP_SELL && OrderSymbol()==Symbol() && (OrderMagicNumber()==(MagicNumber+2) || OrderMagicNumber()==(MagicNumber+4))) {
if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) {
if (ClsOnlUnprTX==1) {
if((OrderOpenPrice()-Ask)<(Point*TrailingStop)) {
OrderClose(OrderTicket(), Lots, Ask, 3, Red);
}
} else {
OrderClose(OrderTicket(), Lots, Ask, 3, Red);
}
err = GetLastError();
if (err>1) { Print("Error closing Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
} else if (TrailingStop>0) {
if (ProtectYourInvestments==1 && (OrderOpenPrice()-Ask)>(Point*TrailingStop)) {
ts = OrderOpenPrice();
} else {
if (Type_TS_Calc==1) {
ts = Ask+(Point*TrailingStop);
} else if (Type_TS_Calc==2) {
ts = High[0] + FactorTSCalculation * iATR(NULL,0,14,0);
} else if (Type_TS_Calc==3) {
ts = High[0] + (FactorTSCalculation *(High[0]-Low[0]));
}
}
if (OrderStopLoss()>ts && (OrderOpenPrice()-Ask)>(Point*TrailingStop)) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White);
err = GetLastError();
if (err>1) { Print("Error modifyin sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
}
}
}
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////// SETTING ORDERS ////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if(AccountFreeMargin()<(1000*Lots)) return(0);
Validity=StrToTime(TimeYear(Time[0]) + "." + TimeMonth(Time[0]) + "." + TimeDay(Time[0]) + " 23:59")+(TimeZoneDiff*3600);
for(i=1;i<5;i++) { Order[i]=false; }
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
err = GetLastError();
if(OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+1))
{
Order[1]=true;
}
else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+2))
{
Order[2]=true;
}
else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+3))
{
Order[3]=true;
}
else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+4))
{
Order[4]=true;
}
}
if (TimeHour(Time[0])==BeginSession1+LengthSession1+TimeZoneDiff && TimeMinute(Time[0])==0)
{
LowestPrice=Low[Lowest(NULL, 0, MODE_LOW, LengthSession1*60/Period(), 0)];
HighestPrice=High[Highest(NULL, 0, MODE_HIGH, LengthSession1*60/Period(), 0)];
Print("Determine Low: " + LowestPrice + " and High: " + HighestPrice + " for timephase " + TimeToStr(Time[240/Period()]) + " - " + TimeToStr(Time[0]));
Price = HighestPrice+PipsForEntry*Point;
if (TakeProfit>0)
{
tp=Price+TakeProfit*Point;
}
else
{
tp=0;
}
if (InitialStopLoss>0)
{
if((Price-InitialStopLoss*Point)<LowestPrice-PipsForEntry*Point)
{
sl = LowestPrice-PipsForEntry*Point;
}
else
{
sl = Price-InitialStopLoss*Point;
}
}
else
{
sl=0;
}
if (!Order[1]) ticket=OrderSendExtended(Symbol(),OP_BUYSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+1),Validity,Green);
Price = LowestPrice-PipsForEntry*Point;
if (TakeProfit>0)
{
tp=Price-TakeProfit*Point;
}
else
{
tp=0;
}
if (InitialStopLoss>0)
{
if((Price+InitialStopLoss*Point)>HighestPrice+PipsForEntry*Point)
{
sl = HighestPrice+PipsForEntry*Point;
}
else
{
sl = Price+InitialStopLoss*Point;
}
}
else
{
sl=0;
}
Sleep(OrderInterval);
if (!Order[2]) ticket=OrderSendExtended(Symbol(),OP_SELLSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+2),Validity,Green);
}
if (TimeHour(Time[0])==BeginSession2+LengthSession2+TimeZoneDiff && TimeMinute(Time[0])==0)
{
LowestPrice=Low[Lowest(NULL, 0, MODE_LOW, LengthSession2*60/Period(), 0)];
HighestPrice=High[Highest(NULL, 0, MODE_HIGH, LengthSession2*60/Period(), 0)];
Print("Determine Low: " + LowestPrice + " and High: " + HighestPrice + " for timephase " + TimeToStr(Time[240/Period()]) + " - " + TimeToStr(Time[0]));
Price = HighestPrice+PipsForEntry*Point;
if (TakeProfit>0)
{
tp=Price+TakeProfit*Point;
}
else
{
tp=0;
}
if (InitialStopLoss>0)
{
if((Price-InitialStopLoss*Point)<LowestPrice-PipsForEntry*Point)
{
sl = LowestPrice-PipsForEntry*Point;
}
else
{
sl = Price-InitialStopLoss*Point;
}
}
else
{
sl=0;
}
if (!Order[3]) ticket=OrderSendExtended(Symbol(),OP_BUYSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+3),Validity,Green);
Price = LowestPrice-PipsForEntry*Point;
if (TakeProfit>0)
{
tp=Price-TakeProfit*Point;
}
else
{
tp=0;
}
if (InitialStopLoss>0)
{
if((Price+InitialStopLoss*Point)>HighestPrice+PipsForEntry*Point)
{
sl = HighestPrice+PipsForEntry*Point;
}
else
{
sl = Price+InitialStopLoss*Point;
}
}
else
{
sl=0;
}
Sleep(OrderInterval);
if (!Order[4]) ticket=OrderSendExtended(Symbol(),OP_SELLSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+2),Validity,Green);
}
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////// DIVERSE SUBROUTINES /////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
int func_Symbol2Val(string symbol) {
if(symbol=="AUDUSDm") { return(01);
} else if(symbol=="CHFJPYm") { return(02);
} else if(symbol=="EURAUDm") { return(10);
} else if(symbol=="EURCADm") { return(11);
} else if(symbol=="EURCHFm") { return(12);
} else if(symbol=="EURGBPm") { return(13);
} else if(symbol=="EURJPYm") { return(14);
} else if(symbol=="EURUSDm") { return(15);
} else if(symbol=="GBPCHFm") { return(20);
} else if(symbol=="GBPJPYm") { return(21);
} else if(symbol=="GBPUSDm") { return(22);
} else if(symbol=="USDCADm") { return(40);
} else if(symbol=="USDCHFm") { return(41);
} else if(symbol=="USDJPYm") { return(42);
} else if(symbol=="GOLD") { return(90);
} else { Comment("unexpected Symbol"); return(0);
}
}
int OrderSendExtended(string symbol, int cmd, double volume, double price, int slippage, double stoploss, double takeprofit, string comment, int magic, datetime expiration=0, color arrow_color=CLR_NONE) {
datetime OldCurTime;
int timeout=5;
int ticket=0;
int err1;
if (!IsTesting())
{
MathSrand(LocalTime());
Sleep(MathRand()/6);
}
OldCurTime=CurTime();
while (GlobalVariableCheck("InTrade") && !IsTradeAllowed())
{
if(OldCurTime+timeout<=CurTime())
{
Print("Error in OrderSendExtended(): Timeout encountered");
return(0);
}
Sleep(OrderInterval/10);
}
ticket = OrderSend(symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color);
Sleep (OrderInterval+5000);
err1 = GetLastError();
if (err1==130)
{
ticket=OrderSend(symbol, cmd, volume, Ask, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color);
Sleep (OrderInterval+5000);
}
while (!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))
{
ticket = OrderSend(symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color);
Sleep (OrderInterval+5000);
err1 = GetLastError();
if (err1==130)
{
ticket=OrderSend(symbol, cmd, volume, Ask, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color);
Sleep (OrderInterval+5000);
}
if (err1 > 0)
{
Print("error(",err1,"): ",ErrorDescription(err1));
}
}
return(ticket);
}
Profitability Reports
USD/CAD
Jul 2025 - Sep 2025
0.60
Total Trades
185
Won Trades
63
Lost trades
122
Win Rate
34.05 %
Expected payoff
-9.71
Gross Profit
2660.16
Gross Loss
-4456.93
Total Net Profit
-1796.77
-100%
-50%
0%
50%
100%
NZD/USD
Jul 2025 - Sep 2025
0.52
Total Trades
164
Won Trades
51
Lost trades
113
Win Rate
31.10 %
Expected payoff
-16.52
Gross Profit
2957.00
Gross Loss
-5666.00
Total Net Profit
-2709.00
-100%
-50%
0%
50%
100%
GBP/USD
Jul 2025 - Sep 2025
0.91
Total Trades
176
Won Trades
76
Lost trades
100
Win Rate
43.18 %
Expected payoff
-2.57
Gross Profit
4560.00
Gross Loss
-5013.00
Total Net Profit
-453.00
-100%
-50%
0%
50%
100%
GBP/AUD
Jul 2025 - Sep 2025
0.18
Total Trades
163
Won Trades
22
Lost trades
141
Win Rate
13.50 %
Expected payoff
-23.77
Gross Profit
849.35
Gross Loss
-4724.34
Total Net Profit
-3874.99
-100%
-50%
0%
50%
100%
EUR/USD
Jul 2025 - Sep 2025
0.77
Total Trades
177
Won Trades
70
Lost trades
107
Win Rate
39.55 %
Expected payoff
-7.05
Gross Profit
4158.00
Gross Loss
-5405.00
Total Net Profit
-1247.00
-100%
-50%
0%
50%
100%
USD/CAD
Oct 2024 - Jan 2025
0.30
Total Trades
212
Won Trades
45
Lost trades
167
Win Rate
21.23 %
Expected payoff
-20.01
Gross Profit
1789.46
Gross Loss
-6032.40
Total Net Profit
-4242.94
-100%
-50%
0%
50%
100%
NZD/USD
Oct 2024 - Jan 2025
0.57
Total Trades
211
Won Trades
69
Lost trades
142
Win Rate
32.70 %
Expected payoff
-14.49
Gross Profit
4065.00
Gross Loss
-7123.00
Total Net Profit
-3058.00
-100%
-50%
0%
50%
100%
GBP/USD
Oct 2024 - Jan 2025
0.32
Total Trades
203
Won Trades
46
Lost trades
157
Win Rate
22.66 %
Expected payoff
-26.60
Gross Profit
2599.00
Gross Loss
-7998.00
Total Net Profit
-5399.00
-100%
-50%
0%
50%
100%
AUD/USD
Oct 2024 - Jan 2025
0.62
Total Trades
204
Won Trades
0
Lost trades
0
Win Rate
0.00 %
Expected payoff
-12.30
Gross Profit
4172.00
Gross Loss
-6681.00
Total Net Profit
-2509.00
-100%
-50%
0%
50%
100%
Comments