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

[mdsalman]

السلام عليكم
اخوي فيلسوف الباديه ممكن تلقي نظرة على الاكسبيرت المرفق الكود من برمجتك في هذا الموضوع المشاركة رقم 37 و الاكسبيرت مرفق

https://forum.arabictrader.com/t244086-3.html

[فيلسوف البادية]

السلام عليكم
اخوي فيلسوف الباديه ممكن تلقي نظرة على الاكسبيرت المرفق الكود من برمجتك في هذا الموضوع المشاركة رقم 37 و الاكسبيرت مرفق

https://forum.arabictrader.com/t244086-3.html

ديمو؟؟
حقيقي؟
تستر؟؟

ايش الخطأ اللي يظهر؟

[فيلسوف البادية]

 int      ticket;
extern double   MODU_entry=0.25;
extern double   MODU_TP=1.25;
extern double   MODU_SL=10;
extern double   Lots=0.01;
extern int   from_time=1;
extern int   to_time=22;
extern int   exit_time=23;
 
datetime time;
void OnTick()
{
   if(time!=Time[0])
   {
      time=Time[0];
      double d1=(Close[1]-Close[2])*MathPow(10,_Digits-1);
      double e=MODU_entry*Close[1]*MathPow(10,_Digits-3);
      double e1=MODU_entry*Close[1]*MathPow(10,_Digits-3)/2.0;
      if(d1>e && (TimeHour(Time[0])>=from_time && TimeHour(Time[0])<=exit_time))
      {
         double entryS=NormalizeDouble(StringToDouble(DoubleToString(Bid+10*e1*_Point,_Digits)),_Digits);
         double TPS=NormalizeDouble(StringToDouble(DoubleToString(Bid+10*e1*_Point-MODU_TP*Close[0]*MathPow(10,_Digits-2)*_Point,_Digits)),_Digits);
         double SLS=NormalizeDouble(StringToDouble(DoubleToString(Bid+10*e1*_Point+MODU_SL*Close[0]*MathPow(10,_Digits-2)*_Point)),_Digits);
         
         ticket=OrderSend(NULL, OP_SELLLIMIT,  Lots , entryS , 5 ,   SLS, TPS, 0, 0 , 0 , clrRed); 
      }
      if(d1<-e&& (TimeHour(Time[0])>=from_time && TimeHour(Time[0])<=exit_time))
      {
         double entryB=NormalizeDouble(StringToDouble(DoubleToString(Ask-10*e1*_Point)),_Digits);
         double TPB=NormalizeDouble(StringToDouble(DoubleToString(Ask-10*e1*_Point+MODU_TP*Close[0]*MathPow(10,_Digits-2)*_Point,_Digits)),_Digits);
         double SLB=NormalizeDouble(StringToDouble(DoubleToString(Ask-10*e1*_Point-MODU_SL*Close[0]*MathPow(10,_Digits-2)*_Point)),_Digits);
         ticket=OrderSend(NULL, OP_BUYLIMIT,  Lots ,  entryB, 5 ,   SLB, TPB, 0, 0 , 0 , clrLime); 
      }
   }
   
          if(TimeHour(Time[0])==exit_time)  
         {//6
  
   
   for(int j=OrdersTotal()-1;j>=0;j--)
   {//1
      if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
      {//2
if(OrderType()==OP_BUY)            ticket=OrderClose(OrderTicket(),OrderLots(),Bid,0,clrOrange); 
if(OrderType()==OP_SELL)            ticket=OrderClose(OrderTicket(),OrderLots(),Ask,0,clrOrange); 
         }//6
      }//2
   }//1
} 
  

[mdsalman]

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

[mdsalman]

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

[goldfile]

السلام عليكم

بتغيير الاوامر لن ينفذ الصفقات في الغالب ... جرب الكود اسفله

[goldfile]

تفضل

بالتوفيق

[mdsalman]

شكرا لك