الموضوع: موضوع تعليمي : (3) التعديل على اكسبيرت MACD

هذا الموضوع تعليمي لكيفية التعديل على اكسبيرت يعتمد مؤشر MACD

التعديل المطلوب هو

المشاركة الأصلية كتبت بواسطة Aladdin

قمت بتعديلات فى هذا الاكسبرت حتى يتناسب مع استراتيجيتى فى دخول السوق ومع الزوج الذى اجيد التعامل معه وهو ناجح معى حتى الان . لكني عاجز فى تعديل ارى من وجه نظرى انه مفيد لى فى الزوج الذى اتعامل معه . ارجومن سيادكم ان تفيدونى بعلمكم وخبرتكم جزاكم الله خيرا وفضل من عنده وهو القادرعليه .

1 - الغاء take profit فقط واستبداله بان يقوم الاكسبرت بالاغلاق عند تبديل الشراء والبيع
مثلا عندما يقوم الماكد بالشراء تظل العملية مفتوحة حتى يخرج الماكد ويبدأبعملية البيع هنا يغلق عملية الشراء مهما كانت خسارة او ربح ويبدا بفتح عملية البيع و العكس . وشكرا لسيادكم
---------------------------------------------------------------------------------------

ملاحظة :
هذا الموضوع مفيد فقط لمن لديه خبرة في البرمجة بلغة mql4

ومن ليس لديه هذه الخبرة ويريد أن يكتسبها
فعليه بهذا الموضوع

أهم مواضيع تعليم لغة MQL4

بالتوفيق ان شاء الله

نعرض اولاً كود الاكسبيرت المطلوب التعديل عليه

[PHP]
//+------------------------------------------------------------------+
//| MACD Sample.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+

extern double TakeProfit = 50;
extern double Lots = 1;
extern double TrailingStop = 30;
extern double MACDOpenLevel=3;
extern double MACDCloseLevel=2;
extern double MATrendPeriod=26;

//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
double MacdCurrent, MacdPrevious, SignalCurrent;
double SignalPrevious, MaCurrent, MaPrevious;
int cnt, ticket, total;
// initial data checks
// it is important to make sure that the expert works with a normal
// chart and the user did not make any mistakes setting external
// variables (Lots, StopLoss, TakeProfit,
// TrailingStop) in our case, we check TakeProfit
// on a chart of less than 100 bars
if(Bars<100)
{
Print("bars less than 100");
return(0);
}
if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
// to simplify the coding and speed up access
// data are put into internal variables
MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_ MAIN,0);
MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE _MAIN,1);
SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MOD E_SIGNAL,0);
SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MO DE_SIGNAL,1);
MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRIC E_CLOSE,0);
MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRI CE_CLOSE,1);

total=OrdersTotal();
if(total<1)
{
// no opened orders identified
if(AccountFreeMargin()<(1*Lots))
{
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
// check for long position (BUY) possibility
if(MacdCurrent<0 && MacdCurrent>SignalCurrent && MacdPrevious<SignalPrevious &&
MathAbs(MacdCurrent)>(MACDOpenLevel*Point) )
{
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+ TakeProfit*Point,"macd sample",16384,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES )) Print("BUY order opened : ",OrderOpenPrice());
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
// check for short position (SELL) possibility
if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
MacdCurrent>(MACDOpenLevel*Point) )
{
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES )) Print("SELL order opened : ",OrderOpenPrice());
}
else Print("Error opening SELL order : ",GetLastError());
return(0);
}
return(0);
}
// it is important to enter the market correctly,
// but it is more important to exit it correctly...
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && // check for opened position
OrderSymbol()==Symbol()) // check for symbol
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
MacdCurrent>(MACDCloseLevel*Point))
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet) ; // close position
return(0); // exit
}
// check for trailing stop
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
return(0);
}
}
}
}
else // go to short position
{
// should it be closed?
if(MacdCurrent<0 && MacdCurrent>SignalCurrent &&
MacdPrevious<SignalPrevious && MathAbs(MacdCurrent)>(MACDCloseLevel*Point))
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet) ; // close position
return(0); // exit
}
// check for trailing stop
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Poi nt*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
return(0);
}
// the end.
[/PHP]

سنلاحظ في كود فتح صفقات الشراء والبيع ان الماجيك نمبر ثابت وهو الرقم
16384
وفي هذه الحالة لا يمكننا وضع الاكسبيرت على اكثر من شارت لان الماجيك نمبر متشابه

لذلك سيتم انشاء متغير خاص بالماجيك نمبر اسمه
MagicNumber

وسنضع به القيمة 16384 مثلاً

والفرق هنا انه يمكننا تغيير هذا الرقم متى نشاء
ويمكننا في هذه الحالة وضع الاكسبيرت على اكثر من شارت بشرط تغيير الماجيك نمبر



سنضيف هذا الكود
[PHP]extern int MagicNumber = 16384;
[/PHP]

قبل دالة

[PHP]int start()
[/PHP]

وسنستبدل هذا الكود الخاص بالشراء
[PHP] ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+ TakeProfit*Point,"macd sample",16384,0,Green);
[/PHP]

بهذا الكود
[PHP] ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+ TakeProfit*Point,"macd sample",MagicNumber,0,Green);
[/PHP]

وسنستبدل هذا الكود الخاص بالبيع
[PHP] ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);
[/PHP]

بهذا الكود
[PHP] ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",MagicNumber,0,Red);[/PHP]

نأتي الآن لما يتعلق بالهدف

اذا رجعنا للكود السابق فسنلاحظ ان متغير الهدف هو
TakeProfit

وهذا هو الكود المتعلق به
[PHP] if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
[/PHP]

وهذا يعني
اذا كان الهدف يساوي 10 او اكثر فليس هناك مشكلة
ولكن اذا كان الهدف اقل من 10 فستظهر رسالة بذلك ولن تُفتح اي صفقة

والمطلوب ان يقبل الاكسبيرت بالقيمة صفر والتي تعني بأن الهدف مفتوح ، ولا يتم اغلاق الصفقة الا عند وصول السعر للوقف او عند عكس الصفقة من شراء الى بيع وبالعكس
فقط

لذلك سنحذف الكود السابق
[PHP] if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
[/PHP]

وسنستبدله بهذا الكود
[PHP]
if (TakeProfit>0)
{
double bt=Ask+TakeProfit*Point;
double st=Bid-TakeProfit*Point;
}
else
{
bt=0;
st=0;
}

[/PHP]

وسنستبدل هذا الكود الخاص بالشراء
[PHP]
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+ TakeProfit*Point,"macd sample",16384,0,Green);
[/PHP]

بهذا الكود
[PHP]
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,bt," macd sample",MagicNumber,0,Green);
[/PHP]

وسنستبدل هذا الكود الخاص بالبيع
[PHP]ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);[/PHP]

بهذا الكود
[PHP]
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,st, "macd sample",MagicNumber,0,Red);
[/PHP]

سنتابع قريباً ان شاء الله

الخطوة الاخيرة

وهي جعل الاكسبيرت يغلق صفقة الشراء عند تحقق شرط البيع
ويغلق صفقة البيع عند تحقق شرط الشراء

اولاً
اضافة دالة اغلاق صفقة الشراء في آخر الكود

[PHP]int CloseBuyOrders(int Magic)
{
int total = OrdersTotal();

for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderSymbol()==Symbol())
{
if (OrderType()==OP_BUY)
{
if(OrderClose(OrderTicket(),OrderLots(),Bid,3)==fa lse)
{
RefreshRates();
}
else
{
cnt=0;
total=OrdersTotal();
}
}

}
}
return(0);
} [/PHP]

واضافة دالة اغلاق صفقة البيع في آخر الكود
بعد دالة اغلاق صفقة الشراء
[PHP]

int CloseSellOrders(int Magic)
{
int total = OrdersTotal();

for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderSymbol()==Symbol())
{
if (OrderType()==OP_SELL)
{
if(OrderClose(OrderTicket(),OrderLots(),Ask,3)==fa lse)
{
RefreshRates();
}
else
{
cnt=0;
total=OrdersTotal();
}
}

}
}
return(0);
}

[/PHP]

ثانياً

اضافة هذا الكود
[PHP]CloseSellOrders(MagicNumber);[/PHP]

قبل كود فتح صفقة الشراء

واضافة هذا الكود
[PHP]CloseBuyOrders(MagicNumber);[/PHP]

قبل كود فتح صفقة البيع



وبهذا ننتهي من التعديل



الكود النهائي كاملاً

[PHP]
//+------------------------------------------------------------------+
//| MACD Sample.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+

extern double TakeProfit = 0;
extern double Lots = 1;
extern double TrailingStop = 30;
extern double MACDOpenLevel=3;
extern double MACDCloseLevel=2;
extern double MATrendPeriod=26;
extern int MagicNumber = 16384;


//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
double MacdCurrent, MacdPrevious, SignalCurrent;
double SignalPrevious, MaCurrent, MaPrevious;
int cnt, ticket, total;
// initial data checks
// it is important to make sure that the expert works with a normal
// chart and the user did not make any mistakes setting external
// variables (Lots, StopLoss, TakeProfit,
// TrailingStop) in our case, we check TakeProfit
// on a chart of less than 100 bars
if(Bars<100)
{
Print("bars less than 100");
return(0);
}

if (TakeProfit>0)
{
double bt=Ask+TakeProfit*Point;
double st=Bid-TakeProfit*Point;
}
else
{
bt=0;
st=0;
}

// to simplify the coding and speed up access
// data are put into internal variables
MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_ MAIN,0);
MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE _MAIN,1);
SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MOD E_SIGNAL,0);
SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MO DE_SIGNAL,1);
MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRIC E_CLOSE,0);
MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRI CE_CLOSE,1);

total=OrdersTotal();
if(total<1)
{
// no opened orders identified
if(AccountFreeMargin()<(1*Lots))
{
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
// check for long position (BUY) possibility
if(MacdCurrent<0 && MacdCurrent>SignalCurrent && MacdPrevious<SignalPrevious &&
MathAbs(MacdCurrent)>(MACDOpenLevel*Point) )
{
CloseSellOrders(MagicNumber);
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,bt," macd sample",MagicNumber,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES )) Print("BUY order opened : ",OrderOpenPrice());
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
// check for short position (SELL) possibility
if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
MacdCurrent>(MACDOpenLevel*Point) )
{
CloseBuyOrders(MagicNumber);
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,st, "macd sample",MagicNumber,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES )) Print("SELL order opened : ",OrderOpenPrice());
}
else Print("Error opening SELL order : ",GetLastError());
return(0);
}
return(0);
}
// it is important to enter the market correctly,
// but it is more important to exit it correctly...
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && // check for opened position
OrderSymbol()==Symbol()) // check for symbol
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
MacdCurrent>(MACDCloseLevel*Point))
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet) ; // close position
return(0); // exit
}
// check for trailing stop
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
return(0);
}
}
}
}
else // go to short position
{
// should it be closed?
if(MacdCurrent<0 && MacdCurrent>SignalCurrent &&
MacdPrevious<SignalPrevious && MathAbs(MacdCurrent)>(MACDCloseLevel*Point))
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet) ; // close position
return(0); // exit
}
// check for trailing stop
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Poi nt*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
return(0);
}
// the end.

// اغلاق جميع الصفقات المفتوحة
//+------------------------------------------------------------------+
int CloseBuyOrders(int Magic)
{
int total = OrdersTotal();

for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderSymbol()==Symbol())
{
if (OrderType()==OP_BUY)
{
if(OrderClose(OrderTicket(),OrderLots(),Bid,3)==fa lse)
{
RefreshRates();
}
else
{
cnt=0;
total=OrdersTotal();
}
}

}
}
return(0);
}

int CloseSellOrders(int Magic)
{
int total = OrdersTotal();

for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderSymbol()==Symbol())
{
if (OrderType()==OP_SELL)
{
if(OrderClose(OrderTicket(),OrderLots(),Ask,3)==fa lse)
{
RefreshRates();
}
else
{
cnt=0;
total=OrdersTotal();
}
}

}
}
return(0);
}

[/PHP]



والمؤشر في المرفقات



بالتوفيق ان شاء الله

مجهود اكثر من رائع استاذنا المهدس وجدى

ولكن لى سؤال ..

استخدم برنامج الفى تى ترايدر الموجود فى احدى الشركات .. أكيد حضرتك تعرفت عليه قبل ذلك

vt trader

البرنامج به نظام تداول الى جميل جدا وهو مشابه لفكرة هذا الاكسبيرت ولكن مايعيبة انه ليس به الترلينج استوب فقط

وأيضا اعتقد ان هذا النظام فيه دقة ومميزات اكثر من هذا الاكسبيرت

وهذه هى صورة من هذا النظام



ممكن توضح لنا أخى وجدى ماهو الفرق بين هذا النظام وهذا الاكسبيرت

لانى اشعر ان النظام افضل من الاكسبيرت .. ام انهم فى الاصل مختلفين اساسا

منتظر ردك الكريم اخى

تقبل ودى

المشاركة الأصلية كتبت بواسطة sunegypt

مجهود اكثر من رائع استاذنا المهدس وجدى

ولكن لى سؤال ..

استخدم برنامج الفى تى ترايدر الموجود فى احدى الشركات .. أكيد حضرتك تعرفت عليه قبل ذلك

vt trader

البرنامج به نظام تداول الى جميل جدا وهو مشابه لفكرة هذا الاكسبيرت ولكن مايعيبة انه ليس به الترلينج استوب فقط

وأيضا اعتقد ان هذا النظام فيه دقة ومميزات اكثر من هذا الاكسبيرت

وهذه هى صورة من هذا النظام



ممكن توضح لنا أخى وجدى ماهو الفرق بين هذا النظام وهذا الاكسبيرت

لانى اشعر ان النظام افضل من الاكسبيرت .. ام انهم فى الاصل مختلفين اساسا

منتظر ردك الكريم اخى

تقبل ودى

اخي الكريم

لا استطيع ان اذكر لك الفرق

لأني اتعامل مع برنامج ميتا تريدر ولم اتعامل مع VT Trader

تحياتي