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

[MR.dollar]

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

 bool rsi(int shift){
 
 for(int i=shift;i>shift-5;i--){
 double rsi1=iRSI(NULL, 0, 14, PRICE_CLOSE,i);
 double rsi2=iRSI(NULL, 0, 14, PRICE_CLOSE,i+1);
 
 if(rsi2<50 && rsi1>50){return(true);} 
 else if(rsi2>50 && rsi1<50){return(false);}
  break ;
  }
return(-3);
 } 
  

ولكن نفس المشكله فأعدتها كما نصحتني بها

تعديلك غير صحيح لماذا لأنك تريد تحقق الشروط في خلال 5 شمعات بالتالي إذا جعلت القيمه false من أول مقارنه فلن يبحث في الخمس شمعات لكن في شمعه واحده فقط
ثانيا سبب أن الأسهم تظهر أكثر من مره يجب أن تحدد متى يجب أن تبدأ البحث من جديد في شمعات جديده غير السابقه
فمثلا لو تحقق الشرط في الشمعه رقم 4 و الشمعه رقم 3 و الشمعه رقم 2 في ثلاث مؤشرات مختلفه بالتالي سوف يرسم ثلاثة أسهم على الثلاث شمعات وهذا خاطئ

لكن بناء على الشروط التي تريد وضعها متى يجب أن ينتهي البحث وينتظر تحقق شروط جديده ؟

[Jmeel]

السلام عليكم و رحمة الله وبركاته
اخي و استادي الفاضل لي طلب و اتمنى ان تساعدني فيه و هو :
كيف استطيع ان اجعل الاكسبرت يفتح مجموعة من الصفقات لكن بالترتيب التالي:
عند ظهور الاشارة المعتمدة يفتح ثلات صفقات مثلا
buy 1
buy 2
buy 3
ثم يتوقف و ينتظر ظهور الاشارة مرة اخرى و يفتح :
buy 4
buy 5
buy 6
ثم يتوقف و ينتظر ظهور الاشارة مرة اخرى و يفتح :
buy 7
buy 8
buy 9
ثم يتوقف و ينتظر ظهور الاشارة مرة اخرى و يعيد الكرة من جديد اي يفتح :
buy 1
buy 2
buy 3

* و ان يكون لكل صفقة ماجين نامبر خاص بها

فالكسبرت الدي صنعته لم استطع جعله يفتح الصفقات بهدا الترتيب فيقوم بفتحها كلها عند ظهور الاشارة اول مرة :buy 1-buy 2-buy 3-buy 4-buy 5-buy 6-buy 7-buy 8-buy 9
اتمنى من كل قلبي ان تتكرم علي بالحل
ونفعنا الله بعلمك وشكرا...

وعليكم السلام ورحمة الله
ضع في المتغيرت عدد ماجيك

 extern int MagicNo_1=101;
extern int MagicNo_1=102; 
  

تعمل دالة تعود بآخر ماجيك

 int magicno(){
  for(int i=OrdersTotal()-1; i>=0; i--){
  if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==0){
   return(OrderMagicNumber());
  }
 }
   return(0);
} 
  

وعند ارسال أمر الشراء تضع 3 أوامر OrderSend


في كل أمر رقم الماجيك المطلوب والتي ستحصل عليه من الدالة فأذا كان جواب الدالة فالس يكون الماجيك الأول وأذا جواب الدالة الماجيك الثالث يبتدي الأوامر التي تليها بالماجيك 4 و5 و6

هذه الفكرة الأسهل والمباشرة .

[dentist_hussein]

تعديلك غير صحيح لماذا لأنك تريد تحقق الشروط في خلال 5 شمعات بالتالي إذا جعلت القيمه false من أول مقارنه فلن يبحث في الخمس شمعات لكن في شمعه واحده فقط
ثانيا سبب أن الأسهم تظهر أكثر من مره يجب أن تحدد متى يجب أن تبدأ البحث من جديد في شمعات جديده غير السابقه
فمثلا لو تحقق الشرط في الشمعه رقم 4 و الشمعه رقم 3 و الشمعه رقم 2 في ثلاث مؤشرات مختلفه بالتالي سوف يرسم ثلاثة أسهم على الثلاث شمعات وهذا خاطئ

لكن بناء على الشروط التي تريد وضعها متى يجب أن ينتهي البحث وينتظر تحقق شروط جديده ؟

تمام أستاذ أسامه .. شكرا جزيلا و جزاك الله كل خير .

[zzeyani]

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

[MR.dollar]

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

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

 double LastOrderProfit()
{
 for(int i=OrdersHistoryTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  {
   return(OrderProfit());
  }
 }
} 
  

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

 int LastOrderType()
{
 for(int i=OrdersHistoryTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  {
   return(OrderType());
  }
 }
} 
  

وداله لتحدد عدد الصفقات بحيث ستفتح صفقه واحده فقط عند إغلاق الصفقه على خساره

  int TotalOrders()
 {
 int cnt=0;
   for(int i =0;i<OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()){
         cnt++;
       }
     }
   }
    return(cnt);
  } 
  

ثم ستضع في شروط الإكسبرت

 if(LastOrderProfit()<0&&TotalOrders()==0)
{
 if(LastOrderType()==OP_BUY)
 {
  // open new buy 
 }
 if(LastOrderType()==OP_SELL)
 {
  // open new sell 
 }
} 
  

[zzeyani]

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

 double LastOrderProfit()
{
 for(int i=OrdersHistoryTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  {
   return(OrderProfit());
  }
 }
} 
  

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

 int LastOrderType()
{
 for(int i=OrdersHistoryTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  {
   return(OrderType());
  }
 }
} 
  

وداله لتحدد عدد الصفقات بحيث ستفتح صفقه واحده فقط عند إغلاق الصفقه على خساره

  int TotalOrders()
 {
 int cnt=0;
   for(int i =0;i<OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()){
         cnt++;
       }
     }
   }
    return(cnt);
  } 
  

ثم ستضع في شروط الإكسبرت

 if(LastOrderProfit()<0&&TotalOrders()==0)
{
 if(LastOrderType()==OP_BUY)
 {
  // open new buy 
 }
 if(LastOrderType()==OP_SELL)
 {
  // open new sell 
 }
} 
  

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

[Jmeel]

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

تفضل الأكسبيرت بعد التعديل الذي طلبت

[first_knight]

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

extern double      Distance_Between_Price_And_Order =15;      

extern int         Take_Profit                      = 50;
extern int         Stop_loss                        = 50;
extern double      Manual_Lot                       = 0.1;
extern int         Magic_Number                     = 1234;   
                                                     
extern int         TrailingStop=20;
extern int         TrailingStep=10;

double point; 
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
     if(Digits==3||Digits==5)point=10; else point=1;  
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
    if(TrailingStop>0)MoveTrailingStop();
     //--//
    double BuyPrice=Ask + Distance_Between_Price_And_Order*point*Point;
 double BuySL=BuyPrice-Stop_loss*point*Point;
    double BuyTP=BuyPrice+Take_Profit*point*Point;
  
    
    double SellPrice=Bid - Distance_Between_Price_And_Order*point*Point;
double SellSL=SellPrice+Stop_loss*point*Point;
    double SellTP=SellPrice-Take_Profit*point*Point;
   //--//
  if(OrdersTotal() == 0)      
  {                                      
   bool asd=OrderSend(Symbol(),OP_BUYSTOP,Manual_Lot,BuyPrice,5,BuySL,BuyTP,NULL,Magic_Number,0,Green);                             
   bool ads=OrderSend(Symbol(),OP_SELLSTOP,Manual_Lot,SellPrice,5,SellSL,SellTP,NULL,Magic_Number,0,Red);
  }
  ///////////////
  }
//+------------------------------------------------------------------+


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

[hre007]

اساتذتي الاعزاء .. السلام عليكم
اريد ان اجعل الهدف او الاغلاق يكون مع نهاية اغلاق الشمعة
فهل اضع الدالة بهذه الطريقة ؟؟؟ ام ماذا ؟؟؟

void Sell_Market()
{
double SL=0,TP=0,Price=0;
Price=Bid;
if(Stoploss>0) SL=Price+Stoploss*points; else SL=0;
if(Takeprofit>0) TP=Price-Takeprofit*points; else TP=Close[0];
int ticket=OrderSend(Symbol(),OP_SELL,Lots,Price,30,SL,TP,"HRE",MagicNo,0,clrRed);

}

[Jmeel]

اساتذتي الاعزاء .. السلام عليكم
اريد ان اجعل الهدف او الاغلاق يكون مع نهاية اغلاق الشمعة
فهل اضع الدالة بهذه الطريقة ؟؟؟ ام ماذا ؟؟؟

void Sell_Market()
{
double SL=0,TP=0,Price=0;
Price=Bid;
if(Stoploss>0) SL=Price+Stoploss*points; else SL=0;
if(Takeprofit>0) TP=Price-Takeprofit*points; else TP=Close[0];
int ticket=OrderSend(Symbol(),OP_SELL,Lots,Price,30,SL,TP,"HRE",MagicNo,0,clrRed);
 
}

وعليكم السلام ، لاتحتاج تغيير في الدالة فقط في بداية دالة OnTick تضيف هذا الكود ، وطبعا حتعمل متغير datetime بأسم NCC

 if(NCC!=Time[0] && OrdersCloseEveryCandles==true) {NCC=Time[0];   CloseSell();   CloseBuy();} 
  

[Jmeel]

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

extern double      Distance_Between_Price_And_Order =15;      
 
extern int         Take_Profit                      = 50;
extern int         Stop_loss                        = 50;
extern double      Manual_Lot                       = 0.1;
extern int         Magic_Number                     = 1234;   
                                                     
extern int         TrailingStop=20;
extern int         TrailingStep=10;
 
double point; 
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
     if(Digits==3||Digits==5)point=10; else point=1;  
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
    if(TrailingStop>0)MoveTrailingStop();
     //--//
    double BuyPrice=Ask + Distance_Between_Price_And_Order*point*Point;
 double BuySL=BuyPrice-Stop_loss*point*Point;
    double BuyTP=BuyPrice+Take_Profit*point*Point;
  
    
    double SellPrice=Bid - Distance_Between_Price_And_Order*point*Point;
double SellSL=SellPrice+Stop_loss*point*Point;
    double SellTP=SellPrice-Take_Profit*point*Point;
   //--//
  if(OrdersTotal() == 0)      
  {                                      
   bool asd=OrderSend(Symbol(),OP_BUYSTOP,Manual_Lot,BuyPrice,5,BuySL,BuyTP,NULL,Magic_Number,0,Green);                             
   bool ads=OrderSend(Symbol(),OP_SELLSTOP,Manual_Lot,SellPrice,5,SellSL,SellTP,NULL,Magic_Number,0,Red);
  }
  ///////////////
  }
//+------------------------------------------------------------------+
 
 
void MoveTrailingStop()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==Magic_Number)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-TrailingStop*point,Digits))||(OrderStopLoss()==0))
               {
                  bool action=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,Digits),OrderTakeProfit(),0,Blue);
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+TrailingStop*point,Digits)))||(OrderStopLoss()==0))
               {
                 bool action=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,Digits),OrderTakeProfit(),0,Red);
               }
            }
         }
      }
   }
}

وعليكم السلام ورحمة الله وبركاته
ينقصه اضافة الضرب في بوينت فقط .
مرفق الأكسبيرت بعد التعديل .

[hre007]

وعليكم السلام ، لاتحتاج تغيير في الدالة فقط في بداية دالة OnTick تضيف هذا الكود ، وطبعا حتعمل متغير datetime بأسم NCC

 if(NCC!=Time[0] && OrdersCloseEveryCandles==true) {NCC=Time[0];   CloseSell();   CloseBuy();} 
  

مشكور يا استاذي .. وجزاك الله كل خير

[first_knight]

شكرا جزيلا استاذي جميل

[barachot]

لماذا عند غلق الصفقات فى هذا الاكسبيرت يتم غلق 3 صفقات فقط من 5 صفقات
فمثلا يتم فتح 5 صفقات شراء وعند تحقق شرط الاغلاق يتم غلق صفقات 1 و 3 و 5 ويتم ترك صفقات 2 و 4
احترت فى حل هذه المشكله كثيرا ارجوا المساعده

[Jmeel]

لماذا عند غلق الصفقات فى هذا الاكسبيرت يتم غلق 3 صفقات فقط من 5 صفقات
فمثلا يتم فتح 5 صفقات شراء وعند تحقق شرط الاغلاق يتم غلق صفقات 1 و 3 و 5 ويتم ترك صفقات 2 و 4
احترت فى حل هذه المشكله كثيرا ارجوا المساعده

دالة الأغلاق فيها خطاء ، صحح دالة الأغلاق بهذا الكود

 for (int cnt=OrdersTotal()-1; cnt >= 0; cnt--)