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

**فيلسوف البادية** · 04-10-2017, 03:05 PM

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

السلام عليكم اخي فيلسوف البادية

تفضل الكود اسفله

كود PHP:

     if(ObjectFind("LTR_") == -1)
     Creat_Label() ;
    
    if(ObjectDescription("LTR_") == "BUY"){
    BuyToday = TRUE ;
    Comment("Buy ON ......");
    }
    else if(ObjectDescription("LTR_") == "SELL"){
    SellToday = TRUE ;
    Comment("Sell ON ......");
    }
    else{
    SellToday = FALSE ;
    BuyToday = FALSE ;
    Comment("TRADE OFF ......");
    }

ثم دالة انشاء الليبل

كود PHP:

  
   void Creat_Label(){
        
         ObjectCreate("LTR",OBJ_EDIT,0,0,0); 
         ObjectSet("LTR",OBJPROP_CORNER,1);
         ObjectSet("LTR",OBJPROP_XDISTANCE,80);
         ObjectSet("LTR",OBJPROP_YDISTANCE,50);
         ObjectSetText("LTR","ON",8,0,Yellow);
     }

ممتاز ولكن هناك حل افضل
انت تبي تسمح بالشراء-تبي تسمح بالبيع - تبي تسمح بالبيع والشراء مع بعض - ورابعا ترفض البيع والشراءمعا
وعندك متغيرين SellToday BuyToday

وهدفك: اتدخل لايقاف عمليات البيع او الشراء بشكل يدوي في ظروف يصعب برمجتها

**فيلسوف البادية** · 04-10-2017, 03:07 PM

الافضل اربعة اشياء على التشارت اي واحد تضغطه هو خيارك

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

**ali_shadi** · 04-10-2017, 03:22 PM

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

الافضل اربعة اشياء على التشارت اي واحد تضغطه هو خيارك

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

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

تحياتي لك

**فيلسوف البادية** · 04-10-2017, 03:41 PM

كود PHP:

 string   ALLOW_BUY_or_SELL="NONE";

bool     SellToday   = FALSE ; 

bool     BuyToday    = FALSE ;

string sparam1;

 
void Creat_Label(string name, int x, int y, color clr)

{

   ObjectCreate(name,OBJ_LABEL,0,0,0); 

   ObjectSet(name,OBJPROP_CORNER,0);

   ObjectSet(name,OBJPROP_XDISTANCE,x);

   ObjectSet(name,OBJPROP_YDISTANCE,y);

   ObjectSetText(name,CharToStr(110),13,"Wingdings",clr);

   

   ObjectCreate("sparam1",OBJ_LABEL,0,0,0); 

   ObjectSet("sparam1",OBJPROP_CORNER,0);

   ObjectSet("sparam1",OBJPROP_XDISTANCE,15);

   ObjectSet("sparam1",OBJPROP_YDISTANCE,40);

   ObjectSetText("sparam1",sparam1,12,"Times New Roman",clrWhite);

}  

//+------------------------------------------------------------------+

 
int OnInit()

  {

//--- create timer

   EventSetTimer(1);

      

//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

//--- destroy timer

   EventKillTimer();

      

  }

//+------------------------------------------------------------------+

//| Timer function                                                   |

//+------------------------------------------------------------------+

void OnTimer()

  {

   if(ALLOW_BUY_or_SELL=="NONE")  color clr=clrRed; else clr=clrOrange;

   Creat_Label("NONE", 15, 20, clr);

   

   if(ALLOW_BUY_or_SELL=="ALLOW_BUY_ONLY")   clr=clrRed; else clr=clrOrange;

   Creat_Label("ALLOW_BUY_ONLY", 35, 20, clr);

   

   if(ALLOW_BUY_or_SELL=="ALLOW_SELL_ONLY")   clr=clrRed; else clr=clrOrange;

   Creat_Label("ALLOW_SELL_ONLY", 55, 20, clr);

   

   if(ALLOW_BUY_or_SELL=="ALLOW_BOTH_BUY_and_SELL")   clr=clrRed; else clr=clrOrange;

   Creat_Label("ALLOW_BOTH_BUY_and_SELL", 75, 20, clr);

   

   

 
  }

//+------------------------------------------------------------------+

//| ChartEvent function                                              |

//+------------------------------------------------------------------+

void OnChartEvent(const int id, const long &lparam, const double &dparam,  const string &sparam)

{   

   if(id==CHARTEVENT_OBJECT_CLICK)

   {

      sparam1=sparam;

      if(sparam=="NONE")

      {

         ALLOW_BUY_or_SELL="NONE";                    SellToday   = FALSE ;      BuyToday    = FALSE ;

      }

      if(sparam=="ALLOW_BUY_ONLY")

      {

         ALLOW_BUY_or_SELL="ALLOW_BUY_ONLY";          SellToday   = TRUE ;      BuyToday    = FALSE ;

      }

      if(sparam=="ALLOW_SELL_ONLY")

      {

         ALLOW_BUY_or_SELL="ALLOW_SELL_ONLY";         SellToday   = FALSE ;      BuyToday    = TRUE ;

      }

      if(sparam=="ALLOW_BOTH_BUY_and_SELL")

      {

         ALLOW_BUY_or_SELL="ALLOW_BOTH_BUY_and_SELL"; SellToday   = TRUE ;      BuyToday    = TRUE ;

      }

   }

}

**ابوعبود** · 04-10-2017, 10:55 PM

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

**ali_shadi** · 05-10-2017, 12:53 AM

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

كود PHP:

 string   ALLOW_BUY_or_SELL="NONE";
bool     SellToday   = FALSE ; 
bool     BuyToday    = FALSE ;
string sparam1;

void Creat_Label(string name, int x, int y, color clr)
{
   ObjectCreate(name,OBJ_LABEL,0,0,0); 
   ObjectSet(name,OBJPROP_CORNER,0);
   ObjectSet(name,OBJPROP_XDISTANCE,x);
   ObjectSet(name,OBJPROP_YDISTANCE,y);
   ObjectSetText(name,CharToStr(110),13,"Wingdings",clr);
   
   ObjectCreate("sparam1",OBJ_LABEL,0,0,0); 
   ObjectSet("sparam1",OBJPROP_CORNER,0);
   ObjectSet("sparam1",OBJPROP_XDISTANCE,15);
   ObjectSet("sparam1",OBJPROP_YDISTANCE,40);
   ObjectSetText("sparam1",sparam1,12,"Times New Roman",clrWhite);
}  
//+------------------------------------------------------------------+

int OnInit()
  {
//--- create timer
   EventSetTimer(1);
      
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//--- destroy timer
   EventKillTimer();
      
  }
//+------------------------------------------------------------------+
//| Timer function                                                   |
//+------------------------------------------------------------------+
void OnTimer()
  {
   if(ALLOW_BUY_or_SELL=="NONE")  color clr=clrRed; else clr=clrOrange;
   Creat_Label("NONE", 15, 20, clr);
   
   if(ALLOW_BUY_or_SELL=="ALLOW_BUY_ONLY")   clr=clrRed; else clr=clrOrange;
   Creat_Label("ALLOW_BUY_ONLY", 35, 20, clr);
   
   if(ALLOW_BUY_or_SELL=="ALLOW_SELL_ONLY")   clr=clrRed; else clr=clrOrange;
   Creat_Label("ALLOW_SELL_ONLY", 55, 20, clr);
   
   if(ALLOW_BUY_or_SELL=="ALLOW_BOTH_BUY_and_SELL")   clr=clrRed; else clr=clrOrange;
   Creat_Label("ALLOW_BOTH_BUY_and_SELL", 75, 20, clr);
   
   

  }
//+------------------------------------------------------------------+
//| ChartEvent function                                              |
//+------------------------------------------------------------------+
void OnChartEvent(const int id, const long &lparam, const double &dparam,  const string &sparam)
{   
   if(id==CHARTEVENT_OBJECT_CLICK)
   {
      sparam1=sparam;
      if(sparam=="NONE")
      {
         ALLOW_BUY_or_SELL="NONE";                    SellToday   = FALSE ;      BuyToday    = FALSE ;
      }
      if(sparam=="ALLOW_BUY_ONLY")
      {
         ALLOW_BUY_or_SELL="ALLOW_BUY_ONLY";          SellToday   = TRUE ;      BuyToday    = FALSE ;
      }
      if(sparam=="ALLOW_SELL_ONLY")
      {
         ALLOW_BUY_or_SELL="ALLOW_SELL_ONLY";         SellToday   = FALSE ;      BuyToday    = TRUE ;
      }
      if(sparam=="ALLOW_BOTH_BUY_and_SELL")
      {
         ALLOW_BUY_or_SELL="ALLOW_BOTH_BUY_and_SELL"; SellToday   = TRUE ;      BuyToday    = TRUE ;
      }
   }
}

جزاك الله خير اخي فيلسوف .. ماقصرت اكوادك ما شاء الله دكية جدا

**فيلسوف البادية** · 05-10-2017, 03:25 AM

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

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

احد الخيارات في خبير الدوائر

**فيلسوف البادية** · 05-10-2017, 04:28 AM

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

الداله MathTan و MathCos تأخذ قيمة الزاويه بالRadian وليس degree
لذلك قم بتحويل أولا ال45 إلى radian ثم إستخدمها في الداله وسوف تظهر لك القيمه بشكل صحيح

كود PHP:

   const double pi = 3.14159265358979323846; // the value of pi

    double radians = degrees * pi / 180.0;

**sal_moh85** · 05-10-2017, 02:55 PM

سلام عليكم مستر دولار
اريد المساعد في تحديد الهدف وتيك بروفيت و ترينغ ستوب عن طريق موشر ِATR
اكواد يلي انا ساويتها
كود stop lose

كود PHP:

 SLss =pricesell  + (iATR(NULL,NULL,ATR,1)  * Stoploss);

كود Takeprofit

كود PHP:

 TPss = pricesell  - (iATR(NULL,NULL,ATR,1) * Takeprofit)

كود TrailingStop

كود PHP:

 void MoveTrailingStop() 

{ 

 bool s; 

 for(int cnt=0;cnt<OrdersTotal();cnt++) 

 { 

  s=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); 

  string sy=OrderSymbol(); 

  int    tk=OrderTicket(), 

         ot=OrderType(), 

         mn=OrderMagicNumber(); 

  double op=OrderOpenPrice(), 

         sl=OrderStopLoss(), 

         tp=OrderTakeProfit(); 

  double tt=NormalizeDouble((iATR(NULL,NULL,ATR,1) * TrailingStop)/point,0);

  if(sy==Symbol()&&mn==Magicnumber&&ot<=OP_SELL) 

  { 

   if(ot==OP_BUY) 

   { 

    if(NormalizeDouble(Ask-( TSstep *point),Digits)>NormalizeDouble((op+(tt*point)),Digits))  

    {                  

     if((NormalizeDouble(sl,Digits)<NormalizeDouble(Bid-(tt*point),Digits))||(sl==0)) 

     { 

      GlobalVariableSet("TS"+OrderTicket(),Bid-tt*point);  

     } 

    } 

   } 

   else 

   { 

    if(NormalizeDouble(Bid+( TSstep *point),Digits)<NormalizeDouble((op-(tt*point)),Digits))   

    {                  

     if((NormalizeDouble(sl,Digits)>(NormalizeDouble(Ask+(tt*point),Digits)))||(sl==0)) 

     { 

      GlobalVariableSet("TS"+OrderTicket(),Ask+tt*point);  

     } 

    } 

   } 

  } 

 } 

}

//-------------------

void CloseHidenTrailingStop() 

{ 

 bool close; 

 for(int Ki=OrdersTotal()-1;Ki>=0;Ki--) 

 { 

  bool select=OrderSelect(Ki,SELECT_BY_POS,MODE_TRADES); 

  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Magicnumber) 

  { 

   if(OrderType()==OP_BUY&&GlobalVariableGet("TS"+OrderTicket())!=0) 

   { 

    if(Bid<=GlobalVariableGet("TS"+OrderTicket())) 

    { 

     close=OrderClose(OrderTicket(),OrderLots(),Bid,3*D); 

     GlobalVariableDel("TS"+OrderTicket()); 

    } 

   } 

   if(OrderType()==OP_SELL&&GlobalVariableGet("TS"+OrderTicket())!=0) 

   { 

    if(Ask>=GlobalVariableGet("TS"+OrderTicket())) 

    { 

     close=OrderClose(OrderTicket(),OrderLots(),Ask,3*D); 

     GlobalVariableDel("TS"+OrderTicket()); 

    } 

   } 

  } 

 } 

}

المشكله عندي في ترينيغ ستوب طبعا هاد ترينيغ ستوب مخفي
دالة استعاء ترينيغ ستوب

كود PHP:

 if(TrailingStop>0){MoveTrailingStop();CloseHidenTrailingStop();}

ولا كانو موجود ترينيغ ستوب يغلق صفقه على خساره مره بتطلع order send error 130
ارجوا مساعده في في هذه اكواد وانا كان هناك خطاء يرجى اخباري بيه وشكرا

**MR.dollar** · 05-10-2017, 05:04 PM

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

كود PHP:

   const double pi = 3.14159265358979323846; // the value of pi
    double radians = degrees * pi / 180.0;

تماما صحيح . جزاك الله خير

**فيلسوف البادية** · 05-10-2017, 06:28 PM

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

سلام عليكم مستر دولار
اريد المساعد في تحديد الهدف وتيك بروفيت و ترينغ ستوب عن طريق موشر ِATR
اكواد يلي انا ساويتها
كود stop lose

كود PHP:

 SLss =pricesell  + (iATR(NULL,NULL,ATR,1)  * Stoploss);

كود Takeprofit

كود PHP:

 TPss = pricesell  - (iATR(NULL,NULL,ATR,1) * Takeprofit)

كود TrailingStop

كود PHP:

 void MoveTrailingStop() 

{ 

 bool s; 

 for(int cnt=0;cnt<OrdersTotal();cnt++) 

 { 

  s=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); 

  string sy=OrderSymbol(); 

  int    tk=OrderTicket(), 

         ot=OrderType(), 

         mn=OrderMagicNumber(); 

  double op=OrderOpenPrice(), 

         sl=OrderStopLoss(), 

         tp=OrderTakeProfit(); 

  double tt=NormalizeDouble((iATR(NULL,NULL,ATR,1) * TrailingStop)/point,0);

  if(sy==Symbol()&&mn==Magicnumber&&ot<=OP_SELL) 

  { 

   if(ot==OP_BUY) 

   { 

    if(NormalizeDouble(Ask-( TSstep *point),Digits)>NormalizeDouble((op+(tt*point)),Digits))  

    {                  

     if((NormalizeDouble(sl,Digits)<NormalizeDouble(Bid-(tt*point),Digits))||(sl==0)) 

     { 

      GlobalVariableSet("TS"+OrderTicket(),Bid-tt*point);  

     } 

    } 

   } 

   else 

   { 

    if(NormalizeDouble(Bid+( TSstep *point),Digits)<NormalizeDouble((op-(tt*point)),Digits))   

    {                  

     if((NormalizeDouble(sl,Digits)>(NormalizeDouble(Ask+(tt*point),Digits)))||(sl==0)) 

     { 

      GlobalVariableSet("TS"+OrderTicket(),Ask+tt*point);  

     } 

    } 

   } 

  } 

 } 

}

//-------------------

void CloseHidenTrailingStop() 

{ 

 bool close; 

 for(int Ki=OrdersTotal()-1;Ki>=0;Ki--) 

 { 

  bool select=OrderSelect(Ki,SELECT_BY_POS,MODE_TRADES); 

  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Magicnumber) 

  { 

   if(OrderType()==OP_BUY&&GlobalVariableGet("TS"+OrderTicket())!=0) 

   { 

    if(Bid<=GlobalVariableGet("TS"+OrderTicket())) 

    { 

     close=OrderClose(OrderTicket(),OrderLots(),Bid,3*D); 

     GlobalVariableDel("TS"+OrderTicket()); 

    } 

   } 

   if(OrderType()==OP_SELL&&GlobalVariableGet("TS"+OrderTicket())!=0) 

   { 

    if(Ask>=GlobalVariableGet("TS"+OrderTicket())) 

    { 

     close=OrderClose(OrderTicket(),OrderLots(),Ask,3*D); 

     GlobalVariableDel("TS"+OrderTicket()); 

    } 

   } 

  } 

 } 

}

المشكله عندي في ترينيغ ستوب طبعا هاد ترينيغ ستوب مخفي
دالة استعاء ترينيغ ستوب

كود PHP:

 if(TrailingStop>0){MoveTrailingStop();CloseHidenTrailingStop();}

ولا كانو موجود ترينيغ ستوب يغلق صفقه على خساره مره بتطلع order send error 130
ارجوا مساعده في في هذه اكواد وانا كان هناك خطاء يرجى اخباري بيه وشكرا

130
ERR_INVALID_STOPS
Invalid stops
يا ليت تطرح كل االكود
قيمة اتر استخدم االقيمة المطلقة-----لان سالب في سالب موجب

**sal_moh85** · 05-10-2017, 08:35 PM

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

130
ERR_INVALID_STOPS
Invalid stops
يا ليت تطرح كل االكود
قيمة اتر استخدم االقيمة المطلقة-----لان سالب في سالب موجب

مشكور اخي فيلسوف البادية بس مستحيل تطلع قيمة ATR سالب وعل كل حال هاد كود كامل

**بحرينوو** · 05-10-2017, 09:50 PM

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

استاذنا مستر دولار ..

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

كود PHP:

 if(!IsDemo()){Alert("EA ENDING"); return(0);}

**cbzh** · 05-10-2017, 09:57 PM

هل تشوفون سر الفوركس برمجي ؟؟

**sa6oom** · 05-10-2017, 11:35 PM

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

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

يفضل كتابة الصيغه برقم الحساب 34567

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

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

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

المواضيع المتشابهه

موضوع مخصص للاكسبيرتات اللتي يستخدمها الاعضاء على الحقيقي,,عندك اكسبيرت ممتاز ضعه هنا

عااااااااااااجل ( موضوع مخصص للفرص الفورية)!!!

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

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