مرفق المؤشر وفكرته .. رجاء مساعدة بسيطة

[egyptnile]

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

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

وجزاكم الله خيرا

#include <stdlib.mqh>

//---- input parameters
extern string     Note1 = "---- EA Config ------------";
extern string     CrossPair = "EURJPYm";
extern string     MainPair1 = "EURUSDm";
extern string     MainPair2 = "USDJPYm";
extern double     LotValue = 0.01;


int Ticket1, Ticket2, Ticket3;

int init() {
   double xprice1, xprice2, xprice3, mul;
   xprice1= MarketInfo(MainPair1,MODE_BID);
   if (xprice1< 10) {mul=0.0010;} else {mul=0.10;}
   int Ticket1 =  OrderSend(MainPair1, OP_SELLSTOP, LotValue*2, xprice1-mul, xprice1-mul, 0, 0, '-', 0, 0, Green);
   if(Ticket1 <= 0) {
      Print("Error opening order 1: ", ErrorDescription(GetLastError()));
      Alert("Error opening order 1: ", ErrorDescription(GetLastError()));
      return;
   }
   xprice2= MarketInfo(MainPair2,MODE_BID);
   if (xprice2< 10) {mul=0.0010;} else {mul=0.10;}
   int Ticket2 =  OrderSend(MainPair2, OP_SELLLIMIT, LotValue*2, xprice2-mul, xprice2-mul, 0, 0, '-', 0, 0, Green);
   if(Ticket2 <= 0) {
      OrderDelete(Ticket1);
      Print("Error opening order 2: ", ErrorDescription(GetLastError()));
      Alert("Error opening order 2: ", ErrorDescription(GetLastError()));
      return;
   }
   xprice3= MarketInfo(MainPair2,MODE_ASK);
   if (xprice3< 10) {mul=0.0010;} else {mul=0.10;}
   int Ticket3 =  OrderSend(CrossPair, OP_BUYSTOP, LotValue*3, (xprice1*xprice2) - mul, (xprice1*xprice2) - mul, 0, 0, '-', 0, 0, Green);
   if(Ticket3 <= 0) {
      OrderDelete(Ticket1);
      OrderDelete(Ticket2);
      Print("Error opening order Cross: ", ErrorDescription(GetLastError()));
      Alert("Error opening order Cross: ", ErrorDescription(GetLastError()));
      return;
   }
   return;
}


int start() {
   return(0);
}

[egyptnile]

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

[محمود عامر]

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

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

 OrderSend(MainPair1, OP_SELLSTOP, LotValue*2, xprice1-mul, 0, 0, 0, "", 0, 0, Green); 
  

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

[egyptnile]

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

[Mona2008]

فضلا نرفق الاكسبيرت

[egyptnile]

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