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

[الرجل المستحيل]

الله يعطيكم العافيه

يشرفني الانضمام لكم


ربط الايمي بروكر مع الميتاتريدر
طلع مشكله

4- نسخ الملف exp.dll الى المسار التالي C:\Program Files\MetaTrader 4\experts\libraries

5- نسخ الملف exp.mqh الى هذا المسار C:\Program Files\MetaTrader 4\experts\include
MetaTrader

انا مشترك مع
FX Solutions UK
لما ادخل على موقع البرنامج ما اجد experts

[wahaab]

 for(int i=1;i<=NumOrders;i++){
      int ticket101=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),3*Q,SL,TP,"wahab",MagicNumber,0,Blue);}

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

[first_knight]

السلام عليكم ورحمة الله وبركاتة
هل يمكن تغير حجم ولون Comment التي تظهر على الشارت

 //--//
   string ls_0;
   if (Digits == 3 || Digits == 5) ls_0 = "Spread  " + DoubleToStr((Ask - Bid) / Point / 10.0, 1) + " pips ";
   if (Digits == 4) ls_0 = "Spread  " + DoubleToStr((Ask - Bid) / Point, 1) + " pips ";
   Comment(ls_0);   
   //--//

[just_be]

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

 for(int i=1;i<=10;i++)
  {
    OpenPrice=Open[0]+20*i*Point;
    OrderSend(Symbol(),OP_SELLLIMIT,NewLot,NormalizeDouble(OpenPrice,Digits),3,0,0,"EA",MagicNumber,0,Red);
    OrderSend(Symbol(),OP_BUYSTOP,NewLot,NormalizeDouble(OpenPrice,Digits),3,0,0,"EA",MagicNumber,0,Blue);         
  } 
  

شكرا ماستر دولار علي الرد ساقوم بالتجربه جزاك الله خيرا

[MR.dollar]

السلام عليكم ورحمة الله وبركاتة
هل يمكن تغير حجم ولون Comment التي تظهر على الشارت

 //--//
   string ls_0;
   if (Digits == 3 || Digits == 5) ls_0 = "Spread  " + DoubleToStr((Ask - Bid) / Point / 10.0, 1) + " pips ";
   if (Digits == 4) ls_0 = "Spread  " + DoubleToStr((Ask - Bid) / Point, 1) + " pips ";
   Comment(ls_0);   
   //--//

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

[MR.dollar]

 for(int i=1;i<=NumOrders;i++){
      int ticket101=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),3*Q,SL,TP,"wahab",MagicNumber,0,Blue);}

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

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

[MR.dollar]

الله يعطيكم العافيه

يشرفني الانضمام لكم


ربط الايمي بروكر مع الميتاتريدر
طلع مشكله

4- نسخ الملف exp.dll الى المسار التالي C:\Program Files\MetaTrader 4\experts\libraries

5- نسخ الملف exp.mqh الى هذا المسار C:\Program Files\MetaTrader 4\experts\include
MetaTrader

انا مشترك مع
FX Solutions UK
لما ادخل على موقع البرنامج ما اجد experts

راجع هذا الموضوع فبعد التحديث الأخير للمياتريدر تغير مسار وضع الملفات

https://forum.arabictrader.com/t189830.html

[lion666666]

شكرا ماستر دولار
ممكن الرد على المشاركة
#6060

[first_knight]

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

[MR.dollar]

السلام عليكم
MR.dollar
متشكر جدا لردك السريع
جزاك الله خيرا على تعبك هذا
معلش هذا اول اكسبيرت لى واسئلتى كثيرة
مرفق الاكسبيرت
وطريقة عملة هى
يقوم بفتح صفقة باى ستوب وصفقة سيل ستوب من هاى ولو شمعة محددة
وعند تفعيل صفقة باى ستوب الى باى مثلا
يتم فتح صفقة سيل ستوب مضاعفة(مرة واحدة فقط)
ولكنه كان كلما اغلقت صفقة مفعلة او عند غلق الجهاز وفتحة مرة اخرى يقوم بعمل صفقة مضاعفة جديدة
فقمت باضافة متغير tm
حتى لا تتكرر لا اعلم هل ستنجح ام لا
فارجوا مراجعة الاكسبيرت
وكتابة ملاحظاتك
باقى الاكسبيرت اريد مساعدة حضرتك
لو تكرمت بكود لتنفيذ الآتى
لو الصفقة المفعلة اغلقت على ربح يتم الغاء الصفقتين المعلقتين
ولو اغلقت على خسارة سوف تفعل الصفقتين
واريد بعد ذلك اغلاق الاكسبيرت
هل يوجد دالة لاغلاق الاكسبيرت
ومتشكر جدا
رغم ان كلمة متشكر لا توافيك حقك

 //+------------------------------------------------------------------+
//|                                                                  |
//|                             KH_TEST_1                            |
//|                                                                  |
//+------------------------------------------------------------------+
 
 
//+------------------------------------------------------------------+
//|                  ENTRIES                                         |
//+------------------------------------------------------------------+
extern double      Lots        =0.01;
extern int         TakeProfit  =20;
extern int         StartHour   =20;
extern string      Candle      ="00";      
extern int         Step        =20;
extern int         MagicNumber =900;
//+------------------------------------------------------------------+
//|                  Variables                                       |
//+------------------------------------------------------------------+
double pt;
double Lots_2;
double L;
double Buyentery;
double Sellentery;
double StopLoss_2;
double MathCeil;
int    StopLoss;
bool   Tm=false;
 
//+------------------------------------------------------------------+
//|                 دالة المنصة رباعية أو خماسية                               |
//+------------------------------------------------------------------+
int init()
  {
      if(Digits==5||Digits==4) 
         { 
            pt=0.0001; 
         } 
      else
         { 
            pt=0.01; 
         }
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
 
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  
datetime TradeTime=StringToTime(TimeToStr(TimeCurrent(),TIME_DATE)+" "+Candle);
                 
   bool time   = (Hour()>=StartHour);      
   int My_Bar  =  iBarShift(Symbol(),0,TradeTime,false);
   double hi   =  High[My_Bar];
   Print("Hi          =",Hi);
   //عند طباعة الهاى يطبع الق يمة 4فقط رغم ان المنصة خماسية
   double lo   =  Low[My_Bar]; 
   Buyentery   =  hi+Step*pt;
   Sellentery  =  lo-Step*pt;
 
//+------------------------------------------------------------------+
//|          حساب ستوب لوز المضاعفة وقيمة المضاعفة                   |
//+------------------------------------------------------------------+
   StopLoss=(((Buyentery-Sellentery)/pt)+1);
   L=StopLoss/TakeProfit ;
   Lots_2=Lots* MathCeil( L);
//+------------------------------------------------------------------+
//|          فتح  باي ستوب وسيل ستوب                                 |
//+------------------------------------------------------------------+
 
   if(time==true&&ordtotal1(OP_BUYSTOP)==0&&ordtotal1(OP_BUY)==0&&ordtotal1(OP_SELL)==0)
   
      {
        open(OP_BUYSTOP,Lots,Buyentery,TakeProfit,StopLoss) ;
      }
   
   if(time==true&&ordtotal1(OP_SELLSTOP)==0&&ordtotal1(OP_SELL)==0&&ordtotal1(OP_BUY)==0)
      {
 
         open(OP_SELLSTOP,Lots,Sellentery,TakeProfit,StopLoss) ;
         
      }
//+------------------------------------------------------------------+
//|                   المضاعفة                                       |
//+------------------------------------------------------------------+
   if(time==true&&Tm==false&&ordtotal1(OP_BUY)==1&&ordtotal1(OP_SELLSTOP)==1)
      {
 
         open(OP_SELLSTOP,Lots_2,Sellentery,TakeProfit,StopLoss) ;
         Tm=true;
      }
      
   if(time==true&&Tm==false&&ordtotal1(OP_SELL)==1&&ordtotal1(OP_BUYSTOP)==1)
      { 
 
         open(OP_BUYSTOP,Lots_2,Buyentery,TakeProfit,StopLoss) ;
         Tm=true;
      }
   return(0);
  }
//+------------------------------------------------------------------+
int open(int ty,double lot,double prc,int pof,int sll)
  {
    double sl=0,tp=0;
    color clr;
    string T;double pr;
    if(ty==OP_BUY || ty==OP_BUYSTOP || ty==OP_BUYLIMIT)
        {
         if(sll>0)
            {
               sl=prc-(sll*pt);
            }else
               {
                  sl=0;
               }
         if(pof>0){tp=prc+(pof*pt);}else{tp=0;}
         clr=Green;
         T="Ask ";
         pr=NormalizeDouble(Ask,Digits);
        }
     if(ty==OP_SELL || ty==OP_SELLSTOP || ty==OP_SELLLIMIT)
       { 
         if(sll>0){sl=prc+(sll*pt);}else{sl=0;}
         if(pof>0){tp=prc-(pof*pt);}else{tp=0;}
         clr=Red;
         T="Bid";
         pr=NormalizeDouble(Bid,Digits);
       }     
         int tik=OrderSend(Symbol()
                ,ty                          //int      cmd,                 // operation
                ,lot                         //double   volume,              // volume
                ,prc                         //double   price,               // price
                ,10                          //int      slippage,            // slippage
                ,sl                          //double   stoploss,            // stop loss
                ,tp                          //double   takeprofit,          // take profit
                ,"KHALED"                    //string   comment=NULL,        // comment
                ,MagicNumber                 //int      magic=0,             // magic number
                ,0                           //datetime expiration=0,        // pending order expiration
                ,clr);                       //color    arrow_color=clrNONE  // color
                
                /////////
          string t;
            if(ty==OP_BUY)t="BUY";if(ty==OP_SELL)t="SELL";
            if(ty==OP_BUYSTOP)t="BUY STOP";
            if(ty==OP_SELLSTOP)t="SELL STOP";
            if(ty==OP_BUYLIMIT)t="BUY LIMIT";
            if(ty==OP_SELLLIMIT)t="SELL LIMIT";
       if(tik>0)
         {
          Print("Order Opened successfully   " ,"Type   ",t,"  LotSize   ",lot);
         }
         else
           {
            Print("OrderSend failed with error #",GetLastError(), " Type ",t,"  LotSize ",lot);
           }
          return(tik);
  }
//+------------------------------------------------------------------+
//|                  دالة عدد الأوردرات                               |
//+------------------------------------------------------------------+
int ordtotal1(int type) 
{ 
   int total_2=0; 
   for(int b=0;b<OrdersTotal();b++)
   { 
      if(OrderSelect(b,SELECT_BY_POS,MODE_TRADES))
      {
       if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber&&OrderType()==type)
         { 
           total_2++; 
         } 
      } 
    }
   return(total_2); 
} 
  

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

  if(time==true&&GlobalVariableGet("Tm")==0&&ordtotal1(OP_BUY)==1&&ordtotal1(OP_SELLSTOP)==1)
      {

         open(OP_SELLSTOP,Lots_2,Sellentery,TakeProfit,StopLoss) ;
         GlobalVariableSet("Tm",1);
      } 
  

تحديد ربح الصفقة التي أغلقت يمكنك عمل دالة لمعرفة ربح الصفقه

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

ودالة لحذف الأوامر المعلقه

 void DeleteOrders()
{
  for (int cnt=OrdersTotal()-1;cnt>=0;cnt--)
  {
    bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
    int ticket=OrderTicket();
    double lots=OrderLots();
    int Otype=OrderType();
    
    if ( OrderSymbol()==Symbol()&&OrderMagicNumber() == MagicNumber)
    {
      if (Otype>OP_SELL)
      {
       bool close= OrderDelete(ticket);
        
      }
    }
  }
} 
  

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

 if(LastOrderProfit()>0&&ordtotal1(OP_BUY)+ordtotal1(OP_SELL)==0&&GlobalVariableGet("Tm")==1)
  {
   DeleteOrders();
  } 
  

بالنسبه لدالة حذف الإكسبرت من الشارت

 ExpertRemove(); 
  

مرفق الإكسبرت

[MR.dollar]

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

أرفق الكود الذي قمت بكتابته وسوف أوضح لك الخطأ في الكود

[wahaab]

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

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);
                
               }
            }
         }
      }
   }
}

[lion666666]

السلام عليكم
انا متشكر جدا
جزاك الله خيرا
ربنا يجعله فى ميزان حسناتك
مهما قلت ومهما شكرت لن اوفيك حقك

[lion666666]

السلام عليكم
معلش استفسار اخر
المفروض دالة
iBarShift
تكون شمعة الساعة 19
يعنى My_Bar = 19
لكى احصل على هاى ولو شمعة الساعة 19
او لو يوجد بديل
اريد دالة لكى احصل على هاى ولو شمعة الساعة 19
فى اى وقت بعد الساعة 19 (حتى لو بعد 15ساعة)
extern string Candle ="19"

 int start()
  {
  
datetime TradeTime=StringToTime(TimeToStr(TimeCurrent(),TIME_DATE)+" "+Candle);
                 
   bool time   = (Hour()>=StartHour);      
   int My_Bar  =  iBarShift(Symbol(),0,TradeTime,false);
   double Hi   =  High[My_Bar];
   double lo   =  Low[My_Bar]; 
   Buyentery   =  Hi+Step*pt;
   Sellentery  =  lo-Step*pt; 
  

[lion666666]

السلام عليكم
معلش استفسار اخر
المفروض دالة
iBarShift
تكون شمعة الساعة 19
يعنى My_Bar = 19
لكى احصل على هاى ولو شمعة الساعة 19
او لو يوجد بديل
اريد دالة لكى احصل على هاى ولو شمعة الساعة 19
فى اى وقت بعد الساعة 19 (حتى لو بعد 15ساعة)
extern string Candle ="19"

 int start()
  {
  
datetime TradeTime=StringToTime(TimeToStr(TimeCurrent(),TIME_DATE)+" "+Candle);
                 
   bool time   = (Hour()>=StartHour);      
   int My_Bar  =  iBarShift(Symbol(),0,TradeTime,false);
   double Hi   =  High[My_Bar];
   double lo   =  Low[My_Bar]; 
   Buyentery   =  Hi+Step*pt;
   Sellentery  =  lo-Step*pt; 
  

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