طلب اضافة خاصية بسيط على اكسبيرت

[CJA]

تحية طيبة

مرفق اكسبيرت للاخ بن فريحان

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

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

بالتوفيق و مكورين على المجهود

[mfd]

//+------------------------------------------------------------------+
//| Copyright 2006, Osama M. Shaban |
//| Email: [email protected] |
//+------------------------------------------------------------------+
#property copyright "Copyright 2006, Osama M. Shaban"
#property link "[email protected]"
#define MAGIC 345678

//Expert Entry Values
//------------------------------------------------------------------------
extern int TimeFrame = 60; //H1 = 60, H4 = 240
extern int SL = 2000; // Should be very big ! Will not work with smaller values!
extern int TP = 10; // use 10 pips for TF=H1=60 and 30 Pips for TF=H4=240
extern double L_level = 15;
extern double S_level = 85;
extern double Lots = 1; // Adjust the lot size according to your account Balance/Type
extern int TotalOfOrders = 2;
extern bool UseSound = True;
//------------------------------------------------------------------------

//Slippage
//------------------------------------------------------------------------
int Slippage = 2;
//------------------------------------------------------------------------

//Expert name
//------------------------------------------------------------------------
string Name_Expert = "بن فريحان عشرة نقاط";
//------------------------------------------------------------------------

//Colour settings
//------------------------------------------------------------------------
color clOpenBuy = Blue;
color clCloseBuy = Aqua;
color clOpenSell = Red;
color clCloseSell = Violet;
color clModiBuy = Blue;
color clModiSell = Red;
//------------------------------------------------------------------------

string NameFileSound = "alert.wav";

void deinit() {
Comment("");
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start(){
double total;

if(Bars<100){
Print("bars less than 100");
return(0);
}
if(SL<10){
Print("StopLoss less than 10");
return(0);
}
if(TP<10){
Print("TakeProfit less than 10");
return(0);
}
if(SL<10){
Print("StopLoss less than 10");
return(0);
}
if(TP<10){
Print("TakeProfit less than 10");
return(0);
}
total=OrdersTotal();
if(total<TotalOfOrders)

double d0Sto=iStochastic(NULL,TimeFrame,5,3,3,MODE_EMA,PR ICE_CLOSE,MODE_MAIN,0);
double d1Sto=iStochastic(NULL,TimeFrame,5,3,3,MODE_EMA,PR ICE_CLOSE,MODE_MAIN,1);
if(AccountFreeMargin()<(1000*Lots)){ //Will not trade if mini account has less than $100 or standard <$1000
Print("You have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
//if (!ExistPositions()){
if ((d0Sto>d1Sto)&&(d0Sto<=L_level)){
OpenBuy();
return(0);
}
if ((d0Sto<d1Sto)&&(d0Sto>=S_level)){
OpenSell();
return(0);
}
}
return (0);
//}

//bool ExistPositions() {
// for (int i=0; i<OrdersTotal(); i++) {
// if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
// if (OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC) {
// return(True);
// }
// }
//}
// return(false);
//}

void OpenBuy() {
double ldLot, ldStop, ldTake;
string lsComm;
ldLot = GetSizeLot();
ldStop = GetStopLossBuy();
ldTake = GetTakeProfitBuy();
lsComm = GetCommentForOrder();
OrderSend(Symbol(),OP_BUY,ldLot,Ask,Slippage,ldSto p,ldTake,lsComm,MAGIC,0,clOpenBuy);
if (UseSound) PlaySound(NameFileSound);
}

void OpenSell() {
double ldLot, ldStop, ldTake;
string lsComm;
ldLot = GetSizeLot();
ldStop = GetStopLossSell();
ldTake = GetTakeProfitSell();
lsComm = GetCommentForOrder();
OrderSend(Symbol(),OP_SELL,ldLot,Bid,Slippage,ldSt op,ldTake,lsComm,MAGIC,0,clOpenSell);
if (UseSound) PlaySound(NameFileSound);
}

string GetCommentForOrder() { return(Name_Expert); }
double GetSizeLot() { return(Lots); }
double GetStopLossBuy() { return (Bid-SL*Point);}
double GetStopLossSell() { return(Ask+SL*Point); }
double GetTakeProfitBuy() { return(Ask+TP*Point); }
double GetTakeProfitSell() { return(Bid-TP*Point); }

[CJA]

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

//| Copyright 2006, Osama M. Shaban |
//| Email: [email protected] |
//+------------------------------------------------------------------+
#property copyright "Copyright 2006, Osama M. Shaban"
#property link "[email protected]"
#define MAGIC 345678

//Expert Entry Values
//------------------------------------------------------------------------
extern int TimeFrame = 60; //H1 = 60, H4 = 240
extern int SL = 2000; // Should be very big ! Will not work with smaller values!
extern int TP = 10; // use 10 pips for TF=H1=60 and 30 Pips for TF=H4=240
extern double L_level = 15;
extern double S_level = 85;
extern double Lots = 1; // Adjust the lot size according to your account Balance/Type
extern int TotalOfOrders = 2;
extern bool UseSound = True;
//------------------------------------------------------------------------

//Slippage
//------------------------------------------------------------------------
int Slippage = 2;
//------------------------------------------------------------------------

//Expert name
//------------------------------------------------------------------------
string Name_Expert = "بن فريحان عشرة نقاط";
//------------------------------------------------------------------------

//Colour settings
//------------------------------------------------------------------------
color clOpenBuy = Blue;
color clCloseBuy = Aqua;
color clOpenSell = Red;
color clCloseSell = Violet;
color clModiBuy = Blue;
color clModiSell = Red;
//------------------------------------------------------------------------

string NameFileSound = "alert.wav";

void deinit() {
Comment("");
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start(){
double total;

if(Bars<100){
Print("bars less than 100");
return(0);
}
if(SL<10){
Print("StopLoss less than 10");
return(0);
}
if(TP<10){
Print("TakeProfit less than 10");
return(0);
}
if(SL<10){
Print("StopLoss less than 10");
return(0);
}
if(TP<10){
Print("TakeProfit less than 10");
return(0);
}
total=OrdersTotal();
if(total<TotalOfOrders)

double d0Sto=iStochastic(NULL,TimeFrame,5,3,3,MODE_EMA,PR ICE_CLOSE,MODE_MAIN,0);
double d1Sto=iStochastic(NULL,TimeFrame,5,3,3,MODE_EMA,PR ICE_CLOSE,MODE_MAIN,1);
if(AccountFreeMargin()<(1000*Lots)){ //Will not trade if mini account has less than $100 or standard <$1000
Print("You have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
//if (!ExistPositions()){
if ((d0Sto>d1Sto)&&(d0Sto<=L_level)){
OpenBuy();
return(0);
}
if ((d0Sto<d1Sto)&&(d0Sto>=S_level)){
OpenSell();
return(0);
}
}
return (0);
//}

//bool ExistPositions() {
// for (int i=0; i<OrdersTotal(); i++) {
// if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
// if (OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC) {
// return(True);
// }
// }
//}
// return(false);
//}

void OpenBuy() {
double ldLot, ldStop, ldTake;
string lsComm;
ldLot = GetSizeLot();
ldStop = GetStopLossBuy();
ldTake = GetTakeProfitBuy();
lsComm = GetCommentForOrder();
OrderSend(Symbol(),OP_BUY,ldLot,Ask,Slippage,ldSto p,ldTake,lsComm,MAGIC,0,clOpenBuy);
if (UseSound) PlaySound(NameFileSound);
}

void OpenSell() {
double ldLot, ldStop, ldTake;
string lsComm;
ldLot = GetSizeLot();
ldStop = GetStopLossSell();
ldTake = GetTakeProfitSell();
lsComm = GetCommentForOrder();
OrderSend(Symbol(),OP_SELL,ldLot,Bid,Slippage,ldSt op,ldTake,lsComm,MAGIC,0,clOpenSell);
if (UseSound) PlaySound(NameFileSound);
}

string GetCommentForOrder() { return(Name_Expert); }
double GetSizeLot() { return(Lots); }
double GetStopLossBuy() { return (Bid-SL*Point);}
double GetStopLossSell() { return(Ask+SL*Point); }
double GetTakeProfitBuy() { return(Ask+TP*Point); }

double GetTakeProfitSell() { return(Bid-TP*Point); }

مشكور جدا

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

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

و مشكور جدا على تعبك

[majjed2005]

اخي الكريم
هل لي ان اعلم من اين حصلت على هذا الكسبريت لو سمحت
وشكراً

[majjed2005]

السلام عليكم
ارجو شرح كيفية عمل هذا الكسبريت
علما انه يعمل عندي ديمو من 24 ساعة ولم يفتح اي عقد
وشكراً

[أسامة]

تحية طيبة

مرفق اكسبيرت للاخ بن فريحان

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

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

بالتوفيق و مكورين على المجهود

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

[أسامة]

السلام عليكم
تفضل ياأخي ... هذا هو الكود ... لم أجربه ولكن إن شاء الله سيعمل معك كما تريد ولو أردت أي تغيير أو به خطأ فأنا تحت أمرك والمعذرة على التأخير بسبب مشاكل في النت.
لدي رأي وهو أنه من خلال ملاحظتي للكود فقد تمت برمجته في السابق بتحقق شروط الدخول عند وصول قيمة المؤشر اللحظية لمستوى معين وليس إغلاق الشمعة عند ذلك المستوى!
ربما يكون من الأفضل إعتماد قيمة المؤشر عند الإغلاق ...! مارأيك؟

السلام عليكم

[أسامة]

اخي الكريم
هل لي ان اعلم من اين حصلت على هذا الكسبريت لو سمحت
وشكراً

أخي ماجد
الإكسبرت موجود في هذا الموضوع
https://forum.arabictrader.com/t7526.html
ستجده إن شاء الله في الصفحة الرابعة أو الخامسة.

[majjed2005]

الأخ أسامة
شكراً جزيلاً لك

[CJA]

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

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

فضلا فى بعض العمليات تغلق لوحدها دون الاستوب و الهدف

و يكتب
cloed by tester
هل لديك خلفية ما معنى هذا ؟

بالتوفيق

[CJA]

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

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

بالتوفيق

[أسامة]

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

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

عموما ... أنا أفضل إعتماد الديمو ومراقبة الإكسبرت من حين لآخر وهذا أفضل شيء.

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

[أسامة]

السلام عليكم
تفضل ياأخي ... هذه (إن شاء الله) هي النسخة المطلوبة بعد إجراء التعديلات اللآزمة عليها.
وفقك الله

[CJA]

السلام عليكم
تفضل ياأخي ... هذه (إن شاء الله) هي النسخة المطلوبة بعد إجراء التعديلات اللآزمة عليها.
وفقك الله

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

بالتوفيق

[أسامة]

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

بالتوفيق

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