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

[MR.dollar]

السلام عليكم ورحمة الله وبركاته
بعد ترك دراسه MQL 4 رجعت اليوم لها
بتصور حتى لو وجدت استراتيجيه مربحه العمل اليدوي يبعدك عن الاهل وحياتك كلها خلف الشاشه
لهذا شيئ رجعت تعلم لعل وعسى نعمل اكسبيرت نربح منه ...
لانه بجد افتقدت اهلي وحياتي خلف الشاشه وبدون فائده
لدي هذا المؤشر يظهر اشاره دخول شراء واشاره دخول بيع
الملف المرفق 417709

كما هو واضح اذا اشاره حمراء بيع واذا خضراء شراء
المطلوب هنا كيف مثلا اذا ظهرت اشاره خضراء بدخل شراء واذا ظهرت اشاره ثانيه يدخل شراء واشاره ثالثه ولم يتحقق هدف 1 و 2 ايضا يدخل شراء
بحسب ماحدد له بمتغير خارجي مثلا extern int count = 3
هنا عدد مرات الدخول شراء في حال ظهرت اشاره شراء
اتمنى وضحت الفكره بحيث انه كل ماتظهر فرصه يدخل بها سواء تحقق الهدف او لا بناء على عدد count هل هو 3 او 2 او 4 ... الخ عدد الصفقات مسموح بها
شكرا لكم

وعليكم السلام ورحمة الله وبركاته
أولا بالنسبه لإستدعاء المؤشر في الإكسبرت

  double BuyArrow=iCustom(Symbol(),0,"SixtySecondTrades",0,1);
 double SellArrow=iCustom(Symbol(),0,"SixtySecondTrades",0,1); 
  

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

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

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

 static datetime Time0;
 if(BuyArrow!=0&&Time0!=Time[0]&&orderscnt(OP_BUY)<3)
 {
  // open buy 
  Time0=Time[0];
 }
 if(SellArrow!=0&&Time0!=Time[0]&&orderscnt(OP_SELL)<3)
 {
  // open sell 
  Time0=Time[0];
 } 
  

طبعا يمكنك تغيير الرقم 3 إلى أي عدد صفقات تفتح في نفس الوقت

[waleedkso]

شكرا مستر دولار

[simba2000]

السلام عليكم الأخ العزيز مستر دولار
بارك الله فيك
عندى انديكتور MTF RSI يعمل على MT4 أريد تحويله الى MT5 ممكن مساعدتك لو سمحت
مش عارف الحق المؤشر هنا
انتظر ردك
شكرا مقدما

[simba2000]

مرفق المؤشر الذى اريد ان يعمل على MT5

انتظر ردك شكرا مقدما

[hre007]

وعليكم السلام ورحمة الله وبركاته
أولا بالنسبه لإستدعاء المؤشر في الإكسبرت

  double BuyArrow=iCustom(Symbol(),0,"SixtySecondTrades",0,1);
 double SellArrow=iCustom(Symbol(),0,"SixtySecondTrades",0,1); 
  

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

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

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

 static datetime Time0;
 if(BuyArrow!=0&&Time0!=Time[0]&&orderscnt(OP_BUY)<3)
 {
  // open buy 
  Time0=Time[0];
 }
 if(SellArrow!=0&&Time0!=Time[0]&&orderscnt(OP_SELL)<3)
 {
  // open sell 
  Time0=Time[0];
 } 
  

طبعا يمكنك تغيير الرقم 3 إلى أي عدد صفقات تفتح في نفس الوقت

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

[hre007]

كمان سؤال
لو اردنا نأتي بآخر لوت مفتوح نستحدم الدالة دي

 double LastOrderLot(int type){
  for(int i=OrdersTotal()-1; i>=0; i--){
  if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNo && OrderType()==type){
 return OrderLots(); 
  }
 }
  return(0);
} 
  

طاب ماذا لو عندنا عدة اوردرات مفتوحة واردنا ان نأتي بحجم اللوت لها جميعا ؟؟

[barachot]

السلام عليكم اريد حل لهذه التحذيرات
return value of 'OrderSend' should be checked

not all control paths return a value

على الرغم على ما اعتقد ان كل الاوامر والدوال مكتوبه صحيحه

    OrderSend(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,NormalizeDouble(SL,digits),NormalizeDouble(TP,digits),"sell10",MagicNumber,0,clrTomato); 
  

والداله هذه على ما اظن مافهاش خطأ ويعطينى هذا التحذير ومش شغاله

return value of 'OrderSelect' should be checked

   double lastbuyprice(){
   for(int i=OrdersTotal();i>=0;i--){
   OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
   if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber&&OrderType()==OP_BUY){
   return(OrderOpenPrice());
   }
   }
   return(0);  
   } 
  

وما تأثير هذه التحذيرات على اداء الاكسبيرت
شكرا لك استاذ اسامه مقدما

[kingsendbad]

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

اخى العزيز مستر دولار

كنت قد طلبت منك تعديل على كود
فى هذه المشاركه
https://forum.arabictrader.com/t37612-389.html

وهذه هو الكود

 #property copyright "king_f"
#property link      " [email protected]"
#property version   "1.00"
#property indicator_chart_window
#property strict
#property indicator_buffers 2 ///////   بفرز الاسهم
#property indicator_color1 Lime // لون السهم الصاعد
#property indicator_color2 Red // لون السهم الهابط
static int check=0;
//-------------------------
 
extern double gap=5 ;  // بعد السهم عن الخط
extern int PipsDifference=10;
//--- buffers
double buy[]; //  السهم الصاعد
double sell[]; // السهم الهابط
 
 
extern int shift =1;  //  ازاحه الشمعه
extern int period =0; //1440  10080  43200 /// الفريم
 
 
 double ticksize = MarketInfo(Symbol(),MODE_TICKSIZE); ///  حساب قيمه التكه
double t,t1,t2,t3,t4,t5,t6,t7,t8,t9; // متغيرات لقيمه التك
 
double wp112,wpp112,wp75,wpp75,wp180,wpp180; //  متغيرات لقيمه خطوط الدعم والمقاومه
 
double hiarrow1,lowarrow1,closearrow1,openarrow0; //  متغيرات هاى ولو واغلاق الشمعه1  و افتتاح الشمعه صفر لاستخدامهم  فى الشروط
double close;
 
 
int init()
  {
 
 //بما ان المؤشر للمنصه الاربع الارقام
 // الكود التالى عباره  عن طريقه الحساب  اذا كانت  المنصه  اربع  ارقام
 //اذا كانت قيمه التك اربع ارقام  بعد الفاصله يجعل قيم متغيرات الخطوط  باضافه عدد النقاط الموجوده
if (ticksize==0.0001){
t2=0.0030; //    
t6=0.0045;
t9=0.0072;
}
if (ticksize ==0000.01){// الذهب رقمين بعد الفاصله
t2=0003.00;
t6=0004.50;
t9=0007.20;
}
 
if (ticksize ==000.01){// رقمين بعد الفاصله  الين اليابانى
t2=000.30;
t6=000.45;
t9=000.72;
}
 
//--- indicator buffers mapping
 
 //  هنا الكود لاعطاء الخطوط التى سنرسمها  قيمه
 
  SetIndexStyle(0,DRAW_ARROW,EMPTY,1);  ///  بفرز الاسهم
   SetIndexArrow(0,233);
   SetIndexBuffer(0,buy);
   SetIndexStyle(1,DRAW_ARROW,EMPTY,1);
   SetIndexArrow(1,234);
   SetIndexBuffer(1,sell);
   
   
   ////////////////////////////////////////////////////////////////
   ////////////////////////////////////////////////////////////////
   //  هنا  انشاء الخطوط 
  
    
   
 return(0);
  }
  
  
  int deinit()
  {
  
ObjectDelete("wp112");
ObjectDelete("wpp112");
ObjectDelete("wp75");
ObjectDelete("wpp75");
ObjectDelete("wp180");
ObjectDelete("wpp180");
 
 
   return(0);
  }
  
 int start()
{
 
////////////**************
  close =NormalizeDouble(iClose(Symbol(),period,shift),Digits);  ///  اغلاق اليوم السابق  
  wp75 = close+t2;   // wp75 اسم خط المقاومه الاول 
  // وهو عباره عن  او  يساوى  قيمه اغلاق الامس  او الشمعه 1لليومى    مضاف اليها   تى2  وهى عدد النقاط  وهى 30  نقطه
  wpp75 = close-t2;  
  wp112=close+t6; // 112
  wpp112=close-t6;
  wp180 =close+t9; // 180
  wpp180 = close-t9;
  
  
  
  
for(int i=1;i<iBarShift(Symbol(),0,iTime(Symbol(),1440,1),false);i++)
{
hiarrow1= NormalizeDouble (iHigh (Symbol(),0,i),Digits);//  هاى الشمعه  السابقه
lowarrow1 = NormalizeDouble(iLow (Symbol(),0,i),Digits);//  لو الشمعه  السابقه
closearrow1 = NormalizeDouble(iClose (Symbol(),0,i),Digits);//  كلوز  الشمعه السابقة
openarrow0 = NormalizeDouble(iOpen (Symbol(),0,i-1),Digits);// اوبن الشمعه الحاليه
//wp75 لو كان هاى الشمعه السابقه يساوى  خط المقاومه المسمى 
//واغلاق  نفس الشمعه السابقه اقل من نفس الخط
//وافتتاح الشمعه الحالية  اقل من او يساوى الخط
 
if(hiarrow1>=wp75-PipsDifference*Point&&hiarrow1<=wp75+PipsDifference*Point  && closearrow1<=wp75 && openarrow0<=wp75)
{
sell[i]=High[i]+gap*Point;//  اذا تخقق الشروط ارسم  سهم هابط ومكانه اعلى اهاى الشمعه بمقدار الجاب    
}
if (lowarrow1<=wpp75+PipsDifference*Point&&lowarrow1>=wpp75-PipsDifference*Point   && closearrow1>=wpp75 && openarrow0>=wpp75)
{
buy[i]=Low[i]-gap*Point;      
}
if(hiarrow1>=wp112-PipsDifference*Point&&hiarrow1<=wp112+PipsDifference*Point  && closearrow1<=wp112 && openarrow0<=wp112)
{
sell[i]=High[i]+gap*Point;       
 }      
if (lowarrow1<=wpp112+PipsDifference*Point&&lowarrow1>=wpp112-PipsDifference*Point  && closearrow1>=wpp112 && openarrow0>=wpp112)
{
buy[i]=Low[i]-gap*Point;       
}
if(hiarrow1>=wp180-PipsDifference*Point&&hiarrow1<=wp180+PipsDifference*Point && closearrow1<=wp180 && openarrow0<=wp180)
{
sell[i]=High[i]+gap*Point;       
}
if (lowarrow1<=wpp180+PipsDifference*Point&&lowarrow1>=wpp180-PipsDifference*Point && closearrow1>=wpp180 && openarrow0>=wpp180)
{
buy[i]=Low[i]-gap*Point;       
}
}
 
  
  
  
  
  
  
  
  
  
    ObjectCreate("wp75",OBJ_HLINE,0,0,wp75); //  خط المقاومه الاولى
    // وباقى الاعدادت
    ObjectSet ("wp75",OBJPROP_COLOR,clrRed);
    ObjectSet("wp75",OBJPROP_STYLE,0);
    ObjectSet("wp75",OBJPROP_WIDTH,1);
    
    ObjectCreate ("wpp75",OBJ_HLINE,0,0,wpp75); //  خط الدعم الاول
    ObjectSet ("wpp75",OBJPROP_COLOR,clrRed);
    ObjectSet("wpp75",OBJPROP_STYLE,0);
    ObjectSet("wpp75",OBJPROP_WIDTH,1);
    
    ObjectCreate ("wp112",OBJ_HLINE,0,0,wp112);// خط المقاومه الثانى
    ObjectSet ("wp112",OBJPROP_COLOR,clrOrange);
    ObjectSet("wp112",OBJPROP_STYLE,0);
    ObjectSet("wp112",OBJPROP_WIDTH,1);
    
    ObjectCreate ("wpp112",OBJ_HLINE,0,0,wpp112);// خط الدعم الثانى
    ObjectSet ("wpp112",OBJPROP_COLOR,clrOrange);
    ObjectSet("wpp112",OBJPROP_STYLE,0);
    ObjectSet("wpp112",OBJPROP_WIDTH,1);
    
  
    
    ObjectCreate("wp180",OBJ_HLINE,0,0,wp180);//  خط المقاومه الثالث
    ObjectSet ("wp180",OBJPROP_COLOR,Blue);
    ObjectSet("wp180",OBJPROP_STYLE,0);
    ObjectSet("wp180",OBJPROP_WIDTH,2);
    
    ObjectCreate ("wpp180",OBJ_HLINE,0,0,wpp180); //  خط الدعم الثالث
    ObjectSet ("wpp180",OBJPROP_COLOR,Blue);
    ObjectSet("wpp180",OBJPROP_STYLE,0);
    ObjectSet("wpp180",OBJPROP_WIDTH,2);
    
///////////***************
 
 
 
 
 return(0);
 } 
  

الان المؤشر يرسم اسهم الايام السابقه على اساس اغلاق الامس
بمعنى انه يرسم اسهم يوم 11/8 مثلا لكن على اساس اغلاق الامس 15/9

وهذه متعب فى عمليه الباك تست (بالعين) لانى لازم اغير الshift عند كل يوم اريد
ان اختبره

والمطلوب داله تجعل المؤشر يحسب كل يوم على اساس اغلاق اليوم السابق له
بمعنى يرسم اسهم يوم 11/8 على اساس اغلاق اليوم لسابق له 10/8









تحياتى

للرفع

[hre007]

السلام عليكم اريد حل لهذه التحذيرات
return value of 'OrderSend' should be checked

not all control paths return a value

على الرغم على ما اعتقد ان كل الاوامر والدوال مكتوبه صحيحه

    OrderSend(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,NormalizeDouble(SL,digits),NormalizeDouble(TP,digits),"sell10",MagicNumber,0,clrTomato); 
  

والداله هذه على ما اظن مافهاش خطأ ويعطينى هذا التحذير ومش شغاله

return value of 'OrderSelect' should be checked

   double lastbuyprice(){
   for(int i=OrdersTotal();i>=0;i--){
   OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
   if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber&&OrderType()==OP_BUY){
   return(OrderOpenPrice());
   }
   }
   return(0);  
   } 
  

وما تأثير هذه التحذيرات على اداء الاكسبيرت
شكرا لك استاذ اسامه مقدما

اسمحلي ارد عن الاستاذ اسامة .. وسوف انتظر معك للتصحيح ..
بالنسبة للكود

 OrderSend(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,NormalizeDouble(SL,digits),NormalizeDouble(TP,digits),"sell10",MagicNumber,0,clrTomato); 
  

يجب ان يصحح الي الكود

 if(StopLoss==0){SL=0;}else{SL=prices+StopLoss*point;}
      if(TakeProfit==0){TP=0;}else{TP=prices-TakeProfit*point;}           
       OrderSend(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,SL,TP,"sell10",MagicNumber,0,clrTomato); 
  

والدالة الاخيرة تم تعديلها على الاصدار الجديد للميتاتريد وتكتب على هذه الصورة

 double lastbuyprice(){
   for(int i=OrdersTotal();i>=0;i--){
  if( OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
   if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber&&OrderType()==OP_BUY){
   return(OrderOpenPrice());
   }
   }}
   return(0);  
   } 
  

جرب وننتظر معا استاذنا اسامة للتصحيح لنا نحن الاثنين

[Jmeel]

كمان سؤال
لو اردنا نأتي بآخر لوت مفتوح نستحدم الدالة دي

 double LastOrderLot(int type){
  for(int i=OrdersTotal()-1; i>=0; i--){
  if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNo && OrderType()==type){
 return OrderLots(); 
  }
 }
  return(0);
} 
  

طاب ماذا لو عندنا عدة اوردرات مفتوحة واردنا ان نأتي بحجم اللوت لها جميعا ؟؟

تغير في الدالة فتكون هكذا

  double buytotlots(){
 double totlots=0;
   for(int i =0;i<=OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()){
         if(OrderType()==OP_BUY) totlots=totlots+OrderLots();
       }
     }
   }
    return(totlots);
  } 
  

[hre007]

تغير في الدالة فتكون هكذا

  double buytotlots(){
 double totlots=0;
   for(int i =0;i<=OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()){
         if(OrderType()==OP_BUY) totlots=totlots+OrderLots();
       }
     }
   }
    return(totlots);
  } 
  

ربنا يخليك لينا يا استاذ جميل ويجازيك بكل خير

ممكن اتقل عليك شوية وتقولي حل للسؤال ده ؟؟

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

اريد ان يفتح مع التقاطع واذا عكس التقاطع ثم عاد فيفتح مرة اخري ولا ان يفتح مع كل ساعة .. فما هو الحل ؟؟

[Jmeel]

ربنا يخليك لينا يا استاذ جميل ويجازيك بكل خير

ممكن اتقل عليك شوية وتقولي حل للسؤال ده ؟؟



اريد ان يفتح مع التقاطع واذا عكس التقاطع ثم عاد فيفتح مرة اخري ولا ان يفتح مع كل ساعة .. فما هو الحل ؟؟

لايوجد حل لأي مؤشر والسبب أنه لابد من أكتمال الأشارة على الفريمين .

[hre007]

لايوجد حل لأي مؤشر والسبب أنه لابد من أكتمال الأشارة على الفريمين .

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

[Jmeel]

[QUOTE=hre007;2869545]اسمحلي ارد عن الاستاذ اسامة .. وسوف انتظر معك للتصحيح ..
بالنسبة للكود

 OrderSend(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,NormalizeDouble(SL,digits),NormalizeDouble(TP,digits),"sell10",MagicNumber,0,clrTomato); 
  

قبل أرسال الأوردر تضاف اليه

 int ticket=OrderSend
(Symbol(),OP_SELL,Lots3,NormalizeDouble(Bid,digits),3*Q,NormalizeDouble(SL,digits),NormalizeDouble(TP,digits),"sell10",MagicNumber,0,clrTomato); 
  

[Jmeel]

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

الماكد ولاغيره له علاقة بالأمر هذا يرجع للشروط التي تضعها .