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

[MR.dollar]

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

 //+------------------------------------------------------------------+
//|                                              Forex trader V1.mq4 |
//|                      Copyright © 2011, MetaQuotes Software Corp. |
//|                                              [email protected] |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011, MetaQuotes Software Corp."
#property link      "[email protected]"

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  Comment("forex trade V1"+"\n"+"Desined By Engineering Poles anwer"+"\n"+"[email protected]")
  //////////////////////////////////////////////////

  
  double mgys=iCustom(NULL,0,"MGY-daysavg",0,0);
  
  double mgyb=iCustom(NULL,0,"MGY-daysavg",1,0);
  
  int StopLoss=50;
  int TakeProfit=(mgyb-mgys)/3;
  double Lots=(AccountBalance()*0.02)/50;
  
  double SL,TP; 

   if (mgys=true){
   if(StopLoss==0){SL=0;}else{SL=Bid+StopLoss*Point;}
   if(TakeProfit==0){TP=0;}else{TP=Bid-TakeProfit*Point;}
   
  OrderSend(NULL,OP_SELL,Lots,Bid,3,SL,TP,"eng.poles",1,0,Red); 
             PlaySound("Alert.wav");
             }
  if (mgyb=true){
  if(StopLoss==0){SL=0;}else{SL=Ask-StopLoss*Point;}
  if(TakeProfit==0){TP=0;}else{TP=Ask+TakeProfit*Point;}
  
  OrderSend(NULL,OP_BUY,Lots,Ask,3,SL,TP,"eng.poles",1,0,Blue);
             PlaySound("Alert.wav");
             }
 double LotManage
  {
      double lot = MathCeil(AccountFreeMargin() *  2 / 1000) / 100; 
      
      if(lot<MarketInfo(Symbol(),MODE_MINLOT))lot=MarketInfo(Symbol(),MODE_MINLOT);
      if(lot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
      
       
       return (lot);

//----
   
//----


//+------------------------------------------------------------------+ 
  

ودى الاستراتيجية الى عملت عليها الاكسبيرت



بحيث ان الاكسبيرت يفتح صفقة شراء عند وصول السعر للخط الاخضر وفتح صفقة بيع عند وصولة للخط الاحمر ويكون الهدف هو المسافة بين الخط الاخضر والاحمر مقسوما على 3 (المسافة بين الخطين/3) ويكون الاستوب لوز ثابت 50 نقطة وتكون نسبة المخاطرة 2% لكل صفقة ولا يفتح اكثر من 3 صفقات مع بعض لتكون نسبة المخاطرة الكلية 6%
الرجاء المساعدة من خبراء البرمجة

أرفق المؤشر المستخدم حتى نستطيع أن نفيدك

[poles2008]

أرفق المؤشر المستخدم حتى نستطيع أن نفيدك

شكرا لك يا مستر دولار والمؤشرات المستخدمة والتيمبلت فى المرافقات

[al_naser]

اخ اسامه هناك خطاء برمجي في الكود السابق الذي ارفقته ليerror 4051
وماهو الفرق بين الماجيك نمبر والتيكت؟

 for(int i=0;i<=OrdersTotal();i++){
 OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if((TimeCurrent()-OrderOpenTime())/86400>=15)
{
if(OrderType()>OP_SELL)OrderDelete(OrderTicket());
else OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),3);
 }
} 
  

[al_naser]

ونفس الفكره مع هذا الكود

 if((TimeCurrent()-iTime(Symbol(),43200,0))/86400>=15)
  {
  //open order 
  } 
  

[al_naser]

بعد التدقيق في الكود اتوقع انه الخطاء من حيث ما يبدوا لي انك تقسم على 1440 لانك سوف تحول من الثانيه الى اليوم وليس على 86400 ولكن حتى اني حاولت على نفس فكرتي ومازال الكود ليس المطلوب.

[MR.dollar]

اخ اسامه هناك خطاء برمجي في الكود السابق الذي ارفقته ليerror 4051
وماهو الفرق بين الماجيك نمبر والتيكت؟

 for(int i=0;i<=OrdersTotal();i++){
 OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if((TimeCurrent()-OrderOpenTime())/86400>=15)
{
if(OrderType()>OP_SELL)OrderDelete(OrderTicket());
else OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),3);
 }
} 
  

ونفس الفكره مع هذا الكود

 if((TimeCurrent()-iTime(Symbol(),43200,0))/86400>=15)
  {
  //open order 
  } 
  

بعد التدقيق في الكود اتوقع انه الخطاء من حيث ما يبدوا لي انك تقسم على 1440 لانك سوف تحول من الثانيه الى اليوم وليس على 86400 ولكن حتى اني حاولت على نفس فكرتي ومازال الكود ليس المطلوب.

لن تقسم على 1440 والرقم 86400 جاء من أن الداله TimeCurrent تحسب التوقيت بالثواني
لذلك فسوف تقوم بتقسيمها على 60 لتحويها إلى دقائق ثم 60 لتحويلها إلى ساعات ثم 24 لتحويلها إلى أيام
فيصبح 86400
بالنسبة للماجيك نمبر فهو رقم خاص تأخذه الصفقه عند فتحها والطبيعي عند فتح الصفقه يدويا يكون الماجيك نمبر لها هو صفر لكن عند فتحها بواسطة إكسبرت فإنها تأخذ ماجيك نمبر يتم تحديده في الإكسبرت
أما رقم التيكيت فهو رقم تأخذه جميع الصفقات التي يقوم البروكر بفتحها ولا يوجد صفقتين متشابهتين في رقم التيكيت لأن رقم التيكيت يميز كل صفقه عن الأخرى
بالنسبة للكود فهو صحيح لكن بعض الأخطاء تحدث عند إستخدام الأمر OrderSelect
جرب الإكسبرت الآن

[al_naser]

لن تقسم على 1440 والرقم 86400 جاء من أن الداله TimeCurrent تحسب التوقيت بالثواني
لذلك فسوف تقوم بتقسيمها على 60 لتحويها إلى دقائق ثم 60 لتحويلها إلى ساعات ثم 24 لتحويلها إلى أيام
فيصبح 86400
بالنسبة للماجيك نمبر فهو رقم خاص تأخذه الصفقه عند فتحها والطبيعي عند فتح الصفقه يدويا يكون الماجيك نمبر لها هو صفر لكن عند فتحها بواسطة إكسبرت فإنها تأخذ ماجيك نمبر يتم تحديده في الإكسبرت
أما رقم التيكيت فهو رقم تأخذه جميع الصفقات التي يقوم البروكر بفتحها ولا يوجد صفقتين متشابهتين في رقم التيكيت لأن رقم التيكيت يميز كل صفقه عن الأخرى
بالنسبة للكود فهو صحيح لكن بعض الأخطاء تحدث عند إستخدام الأمر OrderSelect
جرب الإكسبرت الآن

لقد جربت الاكسبيرت ولكن هناك خطاء 4063

[MR.dollar]

لقد جربت الاكسبيرت ولكن هناك خطاء 4063

معنى الخطأ
Integer parameter expected.
فلو لاحظت أننا قمنا بتعريف رقم التيكيت

 double t=OrderTicket(); 
  

ويجب جعله

 int t=OrderTicket(); 
  

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

[al_naser]

معنى الخطأ
Integer parameter expected.
فلو لاحظت أننا قمنا بتعريف رقم التيكيت

 double t=OrderTicket(); 
  

ويجب جعله

 int t=OrderTicket(); 
  

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

لقد جربت الاكسبيرت مره اخرى ولكن هناك الخطاء الاول 4051

[al_naser]

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

[zamalek]

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

   if( OrdersTotal()==1 ){
  if(OrderSelect(myticket,SELECT_BY_TICKET)==true)
  {
      if (MathAbs(TimeDay(Time[0])-TimeDay(OrderOpenTime()))>0 )
      {
      if (OrderType()==OP_BUY)
         OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,Red);
      if (OrderType()==OP_SELL)
         OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,Blue);
      }
      return;
   }} 
  

[MR.dollar]

لقد جربت الاكسبيرت مره اخرى ولكن هناك الخطاء الاول 4051

تم تعديله وهو لم يكن سيؤثر على عمل الإكسبرت

[MR.dollar]

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

خطأك في هذا الجزء

 if(UseXMultiplier==true){
double newLot=LastLot(1)*Multiplier;
  
 OrderSend(Symbol(),OP_BUYSTOP,newLot,NormalizeDouble(BuyPrice,Digits),3,BuySL,BuyTP,"",Magicnumber,0,Green);
       }
 OrderSend(Symbol(),OP_SELLSTOP,newLot,NormalizeDouble(SellPrice,Digits),3,SellSL,SellTP,"",Magicnumber,0,Red); 
  

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

[MR.dollar]

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

   if( OrdersTotal()==1 ){
  if(OrderSelect(myticket,SELECT_BY_TICKET)==true)
  {
      if (MathAbs(TimeDay(Time[0])-TimeDay(OrderOpenTime()))>0 )
      {
      if (OrderType()==OP_BUY)
         OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,Red);
      if (OrderType()==OP_SELL)
         OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,Blue);
      }
      return;
   }} 
  

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

[al_naser]

تم تعديله وهو لم يكن سيؤثر على عمل الإكسبرت

ممتاز جدا مع مرتبه الشرف ..........ياريت لوتجعله يقفل ويحذف جميع الصفقات بنفس اليوم الذي احدده. لانه الان يغلق ويحذف في ايام مختلفه رغم من تحديدي له يوم معين.