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

[سمير محمد ارمان]

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

أبسط مثال كنت قد ذكرته سابقا مؤشر FFCal للأخبار ويستخدم مكتبة wininet.dll وهي دائما تكون موجوده مع ملفات الويندوز
راجع هذا الموضوع لحين تجهيز شرح كامل له

http://codebase.mql4.com/ru/1064

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

[MR.dollar]

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

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

[abou fares]

شكرا استاذ اسامة واستاذ جميل على المساعدة

[dentist_hussein]

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

 if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
  

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

 while(newLot>0)
{
 double lot=NewLot;
 if(NewLot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
 OrderSend(Symbol(),OP_BUYSTOP,lot,Ask+50*Point,3,0,0,"EA",Magic,0,Blue);
 newLot-=MarketInfo(Symbol(),MODE_MAXLOT);
} 
  

تمام أستاذ أسامه و جزاك الله خيرا .. سأجرب الحل الأول ..
أنا أستخدم داله لحساب اللوت

 double new(){
 double newLot;
    double A=orderscnt(OP_BUY)+orderscnt(OP_SELL);
      
       if(A==1)newLot=Lot2;
       if(A==2)newLot=Lot3;
       if(A==3)newLot=Lot4;
       if(A==4)newLot=Lot5;
       if(A==5)newLot=Lot6;
       if(A==6)newLot=Lot7;
       if(A==7)newLot=Lot8;
       if(A==8)newLot=Lot9;
       if(A==9)newLot=Lot10;
       if(A==10)newLot=Lot11;
       if(A==11)newLot=Lot12;
       if(A==12)newLot=Lot13;
       if(A==13)newLot=Lot14;
       if(A==14)newLot=Lot15;
     
      
      
   return(newLot);
   } 
  

هل أضع الكود بداخلها أم مع الشروط هكذا

   if(orderscnt(OP_BUY)>=1 && PendingOrders(OP_SELLSTOP)+PendingOrders(OP_BUYSTOP)==0  && last_type==OP_BUY )
         {
         
          
          TP=s-(TakeProfit*point);
          SL=s+(StopLoss*point)+spr;
          
        if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
         
 
          
           
            OrderSend(Symbol(),OP_SELLSTOP,new(),s,3*Q,SL,TP,"dentist_hussein EA",MagicNumber,0,Red);
            
           }
          
        
       
       
       
          
     ////////////////////////
             
        if
        while(orderscnt(OP_SELL)>=1 && PendingOrders(OP_BUYSTOP)+PendingOrders(OP_SELLSTOP)==0  && last_type==OP_SELL )
         {
         
          
          TP=b+(TakeProfit*point);
          SL=b-(StopLoss*point)-spr;
          
        if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
          
          
            OrderSend(Symbol(),OP_BUYSTOP,new(),b,3*Q,SL,TP,"dentist_hussein EA",MagicNumber,0,Blue);
           
           } 
  

لأني جربت الإثنين والمشكله كما هي ..
وجزاك الله حيرا .

[dentist_hussein]

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

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

الله يبارك فيك أخي جميل و ما تحرمشي منك و من مساعدتك .. و في ميزان حسناتك إن شاء الله .. سأجرب الدوال إن شاء الله

[xcv114]

لاحظ يا دكتور إنك في أوردر سيند إستدعيت حجم اللوت من الدالة lot()
وبالتالي يجب وضع الشرط في دالة اللوت
ويجب أن تكون في نهاية الدالة بالشكل ده

 double new(){
 double newLot;
    double A=orderscnt(OP_BUY)+orderscnt(OP_SELL);
      
       if(A==1)newLot=Lot2;
       if(A==2)newLot=Lot3;
       if(A==3)newLot=Lot4;
       if(A==4)newLot=Lot5;
       if(A==5)newLot=Lot6;
       if(A==6)newLot=Lot7;
       if(A==7)newLot=Lot8;
       if(A==8)newLot=Lot9;
       if(A==9)newLot=Lot10;
       if(A==10)newLot=Lot11;
      if(A==11)newLot=Lot12;
       if(A==12)newLot=Lot13;
       if(A==13)newLot=Lot14;
       if(A==14)newLot=Lot15;
      if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT);
      
   return(newLot);
   } 
  

[turkm]

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

عندي سؤال أعتقد انه بسيط لكني مش عارف اوصل للمنطق البرمجي:
السؤال

لو فرضنا عندي الاكسبييرت يضع الماجيك نمبر لكل زوج يتاجر به بشكل اوتوماتيكي ولنفرض وضعناه على زوج اليورو دولار وكان الماجيك نمبر = 1 وايضا على زوج الباوند دولار وكان الماجيك نمبر = 2

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

وبارك الله في جهودكم جميعا.

[Jmeel]

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

  int orderscnt(){
 int cnt=0;
   for(int i =0;i<OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderType()==OP_SELL||OrderType()==OP_BUY){
         cnt++;
       }
     }
   }
    return(cnt);
  } 
  

[xcv114]

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

عندي سؤال أعتقد انه بسيط لكني مش عارف اوصل للمنطق البرمجي:
السؤال

لو فرضنا عندي الاكسبييرت يضع الماجيك نمبر لكل زوج يتاجر به بشكل اوتوماتيكي ولنفرض وضعناه على زوج اليورو دولار وكان الماجيك نمبر = 1 وايضا على زوج الباوند دولار وكان الماجيك نمبر = 2

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

وبارك الله في جهودكم جميعا.

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

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

 extern string comment="Autotarde"; 
  

وتجعل comment في كل أوامر البيع والشراء بالشكل ده مثلا

 OrderSend(Symbol(),OP_BUY,Lots,Ask,3*Q,0,0,comment,MagicNumber,0,Blue); 
  

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

 int AutoOrders(){
 int cnt=0;
   for(int i =0;i<=OrdersTotal();i++){
     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
       if(OrderComment()==comment){
         cnt++;
       }
     }
    return(cnt);
  } 
  

وتضع في شروط البيع والشراء بأن يكون الناتج العائد من الدالة <1

 if(AutoOrders()<1 && إلخ)//Buy
if(AutoOrders()<1 && إلخ)//Sell 
  

[turkm]

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

  int orderscnt(){
 int cnt=0;
   for(int i =0;i<OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderType()==OP_SELL||OrderType()==OP_BUY){
         cnt++;
       }
     }
   }
    return(cnt);
  } 
  

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

[turkm]

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

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

 extern string comment="Autotarde"; 
  

وتجعل comment في كل أوامر البيع والشراء بالشكل ده مثلا

 OrderSend(Symbol(),OP_BUY,Lots,Ask,3*Q,0,0,comment,MagicNumber,0,Blue); 
  

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

 int AutoOrders(){
 int cnt=0;
   for(int i =0;i<=OrdersTotal();i++){
     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
       if(OrderComment()==comment){
         cnt++;
       }
     }
    return(cnt);
  } 
  

وتضع في شروط البيع والشراء بأن يكون الناتج العائد من الدالة <1

 if(AutoOrders()<1 && إلخ)//Buy
if(AutoOrders()<1 && إلخ)//Sell 
  

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

بس لازم يكون هناك حل آخر هذا ما أعتقده

[turkm]

بارك الله بكم جميع يبدو اني توصلت للحل المنطقي ويلي كان سهل جدا

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

بارك الله بكم جميعا أساتذتنا

[Jmeel]

بارك الله بكم جميع يبدو اني توصلت للحل المنطقي ويلي كان سهل جدا

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

بارك الله بكم جميعا أساتذتنا

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

[MR.dollar]

تمام أستاذ أسامه و جزاك الله خيرا .. سأجرب الحل الأول ..
أنا أستخدم داله لحساب اللوت

 double new(){
 double newLot;
    double A=orderscnt(OP_BUY)+orderscnt(OP_SELL);
      
       if(A==1)newLot=Lot2;
       if(A==2)newLot=Lot3;
       if(A==3)newLot=Lot4;
       if(A==4)newLot=Lot5;
       if(A==5)newLot=Lot6;
       if(A==6)newLot=Lot7;
       if(A==7)newLot=Lot8;
       if(A==8)newLot=Lot9;
       if(A==9)newLot=Lot10;
       if(A==10)newLot=Lot11;
       if(A==11)newLot=Lot12;
       if(A==12)newLot=Lot13;
       if(A==13)newLot=Lot14;
       if(A==14)newLot=Lot15;
     
      
      
   return(newLot);
   } 
  

هل أضع الكود بداخلها أم مع الشروط هكذا

   if(orderscnt(OP_BUY)>=1 && PendingOrders(OP_SELLSTOP)+PendingOrders(OP_BUYSTOP)==0  && last_type==OP_BUY )
         {
         
          
          TP=s-(TakeProfit*point);
          SL=s+(StopLoss*point)+spr;
          
        if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
         

          
           
            OrderSend(Symbol(),OP_SELLSTOP,new(),s,3*Q,SL,TP,"dentist_hussein EA",MagicNumber,0,Red);
            
           }
          
        
       
       
       
          
     ////////////////////////
             
        if
        while(orderscnt(OP_SELL)>=1 && PendingOrders(OP_BUYSTOP)+PendingOrders(OP_SELLSTOP)==0  && last_type==OP_SELL )
         {
         
          
          TP=b+(TakeProfit*point);
          SL=b-(StopLoss*point)-spr;
          
        if(newLot>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
          
          
            OrderSend(Symbol(),OP_BUYSTOP,new(),b,3*Q,SL,TP,"dentist_hussein EA",MagicNumber,0,Blue);
           
           } 
  

لأني جربت الإثنين والمشكله كما هي ..
وجزاك الله حيرا .

إما أن تستخدم الشرط بداخل الكود كما شرحها الأخ xcv في المشاركه السابقه
أو أن تضعها مع الأوامر و تجعل الأوامر

 if(new()>MarketInfo(Symbol(),MODE_MAXLOT))newLot=MarketInfo(Symbol(),MODE_MAXLOT); 
   else newLot=new();                     
  
  OrderSend(Symbol(),OP_SELLSTOP,newLot,s,3*Q,SL,TP,"dentist_hussein EA",MagicNumber,0,Red); 
  

[MR.dollar]

بارك الله بكم جميع يبدو اني توصلت للحل المنطقي ويلي كان سهل جدا

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

بارك الله بكم جميعا أساتذتنا

حل منطقي وصحيح جدا ولو ترفق لنا الكود حتى نستفيد منه بارك الله فيك