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

[Jmeel]

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

شروط البيع كالتالي :
تحقق شرط البيع طبقا للاستراتيجية

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

شروط اغلاق جميع الصفقات :
1- وصول الربح بالدولار للمتغير الخارجي Profit_USD والذي لا يتم تفعيل شرطة الا اذا كانت هناك اكثر من صفقة مازالت مفتوحة
2- وصول صفقات الشراء او البيع لهدفها
وهنا يتم اغلاق جميع صفقات الشراء والبيع المفتوحة والبداية من جديد باللوت المبدئي LotSize
جزاك الله خير

ارجع للمشاركة 4032 في الصفحة السابقة ستجد فيها الأجابة .

[MR.dollar]

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

استاذي اسامه

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

اريد ان افتح بيع وشراء هدج سوف ياخذ قيمة العقد 1 للبيع 1 للشراء عند افتتاح شمعة
اريدة ان يضاعف العقد جمعي 1+1=2 2+1=3 وهكذا وتصبح المضاعفة في حالة الانعكاس والربح
للبيع 543212345 اي يضاعف مع الاتجاة اوعكسة
للشراء 543212345 يضاعف مع الاتجاة او عكسة
ارجوا ان يكون الشرح واضح

ولك منى جزيل الشكر
مع تمنياتي للجميع بالتوفيق
لاتنساني من دعائك

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

 double newLot=LastLot()*2; 
  

سوف يكون

 double newLot=LastLot()+Lots; 
  

حيث أن Lots هو حجم اللوت الإبتدائي
مثال

 ////////////////////
int orderscnt(int type)
{
 int cnt;
 for(int i=0;i<OrdersTotal();i++)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber&&OrderType()==type)
  {
   cnt++;
  }
 }
 return(cnt);
}


double LastLot(string comment)
{
 for(int i=OrdersTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
  
  double L=OrderLots();
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Magic&&OrderType()==type&&OrderComment()==comment||OrderComment()=="EA")
  {
   return(L);
  }
 }
} 

double LastOpenPrice(string comment)
{
 for(int i=OrdersTotal()-1;i>=0;i--)
 {
  OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Magic&&OrderType()==type&&OrderComment()==comment||OrderComment()=="EA")
  {
   return(OrderOpenPrice());
  }
 }
} 
  

 if((Ask-LastOpenPrice("EALoss")>=Step*Point)&&orderscnt(OP_SELL)>0)
{
  newLot=LastLot("EALoss")+Lots;
  OrderSend(Symbol(),OP_SELL,newLot,NormalizeDouble(Bid,Digits),3,0,0,"EALoss",MagicNumber,0,Blue);            
}

if((LastOpenPrice("EAProfit")-Ask>=Step*Point&&OpenWinMultiplier)&&orderscnt(OP_SELL)>0)
{
  newLot=LastLot("EAProfit")+Lots;
  OrderSend(Symbol(),OP_SELL,newLot,NormalizeDouble(Bid,Digits),3,0,0,"EAProfit",MagicNumber,0,Blue);            
} 
  

ونفس الفكره بالنسبه للشراء
الصفقه الرئيسيه المفروض الكومنت لها سيكون بإسم EA

[daod]

السلام عليكم اخ اسامه لقد وضعت ردا كما قلت لي وفي انتظارك هناك في موضوع اكسبيرت المضاعفات من اجل اضافه المناقصات .

[MR.dollar]

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


double today_open = iOpen(Symbol(),1440,0);

double yesterday_close = iClose(Symbol(),1440,1);

double yesterday_high = iHigh(Symbol(),1440,1);

double yesterday_low =iLow(Symbol(),1440,1);

اريد ان لا يحتسب هذه الدوال حسب اليوم السابق لمنصة بل حسب توقيت الجهاز هل يمكننا ذلك؟

يجب أن تحسبها بطريقة أخرى فمثلا أريد حساب اليوم بدءا من الساعه 11 وليس الساعه 0 وينتهي الساعه 3 في اليوم التالي

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

  datetime TimeStart=StrToTime(TimeToStr(iTime(Symbol(),1440,1),TIME_DATE)+" "+2);
   int BarStart=iBarShift(Symbol(),60,TimeStart,false); 
  

ونهاية اليوم

  datetime TimeEnd=StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)+" "+1);
   int BarEnd=iBarShift(Symbol(),60,TimeEnd,false); 
  

فسوف يكون الهاي واللو والإفتتاح والإغلاق

 double highDay=High[iHighest(Symbol(),0,MODE_HIGH,BarStart-BarEnd,BarEnd)];
   double lowDay=Low[iLowest(Symbol(),0,MODE_LOW,BarStart-BarEnd,BarEnd)];
   double closeDay=iClose(Symbol(),60,BarEnd);
   double openDay=iOpen(Symbol(),60,BarStart); 
  

[MR.dollar]

السلام عليكم اخ اسامه لقد وضعت ردا كما قلت لي وفي انتظارك هناك في موضوع اكسبيرت المضاعفات من اجل اضافه المناقصات .

صبرا يا أخي

[ecash]

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

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

مع تمنياتي للجميع بالتوفيق
لاتنساني من دعائك

[abou fares]

يجب أن تحسبها بطريقة أخرى فمثلا أريد حساب اليوم بدءا من الساعه 11 وليس الساعه 0 وينتهي الساعه 3 في اليوم التالي

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

  datetime TimeStart=StrToTime(TimeToStr(iTime(Symbol(),1440,1),TIME_DATE)+" "+2);
   int BarStart=iBarShift(Symbol(),60,TimeStart,false); 
  

ونهاية اليوم

  datetime TimeEnd=StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)+" "+1);
   int BarEnd=iBarShift(Symbol(),60,TimeEnd,false); 
  

فسوف يكون الهاي واللو والإفتتاح والإغلاق

 double highDay=High[iHighest(Symbol(),0,MODE_HIGH,BarStart-BarEnd,BarEnd)];
   double lowDay=Low[iLowest(Symbol(),0,MODE_LOW,BarStart-BarEnd,BarEnd)];
   double closeDay=iClose(Symbol(),60,BarEnd);
   double openDay=iOpen(Symbol(),60,BarStart); 
  

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

[MR.dollar]

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

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

مع تمنياتي للجميع بالتوفيق
لاتنساني من دعائك

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

تمنياتي بالتوفيق

[zzeyani]

https://forum.arabictrader.com/t37612-184.html " 184 185 188 196 197 220 221 222 223 261 262 269 "

[MR.dollar]

https://forum.arabictrader.com/t37612-184.html " 184 185 188 196 197 220 221 222 223 261 262 269 "

الحل بسيط
يمكنك تعريف متغير مثلا

 datetime Time0; 
  

خارج الداله start

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

 if(Time0!=Time[0])
{
 
 //do something
 Time0=Time[0];
} 
  

طبعا ستضيف الشروط الأخرى بالإضافة إلى هذا الشرط

[reda-hadhod]

السلام عليكم رحمة الله
لقد قمت بعمل أكسبرت على الماكد وكانت شروط الشراء عندما يكون قيمة (الماكد >السجنال ) < الصفر
وشروط البيع عندما يكون قيمة ( الماكد< السيجنال) > الصفر

وأشتغل معى الاكسبرت .

وقمت بأضافة شرط اخر للشراء عندما يكون قيمة ( الماكد > السيجنال ) > الصفر
وللبيع عندما يكون قيمة ( الماكد < السيجنال) < الصفر

لم يعمل معى بعد أضافة الشروط الجيدة

أطلب منك أخى الفاضل أسامة أن توضح لى كيف أن أكتبها وجزاك الله كل الخير

مرفق لكم الكسبرت قبل التعديل

[reda-hadhod]

السلام عليكم رحمة الله
لقد قمت بعمل أكسبرت على الماكد وكانت شروط الشراء عندما يكون قيمة (الماكد >السجنال ) < الصفر
وشروط البيع عندما يكون قيمة ( الماكد< السيجنال) > الصفر

وأشتغل معى الاكسبرت .

وقمت بأضافة شرط اخر للشراء عندما يكون قيمة ( الماكد > السيجنال ) > الصفر
وللبيع عندما يكون قيمة ( الماكد < السيجنال) < الصفر

لم يعمل معى بعد أضافة الشروط الجيدة

أطلب منك أخى الفاضل أسامة أن توضح لى كيف أن أكتبها وجزاك الله كل الخير

مرفق لكم الكسبرت قبل التعديل

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

دمتم بود

[MR.dollar]

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

دمتم بود

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

[kira-h]

السلام عليكم ورحمة الله وبركاته
نفترض اكسبيرت مضاعفات يعمل على أزواج مختلفة وكل زوج وصل لعدد مضاعفات معينة
الفكرة هي عند تحقق ربح مثلا 10% من الحساب أو الاكويتي يتم إغلاق كل الصفقات سواء المفتوحة أو المعلقة والبدء من جديد باللوت الابتدائي على الأزواج
مبدئيا كل زوج له اكسبيرت وكل اكسبيرت به دالة المضاعفات
قمت بحذف الماجيك نمبر ويكفي الـ Symbol يفصل العمليات لكل زوج
هل الدالة صحيحة ؟؟

// exported variables
extern double  Lots = 0.01; 
extern double LotsMpOnLoss = 2;
double LotsMpOnProfit = 1;
extern double MaxLots = 100;
bool LotsResetOnProfit = true;
bool LotsResetOnLoss = false;
extern int ProfitRatio = 10;

void TechnicalAnalysis1()
{ 
    if (Close[1]<Open[1])
    {      
    double profit = 0;
    int cnt = OrdersHistoryTotal();
    for (int i=cnt-1; i >= 0; i--)
    {
        if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
        if ((OrderType() == OP_BUY || OrderType() == OP_SELL) && OrderSymbol() == Symbol())
        {
            profit = OrderProfit();
            CurrentLots = OrderLots();     // take lots from the last order
            break;
        }
    } 
    if(AccountProfit()>=(ProfitRatio*AccountBalance()/100)
    if(AccountProfit()>=(ProfitRatio*AccountEquity()/100)
    {
        CurrentLots = Lots;
    }
    if (profit > 0)     // had profit
    {
        CurrentLots = CurrentLots * LotsMpOnProfit + 0;
        if (LotsResetOnProfit)
        CurrentLots = Lots;
    }
    else if (profit < 0)    // had loss
    {
        CurrentLots = CurrentLots * LotsMpOnLoss + 0;
        if (LotsResetOnLoss) CurrentLots = Lots;
    }
    if (CurrentLots > MaxLots)
    {
        CurrentLots = Lots;
    }
    double lotvalue = CurrentLots;
    
    if (lotvalue < MarketInfo(Symbol(), MODE_MINLOT))    // make sure lot is not smaller than allowed value
    {
        lotvalue = MarketInfo(Symbol(), MODE_MINLOT);
    }
    if (lotvalue > MarketInfo(Symbol(), MODE_MAXLOT))    // make sure lot is not greater than allowed value
    {
        lotvalue = MarketInfo(Symbol(), MODE_MAXLOT);
    }
    int expire = TimeCurrent() + 60 * Expiration;
    double price = (NormalizeDouble(Close[1], NDigits) - (Step*PipValue*Point)); 
    double SL = price + Sellloss*PipValue*Point;
    if (Sellloss == 0) SL = 0; 
    double TP = price - Sellprofit*PipValue*Point;
    if (Sellprofit == 0) TP = 0;  
    if (Expiration == 0) expire = 0;
    int Tries; 
    int ticket = -1;    
    if (ECNBroker)
    { 
    ticket = OrderSend(Symbol(), OP_SELLSTOP, lotvalue, price, Slippage, 0, 0, "Kira-h", MagicNo, expire, Red); 
    if(ticket>-1 && Tries<10)
      { 
       OrderSelect(ticket, SELECT_BY_TICKET); 
       OrderModify(ticket, OrderOpenPrice(), SL, TP, 0, Blue); 
       Tries++;Sleep(1000);  
      } 
    } 
    else 
    ticket = OrderSend(Symbol(), OP_SELLSTOP, lotvalue, price, Slippage, SL, TP, "Kira-h", MagicNo, expire, Red);
        
    }
}

شكرا جزيلا مع تمنياتي للجميع بالتوفيق

[MR.dollar]

السلام عليكم ورحمة الله وبركاته
نفترض اكسبيرت مضاعفات يعمل على أزواج مختلفة وكل زوج وصل لعدد مضاعفات معينة
الفكرة هي عند تحقق ربح مثلا 10% من الحساب أو الاكويتي يتم إغلاق كل الصفقات سواء المفتوحة أو المعلقة والبدء من جديد باللوت الابتدائي على الأزواج
مبدئيا كل زوج له اكسبيرت وكل اكسبيرت به دالة المضاعفات
قمت بحذف الماجيك نمبر ويكفي الـ Symbol يفصل العمليات لكل زوج
هل الدالة صحيحة ؟؟

// exported variables
extern double  Lots = 0.01; 
extern double LotsMpOnLoss = 2;
double LotsMpOnProfit = 1;
extern double MaxLots = 100;
bool LotsResetOnProfit = true;
bool LotsResetOnLoss = false;
extern int ProfitRatio = 10;

void TechnicalAnalysis1()
{ 
    if (Close[1]<Open[1])
    {      
    double profit = 0;
    int cnt = OrdersHistoryTotal();
    for (int i=cnt-1; i >= 0; i--)
    {
        if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
        if ((OrderType() == OP_BUY || OrderType() == OP_SELL) && OrderSymbol() == Symbol())
        {
            profit = OrderProfit();
            CurrentLots = OrderLots();     // take lots from the last order
            break;
        }
    } 
    if(AccountProfit()>=(ProfitRatio*AccountBalance()/100)
    if(AccountProfit()>=(ProfitRatio*AccountEquity()/100)
    {
        CurrentLots = Lots;
    }
    if (profit > 0)     // had profit
    {
        CurrentLots = CurrentLots * LotsMpOnProfit + 0;
        if (LotsResetOnProfit)
        CurrentLots = Lots;
    }
    else if (profit < 0)    // had loss
    {
        CurrentLots = CurrentLots * LotsMpOnLoss + 0;
        if (LotsResetOnLoss) CurrentLots = Lots;
    }
    if (CurrentLots > MaxLots)
    {
        CurrentLots = Lots;
    }
    double lotvalue = CurrentLots;
    
    if (lotvalue < MarketInfo(Symbol(), MODE_MINLOT))    // make sure lot is not smaller than allowed value
    {
        lotvalue = MarketInfo(Symbol(), MODE_MINLOT);
    }
    if (lotvalue > MarketInfo(Symbol(), MODE_MAXLOT))    // make sure lot is not greater than allowed value
    {
        lotvalue = MarketInfo(Symbol(), MODE_MAXLOT);
    }
    int expire = TimeCurrent() + 60 * Expiration;
    double price = (NormalizeDouble(Close[1], NDigits) - (Step*PipValue*Point)); 
    double SL = price + Sellloss*PipValue*Point;
    if (Sellloss == 0) SL = 0; 
    double TP = price - Sellprofit*PipValue*Point;
    if (Sellprofit == 0) TP = 0;  
    if (Expiration == 0) expire = 0;
    int Tries; 
    int ticket = -1;    
    if (ECNBroker)
    { 
    ticket = OrderSend(Symbol(), OP_SELLSTOP, lotvalue, price, Slippage, 0, 0, "Kira-h", MagicNo, expire, Red); 
    if(ticket>-1 && Tries<10)
      { 
       OrderSelect(ticket, SELECT_BY_TICKET); 
       OrderModify(ticket, OrderOpenPrice(), SL, TP, 0, Blue); 
       Tries++;Sleep(1000);  
      } 
    } 
    else 
    ticket = OrderSend(Symbol(), OP_SELLSTOP, lotvalue, price, Slippage, SL, TP, "Kira-h", MagicNo, expire, Red);
        
    }
}

شكرا جزيلا مع تمنياتي للجميع بالتوفيق

وعليكم السلام ورحمة الله وبركاته
لنفرض أن الإكسبرتات أغلقت على ربح والحساب الآن أصبح الربح 50% من الحساب وتم البدء بلوت جديد لكن الصفقات التاليه أغلقت على خساره فأصبح ربح الحساب 30% أي نقص في هذه الحاله الشرط

  if(AccountProfit()>=(ProfitRatio*AccountBalance()/100)
    if(AccountProfit()>=(ProfitRatio*AccountEquity()/100)
    {
        CurrentLots = Lots;
    } 
  

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