أصنع أكسبرتك بنفسك

**Elhadi_Bouazizi** · 15-12-2011, 01:17 PM

أخي RAM22
هل يمكن أن تعلق على هذا الكود لحل التمرين في الصفحة 2 من الموضوع

كود:

//+------------------------------------------------------------------+
//|                                                    aaaaaaaaa.mq4 |
//|                                  Copyright © 2011, tahlile Corp. |
//|                                                tahlile-forex.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011, tahlile Corp."
#property link      "tahlile-forex.com"
extern int ma_period=20;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   MessageBox("بداية البحث","البحث");
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   MessageBox("نهاية البحث","النهاية");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
//  حساب n1 
double n1;
double n2;
n1= High[1]+1.3;
n2=Low[1]+Open[0]-0.02;
  if (n1>n2)
    {
    Alert("الشرط الاول تحقق");
    
    }
    else 
    {
    Alert("الشرط الاول لم يتحقق");
    }

 // مراقبة المتوسط الحسابي   
 
 
 double ma;
 ma=iMA(NULL,0,ma_period,0,MODE_SMA,PRICE_CLOSE,0);  
     if(ma>1.3)
     {
     MessageBox("المتوسط الحسابي أعلى من السعر الحاي","sma");
     }    
     else
     {
     MessageBox("المتوسط الحابي أدنى من العر","sma1");
     }
// مراقبة الوقت
if (Hour()>23 || Hour()<6)
MessageBox("الوقت غير مناسب لتجارة","trading time");        
   
//----
   return(0);
  }
//+------------------------------------------------------------------+

**أبوجلال** · 15-12-2011, 02:20 PM

المشاركة الأصلية كتبت بواسطة Ram22

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

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

كود:

#property show_inputs

extern bool     UseAverage = true;
extern int      OrderTP=100;
extern int      OrderSL=0;
extern double   OrderBuyTakeProfitPrice=0;
extern double   OrderBuyStopLossPrice=0;
extern double   OrderSellTakeProfitPrice=0;
extern double   OrderSellStopLossPrice=0;

int start()
{
   int x;
   string   OrdSymbol;
   int      OrdTotal;

   double   OrdBuyTotal;
   double   OrdBuyCount    = 0;
   double   OrdBuyAvareg;
   double   OrdBuyTP       = 0;
   double   OrdBuySL       = 0;

   double   OrdSellTotal;
   double   OrdSellCount   = 0;
   double   OrdSellAvareg;
   double   OrdSellTP      = 0;
   double   OrdSellSL      = 0;

   OrdTotal = OrdersTotal();
   
   if(UseAverage == true) 
   {
      for(x=OrdTotal-1 ; x>=0 ; x--)
      {
         OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
      
         if(OrderSymbol() == Symbol())
         {
           if(OrderType() == OP_BUY)
           {
              OrdBuyTotal = OrdBuyTotal + (OrderOpenPrice()*OrderLots());
              OrdBuyCount = OrdBuyCount + OrderLots();
           }
           else if(OrderType() == OP_SELL)
           {
              OrdSellTotal = OrdSellTotal + (OrderOpenPrice()*OrderLots());
              OrdSellCount = OrdSellCount + OrderLots();
           }
         }       
      }

      if(OrdBuyCount > 0)
      {
         OrdBuyAvareg = (OrdBuyTotal/OrdBuyCount);
     
         if(OrderTP!=0)
         OrdBuyTP = OrdBuyAvareg+(OrderTP*Point);
         else
         OrdBuyTP = 0;

         if(OrderSL!=0)
         OrdBuySL = OrdBuyAvareg-(OrderSL*Point);
         else
         OrdBuySL = 0;
      }
    
      if(OrdSellCount > 0)
      {
         OrdSellAvareg = (OrdSellTotal/OrdSellCount);
      
         if(OrderTP!=0)
         OrdSellTP = OrdSellAvareg-(OrderTP*Point);
         else
         OrdSellTP = 0;

         if(OrderSL!=0)
         OrdSellSL = OrdSellAvareg+(OrderSL*Point);
         else
         OrdSellSL = 0;
      }
   }
   else
   {
      OrdBuyTP    = OrderBuyTakeProfitPrice;
      OrdBuySL    = OrderBuyStopLossPrice;
      OrdSellTP   = OrderSellTakeProfitPrice;
      OrdSellSL   = OrderSellStopLossPrice;
   }
    
  // Modify Orders  
  for(x=OrdTotal-1 ; x>=0 ; x--)
  {
    OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
    
    if(OrderSymbol() == Symbol())
    {
      if(OrderType()==OP_BUY)
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdBuySL,OrdBuyTP,0,CLR_NONE);
      }

      if(OrderType()==OP_SELL) 
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdSellSL,OrdSellTP,0,CLR_NONE);
      }
    }
  }
  
  return(0);
}

**أبو أثير** · 15-12-2011, 03:29 PM

بارك الله فيك من اجمل المواضيع التعليمة

حبيت اشكرك وتسجيل حضور ومتابعة للموضوع المميز

**turkm** · 15-12-2011, 04:15 PM

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

**Ram22** · 15-12-2011, 11:36 PM

المشاركة الأصلية كتبت بواسطة ambmh01

أخي RAM22
هل يمكن أن تعلق على هذا الكود لحل التمرين في الصفحة 2 من الموضوع

كود:

//+------------------------------------------------------------------+
//|                                                    aaaaaaaaa.mq4 |
//|                                  Copyright © 2011, tahlile Corp. |
//|                                                tahlile-forex.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011, tahlile Corp."
#property link      "tahlile-forex.com"
extern int ma_period=20;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   MessageBox("بداية البحث","البحث");
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   MessageBox("نهاية البحث","النهاية");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
//  حساب n1 
double n1;
double n2;
n1= High[1]+1.3;
n2=Low[1]+Open[0]-0.02;
  if (n1>n2)
    {
    Alert("الشرط الاول تحقق");
    
    }
    else 
    {
    Alert("الشرط الاول لم يتحقق");
    }

 // مراقبة المتوسط الحسابي   
 
 
 double ma;
 ma=iMA(NULL,0,ma_period,0,MODE_SMA,PRICE_CLOSE,0);  
     if(ma>1.3)
     {
     MessageBox("المتوسط الحسابي أعلى من السعر الحاي","sma");
     }    
     else
     {
     MessageBox("المتوسط الحابي أدنى من العر","sma1");
     }
// مراقبة الوقت
if (Hour()>23 || Hour()<6)
MessageBox("الوقت غير مناسب لتجارة","trading time");        
   
//----
   return(0);
  }
//+------------------------------------------------------------------+

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

كود:

   if (Hour()>23 || Hour()<6){
MessageBox("الوقت غير مناسب لتجارة","trading time");  
return(0);
}

فأن الأكسبرت بمجرد ما يجد

كود:

return (0);

سيتوقف عن قرائة باقي الأكواد ويقرأ فقط الأكواد التي قبل

كود:

return (0);

المشاركة الأصلية كتبت بواسطة أبوجلال

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

كود:

#property show_inputs

extern bool     UseAverage = true;
extern int      OrderTP=100;
extern int      OrderSL=0;
extern double   OrderBuyTakeProfitPrice=0;
extern double   OrderBuyStopLossPrice=0;
extern double   OrderSellTakeProfitPrice=0;
extern double   OrderSellStopLossPrice=0;

int start()
{
   int x;
   string   OrdSymbol;
   int      OrdTotal;

   double   OrdBuyTotal;
   double   OrdBuyCount    = 0;
   double   OrdBuyAvareg;
   double   OrdBuyTP       = 0;
   double   OrdBuySL       = 0;

   double   OrdSellTotal;
   double   OrdSellCount   = 0;
   double   OrdSellAvareg;
   double   OrdSellTP      = 0;
   double   OrdSellSL      = 0;

   OrdTotal = OrdersTotal();
   
   if(UseAverage == true) 
   {
      for(x=OrdTotal-1 ; x>=0 ; x--)
      {
         OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
      
         if(OrderSymbol() == Symbol())
         {
           if(OrderType() == OP_BUY)
           {
              OrdBuyTotal = OrdBuyTotal + (OrderOpenPrice()*OrderLots());
              OrdBuyCount = OrdBuyCount + OrderLots();
           }
           else if(OrderType() == OP_SELL)
           {
              OrdSellTotal = OrdSellTotal + (OrderOpenPrice()*OrderLots());
              OrdSellCount = OrdSellCount + OrderLots();
           }
         }       
      }

      if(OrdBuyCount > 0)
      {
         OrdBuyAvareg = (OrdBuyTotal/OrdBuyCount);
     
         if(OrderTP!=0)
         OrdBuyTP = OrdBuyAvareg+(OrderTP*Point);
         else
         OrdBuyTP = 0;

         if(OrderSL!=0)
         OrdBuySL = OrdBuyAvareg-(OrderSL*Point);
         else
         OrdBuySL = 0;
      }
    
      if(OrdSellCount > 0)
      {
         OrdSellAvareg = (OrdSellTotal/OrdSellCount);
      
         if(OrderTP!=0)
         OrdSellTP = OrdSellAvareg-(OrderTP*Point);
         else
         OrdSellTP = 0;

         if(OrderSL!=0)
         OrdSellSL = OrdSellAvareg+(OrderSL*Point);
         else
         OrdSellSL = 0;
      }
   }
   else
   {
      OrdBuyTP    = OrderBuyTakeProfitPrice;
      OrdBuySL    = OrderBuyStopLossPrice;
      OrdSellTP   = OrderSellTakeProfitPrice;
      OrdSellSL   = OrderSellStopLossPrice;
   }
    
  // Modify Orders  
  for(x=OrdTotal-1 ; x>=0 ; x--)
  {
    OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
    
    if(OrderSymbol() == Symbol())
    {
      if(OrderType()==OP_BUY)
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdBuySL,OrdBuyTP,0,CLR_NONE);
      }

      if(OrderType()==OP_SELL) 
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdSellSL,OrdSellTP,0,CLR_NONE);
      }
    }
  }
  
  return(0);
}

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

كود:

  if(OrderType()==OP_BUY&&OrderLots()==ForOrderLot)

وتكتب اللوت الذي تريد من السكربت أن يتحقق منه بالبداية

كود:

  extern double ForOrderLot=0.01;

كود:


#property show_inputs
extern double ForOrderLot=0.01;
extern bool     UseAverage = true;
extern int      OrderTP=100;
extern int      OrderSL=0;
extern double   OrderBuyTakeProfitPrice=0;
extern double   OrderBuyStopLossPrice=0;
extern double   OrderSellTakeProfitPrice=0;
extern double   OrderSellStopLossPrice=0;

int start()
{
   int x;
   string   OrdSymbol;
   int      OrdTotal;

   double   OrdBuyTotal;
   double   OrdBuyCount    = 0;
   double   OrdBuyAvareg;
   double   OrdBuyTP       = 0;
   double   OrdBuySL       = 0;

   double   OrdSellTotal;
   double   OrdSellCount   = 0;
   double   OrdSellAvareg;
   double   OrdSellTP      = 0;
   double   OrdSellSL      = 0;

   OrdTotal = OrdersTotal();
   
   if(UseAverage == true) 
   {
      for(x=OrdTotal-1 ; x>=0 ; x--)
      {
         OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
      
         if(OrderSymbol() == Symbol())
         {
           if(OrderType() == OP_BUY)
           {
              OrdBuyTotal = OrdBuyTotal + (OrderOpenPrice()*OrderLots());
              OrdBuyCount = OrdBuyCount + OrderLots();
           }
           else if(OrderType() == OP_SELL)
           {
              OrdSellTotal = OrdSellTotal + (OrderOpenPrice()*OrderLots());
              OrdSellCount = OrdSellCount + OrderLots();
           }
         }       
      }

      if(OrdBuyCount > 0)
      {
         OrdBuyAvareg = (OrdBuyTotal/OrdBuyCount);
     
         if(OrderTP!=0)
         OrdBuyTP = OrdBuyAvareg+(OrderTP*Point);
         else
         OrdBuyTP = 0;

         if(OrderSL!=0)
         OrdBuySL = OrdBuyAvareg-(OrderSL*Point);
         else
         OrdBuySL = 0;
      }
    
      if(OrdSellCount > 0)
      {
         OrdSellAvareg = (OrdSellTotal/OrdSellCount);
      
         if(OrderTP!=0)
         OrdSellTP = OrdSellAvareg-(OrderTP*Point);
         else
         OrdSellTP = 0;

         if(OrderSL!=0)
         OrdSellSL = OrdSellAvareg+(OrderSL*Point);
         else
         OrdSellSL = 0;
      }
   }
   else
   {
      OrdBuyTP    = OrderBuyTakeProfitPrice;
      OrdBuySL    = OrderBuyStopLossPrice;
      OrdSellTP   = OrderSellTakeProfitPrice;
      OrdSellSL   = OrderSellStopLossPrice;
   }
    
  // Modify Orders  
  for(x=OrdTotal-1 ; x>=0 ; x--)
  {
    OrderSelect(x,SELECT_BY_POS,MODE_TRADES);
    
    if(OrderSymbol() == Symbol())
    {
      if(OrderType()==OP_BUY&&OrderLots()==ForOrderLot)
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdBuySL,OrdBuyTP,0,CLR_NONE);
      }

      if(OrderType()==OP_SELL&&OrderLots()==ForOrderLot) 
      {
        OrderModify(OrderTicket(),OrderOpenPrice(),OrdSellSL,OrdSellTP,0,CLR_NONE);
      }
    }
  }
  
  return(0);
}

المشاركة الأصلية كتبت بواسطة أبو أثير

بارك الله فيك من اجمل المواضيع التعليمة

حبيت اشكرك وتسجيل حضور ومتابعة للموضوع المميز

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

ماشاء الله موضوع تعليمي اسلوب سلس تماما والله احنا محظوظين بأستاذ مثل حضرتك
استمر بارك الله فيك

وأهم شئ التطبيق العملي كي تتمكنوا من عمل أي أكسبرت أن شاء الله.

**Elhadi_Bouazizi** · 15-12-2011, 11:43 PM

هل تقصد أن الكود سينفذ مرة واحدة فقط؟
كيف يمكن تصحيح ذلك

**Ram22** · 16-12-2011, 12:01 AM

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

يمكن للأكسبرت أو المؤشر أو السكربت أن يتصل بأكواد خارجية بلغة ++C ولغة MQL4 وهنا سأتكلم عن أتصاله بملفات بها أكواد بلغة MQL4

وسنجرب هذا المثال بأن نعمل هذا الكود ونضعه بمجلد libraries

كود:

 #property library

string Test()
{
string P="لقد تم الأتصال بالسكربت";
return(P);
}

ونسميه TestDLL ونعمل له Comile ونحوله لصيغة ex4
وبعد ذلك نعمل أسكربت ونكتب هذا الكود

كود:

 #property show_confirm

#import "TestDLL.ex4"
string Test();
#import

int start()
  {
  Alert(Test());
   return(0);
  }

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

**turkm** · 16-12-2011, 12:09 AM

المشاركة الأصلية كتبت بواسطة Ram22

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

يمكن للأكسبرت أو المؤشر أو السكربت أن يتصل بأكواد خارجية بلغة ++C ولغة MQL4 وهنا سأتكلم عن أتصاله بملفات بها أكواد بلغة MQL4

وسنجرب هذا المثال بأن نعمل هذا الكود ونضعه بمجلد libraries

كود:

 #property library

string Test()
{
string P="لقد تم الأتصال بالسكربت";
return(P);
}

ونسميه TestDLL ونعمل له Comile ونحوله لصيغة ex4
وبعد ذلك نعمل أسكربت ونكتب هذا الكود

كود:

 #property show_confirm

#import "TestDLL.ex4"
string Test();
#import

int start()
  {
  Alert(Test());
   return(0);
  }

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

اخي الكريم هل يمكن ان يكون الكود الخارجي عبارة عن مؤشر كامل ولو كان الجواب بنعم فهل هناك اختلاف بين استدعاء هذا الكود بهذه الطريقة وداله الـ iCustom

**Ram22** · 16-12-2011, 12:21 AM

المشاركة الأصلية كتبت بواسطة turkm

اخي الكريم هل يمكن ان يكون الكود الخارجي عبارة عن مؤشر كامل ولو كان الجواب بنعم فهل هناك اختلاف بين استدعاء هذا الكود بهذه الطريقة وداله الـ iCustom

نعم يمكن بشرط أن تعدل علي المؤشر وأن يكون بالشروط الموجودة بالمشاركة السابقة وتستطيع أن تضع أكثر من مؤشر بملف واحد ولكنك لن تضع المؤشر بمكان المؤشرات طبعا وسيكون ملف بمكان ملفات dll

**Ram22** · 16-12-2011, 12:25 AM

المشاركة الأصلية كتبت بواسطة ambmh01

هل تقصد أن الكود سينفذ مرة واحدة فقط؟
كيف يمكن تصحيح ذلك

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

**Ram22** · 16-12-2011, 12:43 AM

يعني مثلا كود المؤشر الذي سبق أن وضعه turkm وعدلته ممكن يكون ملف موضوع بمكان ملفات DLL بصيغة ex4 هكذا
وأسمه مثلا TestDLL

كود:

 #property library


int NumBars = 5;
double Array1[];
double Array2[];
double Array3[];
double Array4[]; 
 
double CMA(int Type,int bar){
  double G=0;
  double RG1;
   double RG2;
   double RG3;
   string Name1;
   string Name2;
   string SS1 = " ********** TIMING    ";
   int SS2 = WindowFind(SS1);
 ArrayResize(Array1,Bars);
 ArrayResize(Array2,Bars);
 ArrayResize(Array3,Bars);
 ArrayResize(Array4,Bars);
   for (int  j = 0; j < Bars;  j++) {
      RG1 = 0;
      for (int GT1 =  j; GT1 < NumBars +  j; GT1++) RG1 += (High[GT1] + Low[GT1]) / 2.0;
      RG2 = RG1 / NumBars;
      RG1 = 0;
      for (GT1 =  j; GT1 < NumBars +  j; GT1++) RG1 += High[GT1] - Low[GT1];
      RG3 = 0.2 * (RG1 / NumBars);
      Array1[ j] = (High[ j] - RG2) / RG3;
      Array4[ j] = (Low[ j] - RG2) / RG3;
      Array2[ j] = (Open[ j] - RG2) / RG3;
      Array3[ j] = (Close[ j] - RG2) / RG3;
   }
switch(Type)
{
case 1:
{
G=Array1[bar];
break;
}
case 2:
{
G=Array2[bar];
break;
}
case 3:
{
G=Array3[bar];
break;
}
case 4:
{
G=Array4[bar];
break;
}
}
return(G);
}

ونناديه مثلا بهذا السكربت ونكتب نفس القيم السابقة التي قلتها

كود:

 #property show_confirm

#import "TestDLL.ex4"
double CMA(int Type,int bar);
#import

int start()
  {
  Alert(CMA(1,0));
   return(0);
  }

**f.u.a.d1** · 16-12-2011, 06:22 AM

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

**Ram22** · 16-12-2011, 09:16 AM

ماذا نعمل لو وجدنا هذا الخطأ يظهر عندما نعمل كمبايل للأكسبرت أو السكربت؟

كود:

  import  double  quotes needed

**Ram22** · 16-12-2011, 09:18 AM

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

**Ram22** · 16-12-2011, 09:22 AM

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

الموضوع: أصنع أكسبرتك بنفسك

أدوات الموضوع

الاوسمة لهذا الموضوع

عروض شركات الفوركس