موضوع مخصص للأسئلة البرمجية

[xcv114]

عفوا مستر دولار انا ابحث عن اي موضوع برمجي يوجد به اضافه برمجه TrailingStop والمعادلات المسئووله عن اضافه هذه الخاصيه من باب التعلم ليس اكثر وشكرا على سعه صدرك اخي الفاضل واعتذر مره اخرى

دي دالة التريلنج أستوب من إكسبيرت من عمل أستاذ أسامة (مستر دولار )

 void MoveTrailingStop()
{
   
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask-TrailingStep*point,digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),digits)<NormalizeDouble(Bid-TrailingStop*point,digits))||(OrderStopLoss()==0))
               {
                  OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,digits),OrderTakeProfit(),0,Blue);
                
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid+TrailingStep*point,digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),digits)>(NormalizeDouble(Ask+TrailingStop*point,digits)))||(OrderStopLoss()==0))
               {
                  OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,digits),OrderTakeProfit(),0,Red);
                
               }
            }
         }
      }
   }
} 
  

وتقوم بتعريف متغيرين خارجين مثلاً

 extern int TrailingStop=40;
extern int TrailingStep=10; 
  

وتضع في دالة إستارت

 if(TrailingStop>0)MoveTrailingStop(); 
  

مرفق إكسبيرت أستاذ أسامة للإطلاع

[spiders101]

نعم قد تزيد بطئ الإكسبرت خصوصا إذا كان عدد الصفقات المفتوحه كبير لكن غالبا لن يكون هذا البطئ ملحوظ
أنت إستخدمت الحلقه

 for(i=OrdersTotal();i>0;i--){
CloseOrders();} 
  

ولست بحاجة لإستخدامها لأن الداله CloseOrders بها الحلقه بداخلها للبحث عن الصفقات وقد يتم إغلاق كل الصفقات من أول مره بالتالي لن تحتاج إلى إستخدام الحلقه الخارجيه

جزاك الله خيرا ، تم حذفها وبالفعل انا استخدمت الحلقة داخل دالة CloseOrders ولكن في بعض الأحيان وجدت ان الدالة لاتقوم بإغلاق كل الصفقات المفتوحة على المنصة والسبب كان من تعريف خطـأ داخل دالة الإغلاق

 int _total=orderstotal(); 
  

 int _total=OrdersTotal(); 
  

[al_naser]

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

[MR.dollar]

عفوا مستر دولار انا ابحث عن اي موضوع برمجي يوجد به اضافه برمجه TrailingStop والمعادلات المسئووله عن اضافه هذه الخاصيه من باب التعلم ليس اكثر وشكرا على سعه صدرك اخي الفاضل واعتذر مره اخرى

تفضل هذا الموضوع

https://forum.arabictrader.com/t97945.html#post1728239

المشاركه رقم 15

[MR.dollar]

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

وعليكم السلام ورحمة الله وبركاته
ليس الخطأ في الإكسبرت أنت ذكرت أن الأوامر تحذف عندما يكون حجم اللوت كبير أعتقد السبب عندك هو
عندما يصل السعر إلى هذه الأوامر المعلقه لتفعيلها لا يكون هناك مارجن كافي لفتح الصفقه وبالتالي الأمر المعلق يحذف ولا يتفعل وليس للأمر علاقه بالإكسبرت

[ayoob700]

 #property copyright "Copyright 2005, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
extern int K_Period_=5;
extern int D_Period_=3;
extern int Slowing_=3;
extern int StopLoss_=6;
extern int TakeProfit_=10;
 
 
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
 
  {
 
if (iStochastic("EURUSD",PERIOD_M5,5,3,3,0,0,0,1)>20 && OrdersTotal()==0)
 
 
OrderSend(Symbol(),OP_BUY,0.01,Ask,30,Ask-100*Point,Ask+700*Point,"",15000,0,Green);
 
 
 
if (iStochastic("EURUSD",PERIOD_M5,5,3,3,0,0,0,1)<80 && OrdersTotal()==0)
 
OrderSend(Symbol(),OP_SELL,0.01,Bid,30,Bid+700*Point, Bid-100*Point,"",15000,0,Red);
 
 
//----
   return(0);
  }
//+------------------------------------------------------------------+ 
  

[ayoob700]

السلام عليكم ورحمة لله وبركاتة لقد قمت بي برمجة اكسبيرات لي غرض تعلم البرمجة هل الاكسيبرت صحيح ولايوجد بة اي خلل مع العلم اني مبتدا جدا في البرمجة

[MR.dollar]

السلام عليكم ورحمة لله وبركاتة لقد قمت بي برمجة اكسبيرات لي غرض تعلم البرمجة هل الاكسيبرت صحيح ولايوجد بة اي خلل مع العلم اني مبتدا جدا في البرمجة

وعليكم السلام ورحمة الله وبركاته

نعم الإكسبرت صحيح طبعا هي بدايه بسيطه لكن قم بإكمال الإكسبرت مثلا أضف إليه إمكانية تغيير الهدف والأستوب لوز
فأنت قمت بوضع المتغير الخارجي للهدف والأستوب لوز لكنك لم تستخدم بداخل كود الإكسبرت

[ابواحمد222]

دي دالة التريلنج أستوب من إكسبيرت من عمل أستاذ أسامة (مستر دولار )

 void MoveTrailingStop()
{
   
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask-TrailingStep*point,digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),digits)<NormalizeDouble(Bid-TrailingStop*point,digits))||(OrderStopLoss()==0))
               {
                  OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,digits),OrderTakeProfit(),0,Blue);
                
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid+TrailingStep*point,digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),digits)>(NormalizeDouble(Ask+TrailingStop*point,digits)))||(OrderStopLoss()==0))
               {
                  OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,digits),OrderTakeProfit(),0,Red);
                
               }
            }
         }
      }
   }
} 
  

وتقوم بتعريف متغيرين خارجين مثلاً

 extern int TrailingStop=40;
extern int TrailingStep=10; 
  

وتضع في دالة إستارت

 if(TrailingStop>0)MoveTrailingStop(); 
  

مرفق إكسبيرت أستاذ أسامة للإطلاع

جزاك الله كل خير اخي الفاضل

[ابواحمد222]

تفضل هذا الموضوع

https://forum.arabictrader.com/t97945.html#post1728239

المشاركه رقم 15

جزاك الله كل خير مستر دولار وجعل مثواك الجنه ان شاء الله

[ayoob700]

وعليكم السلام ورحمة الله وبركاته

نعم الإكسبرت صحيح طبعا هي بدايه بسيطه لكن قم بإكمال الإكسبرت مثلا أضف إليه إمكانية تغيير الهدف والأستوب لوز
فأنت قمت بوضع المتغير الخارجي للهدف والأستوب لوز لكنك لم تستخدم بداخل كود الإكسبرت

بارك لله فيك اخي اسامة ولكن الحقيقة لااعرف ماهي الاكود المستخدمة

[MR.dollar]

بارك لله فيك اخي اسامة ولكن الحقيقة لااعرف ماهي الاكود المستخدمة

كمثال
هذا أمر فتح صفقه شراء الذي قمت بوضعه

 OrderSend(Symbol(),OP_BUY,0.01,Ask,30,Ask-100*Point,Ask+700*Point,"",15000,0,Green); 
  

Ask-100*Point هذا هو الأستوب الذي قمت بتحديده
Ask+700*Point هذا هو الهدف الذي قمت بتحديده
طيب الآن أن تريد جعل 100 و 700 كمتغيرات خارجيه سوف تجعل الكود

 OrderSend(Symbol(),OP_BUY,0.01,Ask,30,Ask-StopLoss_*Point,Ask+TakeProfit_*Point,"",15000,0,Green); 
  

هذا بشكل بسيط
لكن لنفرض أنك لا تريد وضع ستوب لوز أو هدف عند فتح الصفقه بالتالي إذا جعلت قيمة المتغيرات 0 فسوف يحدث خطأ لأن الأستوب سيصبح

 Ask-0*Point 
  

والهدف

 Ask+0*Point 
  

لذلك يمكنك تعديل الكود بحيث تضع شروط وضع الاستوب لوز والهدف إذا كان قيمة المتغير تساوي 0 فيكون الأستوب لوز = 0 ولا يجمع السعر الحالي + الهدف أو السعر الحالي - الأستوب
فيكون الكود

 double SL,TP;
if(StopLoss_>0){SL=Ask-StopLoss_*Point;}else {SL=0;}
if(TakePrfit_>0{TP=Ask+TakeProfit_*Point;}else {TP=0;}
OrderSend(Symbol(),OP_BUY,0.01,Ask,30,SL,TP,"",15000,0,Green); 
  

[مبدع فوركس]

هل هذه الداله صحيحه
اريد ان اجعل البرنامج لا يفتح صفقه جديده الا ان يمر 20 دقيقه على الصفقه السابقه التى اغلقت

 double lastordertime(){
for(int i=OrdersHistoryTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
double it=Time[i];
double tn=(TimeCurrent())-(it)/60;
return(tn);
}} 
  

الاستدعاء

 if(lastordertime()>20){ 
  

[wikileaks]

من فظلكم كيف يمكن برمجة هذا؟
كل صفقه لها تلينغ ستوب خاص بها علما ان الإكسبيرت يمكن ان يفتح اكثر من صفقه في نفس الوقت ؟
عدد نقاط تريلينغ ستوب لكل صفقه = (فارق النقاط بين الدخول و ستوب لوز)

[مبدع فوركس]

من فظلكم كيف يمكن برمجة هذا؟
كل صفقه لها تلينغ ستوب خاص بها علما ان الإكسبيرت يمكن ان يفتح اكثر من صفقه في نفس الوقت ؟
عدد نقاط تريلينغ ستوب لكل صفقه = (فارق النقاط بين الدخول و ستوب لوز)

اذا كنت تسأل عن برمجة كود تريلنج استوب
ففى الاعلى الاخ الفاضل واضع مشاركه عن التريلنج استوب
https://forum.arabictrader.com/t3761...ml#post2510954
ولاكن يوجد فى البرنامج الميتا تريدر خاصية التريلنج استوب بالنقاط التى تحددها فلماذا تبحث عن اكسبيرت خارجى لعملها