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

[turkm]

أستاذنا العزيز سمير على حد علمي فان عمل مكتبة DLL لايقدم ميزات إضافية أبدأ بل على العكس سيكون هناك بطء في الاكسبيرت او المؤشر المرتبط مع إحدى هذه المكتبات

الميزة الوحيدة هي لحماية الشيفرة من السرقة أو التعديل + الوصول لبعض خصائص النظام التي لايمكن لمؤشر او إكسبيرت الوصول لها

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

[imaddine1986]

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

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

وداله لمعرفة حجم لوت آخر صفقه

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

ثم ستضع في شروط فتح الصفقه

 if(LastOrderProfit()<0)NewLot=LastOrderLots9)*2; 
  

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

[MR.dollar]

شكرا استاذ اسامة بارك الله فيك وجعل هذا العمل في ميزان حسناتك

بالتوفيق إن شاء الله

[MR.dollar]

 
#include <stdlib.mqh>
#include <WinUser32.mqh>

// exported variables
extern double SellLots11 = 0.01;
extern int SellStoploss11 = 0;
extern int SellTakeprofit11 = 40;
extern double BuyLots13 = 0.01;
extern int BuyStoploss13 = 0;
extern int BuyTakeprofit13 = 30;
extern double SellLots15 = 0.01;
extern int SellStoploss15 = 0;
extern int SellTakeprofit15 = 20;


// local variables
double PipValue=1;    // this variable is here to support 5-digit brokers
bool Terminated = false;
string LF = "\n";  // use this in custom or utility blocks where you need line feeds
int NDigits = 4;   // used mostly for NormalizeDouble in Flex type blocks
int ObjCount = 0;  // count of all objects created on the chart, allows creation of objects with unique names
int current = 0;



int init()
{
    NDigits = Digits;
    
    if (false) ObjectsDeleteAll();      // clear the chart
    
    
    Comment("");    // clear the chart
}

// Expert start
int start()
{
    if (Bars < 10)
    {
        Comment("Not enough bars");
        return (0);
    }
    if (Terminated == true)
    {
        Comment("EA Terminated.");
        return (0);
    }
    
    OnEveryTick1();
    
}

void OnEveryTick1()
{
    if (true == false && false) PipValue = 10;
    if (true && (NDigits == 3 || NDigits == 5)) PipValue = 10;
    
    IfOrderDoesNotExist10();
    
}

void IfOrderDoesNotExist10()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_SELL && OrderSymbol() == Symbol() && OrderMagicNumber() == 1)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists == false)
    {
        SellOrder11();
        
    }
}

void SellOrder11()
{
    double SL = Bid + SellStoploss11*PipValue*Point;
    if (SellStoploss11 == 0) SL = 0;
    double TP = Bid - SellTakeprofit11*PipValue*Point;
    if (SellTakeprofit11 == 0) TP = 0;
    int ticket = -1;
    if (true)
    ticket = OrderSend(Symbol(), OP_SELL, SellLots11, Bid, 7, 0, 0, "My Expert", 1, 0, Red);
    else
    ticket = OrderSend(Symbol(), OP_SELL, SellLots11, Bid, 7, SL, TP, "My Expert", 1, 0, Red);
    if (ticket > -1)
    {
        if (true)
        {
            OrderSelect(ticket, SELECT_BY_TICKET);
            bool ret = OrderModify(OrderTicket(), OrderOpenPrice(), SL, TP, 0, Red);
            if (ret == false)
            Print("OrderModify() error - ", ErrorDescription(GetLastError()));
        }
        IfOrderDoesNotExist12();
        
    }
    else
    {
        Print("OrderSend() error - ", ErrorDescription(GetLastError()));
    }
}


11111111111111111vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv


void IfOrderDoesNotExist12()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_BUY && OrderSymbol() == Symbol() && OrderMagicNumber() == 2)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists == false)
    {
        BuyOrder13();
        
    }
}

void BuyOrder13()
{
    double SL = Ask - BuyStoploss13*PipValue*Point;
    if (BuyStoploss13 == 0) SL = 0;
    double TP = Ask + BuyTakeprofit13*PipValue*Point;
    if (BuyTakeprofit13 == 0) TP = 0;
    int ticket = -1;
    if (true)
    ticket = OrderSend(Symbol(), OP_BUY, BuyLots13, Ask, 4, 0, 0, "My Expert", 2, 0, Blue);
    else
    ticket = OrderSend(Symbol(), OP_BUY, BuyLots13, Ask, 4, SL, TP, "My Expert", 2, 0, Blue);
    if (ticket > -1)
    {
        if (true)
        {
            OrderSelect(ticket, SELECT_BY_TICKET);
            bool ret = OrderModify(OrderTicket(), OrderOpenPrice(), SL, TP, 0, Blue);
            if (ret == false)
            Print("OrderModify() error - ", ErrorDescription(GetLastError()));
        }
        IfOrderDoesNotExist14();
        
    }
    else
    {
        Print("OrderSend() error - ", ErrorDescription(GetLastError()));
    }
}



2222222222222222222vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv



void IfOrderDoesNotExist14()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_SELL && OrderSymbol() == Symbol() && OrderMagicNumber() == 3)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists == false)
    {
        SellOrder15();
        
    }
}

void SellOrder15()
{
    double SL = Bid + SellStoploss15*PipValue*Point;
    if (SellStoploss15 == 0) SL = 0;
    double TP = Bid - SellTakeprofit15*PipValue*Point;
    if (SellTakeprofit15 == 0) TP = 0;
    int ticket = -1;
    if (true)
    ticket = OrderSend(Symbol(), OP_SELL, SellLots15, Bid, 4, 0, 0, "My Expert", 3, 0, Red);
    else
    ticket = OrderSend(Symbol(), OP_SELL, SellLots15, Bid, 4, SL, TP, "My Expert", 3, 0, Red);
    if (ticket > -1)
    {
        if (true)
        {
            OrderSelect(ticket, SELECT_BY_TICKET);
            bool ret = OrderModify(OrderTicket(), OrderOpenPrice(), SL, TP, 0, Red);
            if (ret == false)
            Print("OrderModify() error - ", ErrorDescription(GetLastError()));
        }
            
    }
    else
    {
        Print("OrderSend() error - ", ErrorDescription(GetLastError()));
    }
}



int deinit()
{
    if (false) ObjectsDeleteAll(); 
  

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

ارجو مساعدتك اخي الكريم جزاك الله خير
في كتابة الكود اللازم لكي يقوم بفتح صفقة معاكسة اذا ارتد السعر بعدد من النقاط وماكن وضعه في الاكسبرت بحيث( اقدر اغير عدد النقاط زي ما انا عاوز )
انا سايب علامات
1111vvvvvv
2222vvvvvvv
اماكن وضع الكود
انا جديد في برمجة الاكسبرتات واستعنت ببرنامج Forex EA Generatorفي الاكسبرت ده

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

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

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

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

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

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

 if(LastOrderType()==OP_SELL&&Ask-LastOrderPrice()>Step*Point)
{
    double SL = Ask - BuyStoploss13*PipValue*Point;
    if (BuyStoploss13 == 0) SL = 0;
    double TP = Ask + BuyTakeprofit13*PipValue*Point;
    if (BuyTakeprofit13 == 0) TP = 0;

  OrderSend(Symbol(), OP_BUY, BuyLots13, Ask, 4, SL, TP, "My Expert", 2, 0, Blue);
  
}
if(LastOrderType()==OP_BUY&&LastOrderPrice()-Bid>Step*Point)
{
   double SL = Bid + SellStoploss11*PipValue*Point;
    if (SellStoploss11 == 0) SL = 0;
    double TP = Bid - SellTakeprofit11*PipValue*Point;
    if (SellTakeprofit11 == 0) TP = 0;
     OrderSend(Symbol(), OP_SELL, SellLots11, Bid, 7, 0, 0, "My Expert", 1, 0, Red);
   
} 
  

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

[bodisaudi]

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

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

[MR.dollar]

الروابط التي أرفقتها غير مشروح فيها فائدة كل مكتبه والدوال الموجوده فيها
يوجد مكتبه إسمها Mail.dll
يوجد في الياهو خدمة وشرح لكيفية إستقبال الإميل وسحب أي إيميل جديد بإستخدام برنامج وهو خاص لمطورين البرامج
http://developer.yahoo.com/mail/

لم أجد أي طرق جديده أخرى غيرك ذلك

[turkm]

السلام عليكم أستاذنا الغالي أسامة وكل الأخوة الاكارم

سؤالي هل يوجد أمر لتحويل الرقم العشري الى ثنائي في الـ mql وإذا لم يوجد فهل هناك دالة لعمل ذلك على حد علمك لأنني بحثت ولم أجد

أستاذنا الغالي يبدو انك لم تنتبه لسؤالي الذي في الإقتباس

[imaddine1986]

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

استاذ اسامة انا عملت دالت المضاعفات على هذا الشكل

 string last()
{
  
  for(int i=OrdersHistoryTotal();i>=0;i--)
    {
    OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
      if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
       {
         
         
         
         if(OrderType()==OP_BUY   && OrderClosePrice()>=OrderOpenPrice()  ) return("profit");
         if(OrderType()==OP_BUY   && OrderClosePrice()<=OrderOpenPrice()  ) return("loss");
       
  
       
         if(OrderType()==OP_SELL  && OrderClosePrice()<=OrderOpenPrice()&& T!=Time[0]) return("profit");
         if(OrderType()==OP_SELL  && OrderClosePrice()>=OrderOpenPrice()&& T!=Time[0]) return("loss");
        
       }
    
    }
 
return("none");
} 
  

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

 if (last()=="loss"){Lots =LastOrderLots()*2;}
  else 
  if(last()=="profit" || (last()!="profit" && last()!="loss")  ) {Lots=0.1;} 
  

بقيت المشكلة في تحديد عدد المضاعفات مثلا
التوقف عند المضاعف 5 وبالبدا من جديد

[Jmeel]

استاذ اسامة انا عملت دالت المضاعفات على هذا الشكل

 string last()
{
  
  for(int i=OrdersHistoryTotal();i>=0;i--)
    {
    OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
      if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
       {
         
         
         
         if(OrderType()==OP_BUY   && OrderClosePrice()>=OrderOpenPrice()  ) return("profit");
         if(OrderType()==OP_BUY   && OrderClosePrice()<=OrderOpenPrice()  ) return("loss");
       
  
       
         if(OrderType()==OP_SELL  && OrderClosePrice()<=OrderOpenPrice()&& T!=Time[0]) return("profit");
         if(OrderType()==OP_SELL  && OrderClosePrice()>=OrderOpenPrice()&& T!=Time[0]) return("loss");
        
       }
    
    }
 
return("none");
} 
  

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

 if (last()=="loss"){Lots =LastOrderLots()*2;}
  else 
  if(last()=="profit" || (last()!="profit" && last()!="loss")  ) {Lots=0.1;} 
  

بقيت المشكلة في تحديد عدد المضاعفات مثلا
التوقف عند المضاعف 5 وبالبدا من جديد

تضيف في المتغيرات

 extern double MaxLots=12.8; 
  

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

ثم تضيف الشرط

     if (NewLots >= MaxLots){NewLots = FirstLots;} 
  

سيعود للعمل بقيمة العقد الأساسي .

[MR.dollar]

أستاذنا الغالي يبدو انك لم تنتبه لسؤالي الذي في الإقتباس

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

  int BinaryNumber(int Number)
   {
    int Reminder,Binary;
    int i=1;
    while(Number>0)
    {
        Reminder=Number%2;
        Binary=Binary + (i*Reminder);
        Number=Number/2;
        i=i*10;
    }
   return(Binary);
  } 
  

[turkm]

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

  int BinaryNumber(int Number)
   {
    int Reminder,Binary;
    int i=1;
    while(Number>0)
    {
        Reminder=Number%2;
        Binary=Binary + (i*Reminder);
        Number=Number/2;
        i=i*10;
    }
   return(Binary);
  } 
  

بارك الله فيك أستاذنا الكبير أسامة

[turkm]

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

  int BinaryNumber(int Number)
   {
    int Reminder,Binary;
    int i=1;
    while(Number>0)
    {
        Reminder=Number%2;
        Binary=Binary + (i*Reminder);
        Number=Number/2;
        i=i*10;
    }
   return(Binary);
  } 
  

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

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

أستاذنا العزيز سمير على حد علمي فان عمل مكتبة DLL لايقدم ميزات إضافية أبدأ بل على العكس سيكون هناك بطء في الاكسبيرت او المؤشر المرتبط مع إحدى هذه المكتبات

الميزة الوحيدة هي لحماية الشيفرة من السرقة أو التعديل + الوصول لبعض خصائص النظام التي لايمكن لمؤشر او إكسبيرت الوصول لها

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

السلام عليكم اخى الكريم
وشكرا على الافادة
تحياتى لك

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

الروابط التي أرفقتها غير مشروح فيها فائدة كل مكتبه والدوال الموجوده فيها
يوجد مكتبه إسمها Mail.dll
يوجد في الياهو خدمة وشرح لكيفية إستقبال الإميل وسحب أي إيميل جديد بإستخدام برنامج وهو خاص لمطورين البرامج
http://developer.yahoo.com/mail/

لم أجد أي طرق جديده أخرى غيرك ذلك

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

[imaddine1986]

تضيف في المتغيرات

 extern double MaxLots=12.8; 
  

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

ثم تضيف الشرط

     if (NewLots >= MaxLots){NewLots = FirstLots;} 
  

سيعود للعمل بقيمة العقد الأساسي .

بارك الله فيك استاذي الغالي