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

اقتباس:

---

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

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

---

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

السلام عليكم يا استاذنا الكريم
من فضلك هل يمكنك مسعدتي لاتمام الاكسبرت الذين انا فيه اريد ان اضيف له هذه النقاط:
1-ان يقوم بغلق الصفقات الرابحة من الساعة 20.00 يوم الجمعةويعود للعمل يوم الاثنين.
2-ان تكون الصفقات المفتوحة لا تفوق 2صفقة .
3-ان اقوم بمعادلة لكي طعطيني سعر الاستوب لوز للصفقة المفتوحة.
واشكرك استاذنا الغالي على ردودك

اقتباس:

---

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

ممكن اضافة mm في السكربت في المشاركه السابقه للتعلم بلون مختلف
نظرا لوجود اخطاء معي

---

يمكنك إستخدام هذه الداله لتحديد حجم اللوت

كود PHP:

---

double LotManage()
  {
      double lot = MathCeil(AccountFreeMargin() *  Risk / 1000) / 100; 
      
      if(lot<MarketInfo(Symbol(),MODE_MINLOT))lot=MarketInfo(Symbol(),MODE_MINLOT);
      if(lot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
      
       
       return (NormalizeDouble(lot,Lot_Decimal));
  } 


---

قم بتعريفها خارج الداله start ثم إستخدم الداله قبل الأمر OrderSend لتحديد حجم اللوت

مستر دولار هل يوجد شئ او كتاب يعلم البرمجة قد اتعلم واساعدك فى هذا القسم

السلام عليكم يا استاذنا الكريم
من فضلك هل يمكنك مسعدتي لاتمام الاكسبرت الذين انا فيه اريد ان اضيف له هذه النقاط:
1-ان يقوم بغلق الصفقات الرابحة من الساعة 20.00 يوم الجمعةويعود للعمل يوم الاثنين.
2-ان تكون الصفقات المفتوحة لا تفوق 2صفقة .
3-ان اقوم بمعادلة لكي طعطيني سعر الاستوب لوز للصفقة المفتوحة.
واشكرك استاذنا الغالي على ردودك

اقتباس:

---

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

السلام عليكم ورحمة الله وبركاته
ارجو تصحيح الداله لحساب التراجع فى الاكيوتى

كود:

---

void HiddenTrailingEquity()
{
 double MinEquity=0;
 if(OrdersTotal()==0||MinEquity==0)MinEquity=AccountEquity();
 
  double Profit=AccountEquity()-MinEquity;
 
  if(Profit>=TrailingEquity&&(GlobalVariableGet("TS Profit")<Profit-TrailingEquity||GlobalVariableGet("TS Profit")==0))
  {
  GlobalVariableSet("TS Profit",Profit-TrailingEquity); 
  }
  if(Profit<=GlobalVariableGet("TS Profit")&&GlobalVariableGet("TS Profit")!=0)
  {
  for(int i=OrdersTotal()-1;i>=0;i--)
  {
    bool select=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(OrderSymbol()==Symbol())
    {
    if(OrderType()==OP_BUY)
    {
    bool closeB=OrderClose(OrderTicket(),OrderLots(),Bid,3);
    }
    if(OrderType()==OP_SELL)
    {
    bool closeS=OrderClose(OrderTicket(),OrderLots(),Ask,3);
    }
    }
  }
  GlobalVariableDel("TS Profit");
  MinEquity=AccountEquity();
 
 
  }
}

---

---

وعليكم السلام ورحمة الله وبركاته
هل تقصد تريد داله مشابهه لكن تحفظ قيمة أقصى تراجع في الإكوتي ؟

اقتباس:

---

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

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

---

يجب أن تضع في الإعتبار فرق الإسبريد بين الأمرين
مثلا لو سعر أمر البيع المعلق هو 1.2589 وكان الإسبريد 3 نقاط فسوف تجعل سعر أمر الشراء المعلق هو 1.2592

اقتباس:

---

المشاركة الأصلية كتبت بواسطة MR.dollar

وعليكم السلام ورحمة الله وبركاته
هل تقصد تريد داله مشابهه لكن تحفظ قيمة أقصى تراجع في الإكوتي ؟

---

بارك الله فيك استاذنا العزيز
نعم هذا ما اريده وللتوضيح اكثر
الاكيوتى 1000 ووضعت التراجع 100 مثلا
فى البدايه يحسب الاكيوتى 1000
اذا قل عن ذلك يستمر بحفظ القيمه كما هى 1000
واذا زاد ووصل مثلا الى 1250
اريده اذا تراجع الى 1150 وهى 1250 اعلى قيمه - 100 التراجع يغلق كل الصفقات
او بطريقه اخرى المخزن 1000 والتراجع 100
اذا صعد ل 1250 ثم هبط الى 1100 يغلق كل الصفقات (ايهما يصح فى الطريقتين)
بنفس فكرة التراجع فى الربح الذى قمت حضرتك بعمله فى داله سابقه
والتى قمت بالاستعانه بفكرتها فى هذه الداله
وهذه هى الداله الاصليه لك

كود PHP:

---

 void HiddenTrailingBalancePercent()
{
  double ProfitPercent=AccountProfit();
  
  if(ProfitPercent>=StartTrailingPercent&&(GlobalVariableGet("TS Percent")<ProfitPercent-StartTrailingPercent||GlobalVariableGet("TS Percent")==0))
  {
   GlobalVariableSet("TS Percent",ProfitPercent-StartTrailingPercent);   
  }
  
  if(ProfitPercent<=GlobalVariableGet("TS Percent")&&GlobalVariableGet("TS Percent")!=0)
  {
   for(int i=OrdersTotal()-1;i>=0;i--)
   {
    bool select=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(OrderSymbol()==Symbol())
    {
     if(OrderType()==OP_BUY)
     {
      
     bool closeB=OrderClose(OrderTicket(),OrderLots(),Bid,3);
      
     }
     if(OrderType()==OP_SELL)
     {
    bool closeS=OrderClose(OrderTicket(),OrderLots(),Ask,3);
     }
    }
   }
   GlobalVariableDel("TS Percent");
  } 
} 


---

اقتباس:

---

المشاركة الأصلية كتبت بواسطة MR.dollar

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

---

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

السلام عليكم
اريد دالة التريلنج ستوب لتظهر على الشارت على هيئة خطوط

اقتباس:

---

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

السلام عليكم
اريد دالة التريلنج ستوب لتظهر على الشارت على هيئة خطوط متصلة

---

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

اقتباس:

---

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

السلام عليكم
اريد دالة التريلنج ستوب لتظهر على الشارت على هيئة خطوط

---

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

كود PHP:

---

void MoveTrailingStop()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-TrailingStop*point,Digits))||(OrderStopLoss()==0))
               {
                  bool modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,Digits),OrderTakeProfit(),0,Blue);
                  CreateLine("TS"+OrderTicket(),NormalizeDouble(Bid-TrailingStop*point,Digits));
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+TrailingStop*point,Digits)))||(OrderStopLoss()==0))
               {
                   modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,Digits),OrderTakeProfit(),0,Red);
                   CreateLine("TS"+OrderTicket(),NormalizeDouble(Ask+TrailingStop*point,Digits));
               }
            }
         }
      }
   }
}

void CreateLine(string name,double price)
{
 if(ObjectFind(name)==-1)
 {
  ObjectCreate(name,OBJ_HLINE,0,0,price);
  ObjectSet(name,OBJPROP_COLOR,Red);
 }
 else if(ObjectGet(name,OBJPROP_PRICE1)!=price)
 {
  ObjectSet(name,OBJPROP_PRICE1,price);
 }
} 


---

اقتباس:

---

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

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

---

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

كود PHP:

---

void MoveTrailingStop()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-TrailingStop*point,Digits))||(OrderStopLoss()==0))
               {
                  bool modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,Digits),OrderTakeProfit(),0,Blue);
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+TrailingStop*point,Digits)))||(OrderStopLoss()==0))
               {
                   modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,Digits),OrderTakeProfit(),0,Red);
               }
            }
         }
      }
   }
}
void MoveBreakEven()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(BreakEven>0)
            {
               if(NormalizeDouble((Bid-OrderOpenPrice()),Digits)>BreakEven*point)
               {
                  if(OrderStopLoss()==0||OrderStopLoss()<OrderOpenPrice()+BreakEvenPips*point)
                  {
                
                    bool modify= OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+BreakEvenPips*point,Digits),OrderTakeProfit(),0,Blue);
                  }
               }
            }
         }
         else
         {
            if(BreakEven>0)
            {
               if(NormalizeDouble((OrderOpenPrice()-Ask),Digits)>BreakEven*point)
               {
                  if(OrderStopLoss()==0||OrderStopLoss()>OrderOpenPrice()-BreakEvenPips*point)
                  {
                    
                     modify= OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-BreakEvenPips*point,Digits),OrderTakeProfit(),0,Red);
                  }
               }
            }
         }
      }
   }
} 


---

اقتباس:

---

المشاركة الأصلية كتبت بواسطة MR.dollar

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

كود PHP:

---

void MoveTrailingStop()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-TrailingStop*point,Digits))||(OrderStopLoss()==0))
               {
                  bool modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,Digits),OrderTakeProfit(),0,Blue);
                  CreateLine("TS"+OrderTicket(),NormalizeDouble(Bid-TrailingStop*point,Digits));
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+TrailingStop*point,Digits)))||(OrderStopLoss()==0))
               {
                   modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,Digits),OrderTakeProfit(),0,Red);
                   CreateLine("TS"+OrderTicket(),NormalizeDouble(Ask+TrailingStop*point,Digits));
               }
            }
         }
      }
   }
}

void CreateLine(string name,double price)
{
 if(ObjectFind(name)==-1)
 {
  ObjectCreate(name,OBJ_HLINE,0,0,price);
  ObjectSet(name,OBJPROP_COLOR,Red);
 }
 else if(ObjectGet(name,OBJPROP_PRICE1)!=price)
 {
  ObjectSet(name,OBJPROP_PRICE1,price);
 }
} 


---

---

اخي اقصد دالة مؤشر هاي لو مثل السوبر ترند ولاكن التريلنج يعمل مع كل شمعة ويحتفظ بالمسافة مثل الصورة وعند الكسر تظهر الاشارة العكسية والبرويد يغير المسافة فقط (السوبر ترند لا يعتمد على التريلنج لنه يقوم بعمل ازاحة لعدد من الشموع ومختلف عن الفكرة)
الملف المرفق 464467

اقتباس:

---

المشاركة الأصلية كتبت بواسطة MR.dollar

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

كود PHP:

---

void MoveTrailingStop()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(TrailingStop>0&&NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-TrailingStop*point,Digits))||(OrderStopLoss()==0))
               {
                  bool modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*point,Digits),OrderTakeProfit(),0,Blue);
               }
            }
         }
         else 
         {
            if(TrailingStop>0&&NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-TrailingStop*point,Digits))  
            {                 
               if((NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+TrailingStop*point,Digits)))||(OrderStopLoss()==0))
               {
                   modify=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*point,Digits),OrderTakeProfit(),0,Red);
               }
            }
         }
      }
   }
}
void MoveBreakEven()
{
   for(int cnt=0;cnt<OrdersTotal();cnt++)
   {
      bool select=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
      if(OrderType()<=OP_SELL&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
      {
         if(OrderType()==OP_BUY)
         {
            if(BreakEven>0)
            {
               if(NormalizeDouble((Bid-OrderOpenPrice()),Digits)>BreakEven*point)
               {
                  if(OrderStopLoss()==0||OrderStopLoss()<OrderOpenPrice()+BreakEvenPips*point)
                  {
                
                    bool modify= OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+BreakEvenPips*point,Digits),OrderTakeProfit(),0,Blue);
                  }
               }
            }
         }
         else
         {
            if(BreakEven>0)
            {
               if(NormalizeDouble((OrderOpenPrice()-Ask),Digits)>BreakEven*point)
               {
                  if(OrderStopLoss()==0||OrderStopLoss()>OrderOpenPrice()-BreakEvenPips*point)
                  {
                    
                     modify= OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-BreakEvenPips*point,Digits),OrderTakeProfit(),0,Red);
                  }
               }
            }
         }
      }
   }
} 


---

---

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