![]() |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
هو صراحة قمت بوضع كود وجته في احد الاكسبيرتات |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
المناقشة او بنفس طريقة التي شرحت بها الدروس السابقة يكون افضل لاني كما اخبرتك انا اتعلم فقط اي اني لم ابرمج هذا الاكسبيرت للمتاجرة عليه من الاساس |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
البرمجة معرفة كيفية وضع الاوامر وتعلم الاساسيات وهذا مبدء العمل فقط لاكن ليكون عملك صحيح يجب ان تعرف ماذا تبرمج اساسا الشروط من اهم الامور التي يجب معرفتها لكي نفهم عمل البرنامج نعود الي شروط الدخول في الصفقة نحن اشترطنا ضهور سهم في الشمعة السابقة لكي يدخل في عملية buy او sell لاكن لو وضعنا هذا الامر فقط فالاكسبريت يقارن الشرط كل تحرك للسعر وطالما الشرط صحيح سيدخل صفقة مثلا في الشمعة السابقة ضهر سهم يشير الي buy سيدخل اول صفقة buy تحرك السعر بتك واحد في نفس الشمعة سيعيد مقارنة الشرط ان وجده صحيح سيعيد الدخول ولكي نتفادي الدخول الكثير وضعنا شرط اخر ان يكون عدد الصفقات المفتوحة اصغر من اقصي حد نريد المتاجرة به اقصي حد نريد المتاجرة به وضعناه متغير خارجي نحن نحدده عدد الصفقات المفتوحة نحصل عليه بواسطة الدالة orderstotal() اذا سيصبح الشرط كالتالي اذا ضهر سهم في الشمعة السابقة وكانت عدد الصفقات المفتوحة اقل من اقصي حد للصفقات افتح امر [PHP] if(indigreen<4000&&orderstotal()<MaxTrades) [/PHP]ماذا سيعمل الاكسبريت سيقارن ان ضهر سهم في الشمعة السابقة تحقق هذا الامر جيد سيقارن ايضا عدد الصفقات المفتوحة وعدد الصفقات المفتوحة الي الان 0 وهي اصغر من اقصي حد للمتاجرة الذي = 1 سيفتح صفقة يتحرك السعر سيعيد المقارنة هل ضهر السهم في الشمعة السابقة تحقق هذا الامر جيد سيقارن ايضا عدد الصفقات المفتوحة وعدد الصفقات المفتوحة الي الان 1 وهي تساوي اقصي حد للمتاجرة الذي = 1 اذن لا يفتح صفقة ويستمر الاكسبريت هكذا ناتي الان لاغلاق الصفقات نريد اغلاق صفقة لما تضهر اشارة عكسية فقط لا يهمنا كم عدد الصفقات اذا الشرط سيكون كالتالي اذا ضهر سهم نازل اخرج من صفقات buy نترجمه [PHP] if(indired<4000) {CloseBuyOrders();} [/PHP]اي شئ غير مفهوم لا تتردد في طرحه اخي |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
لذلك فاعمد الى البحث على الاكواد واعادة تحليلها لان وضع امر لدالة امر جد صعب في بداية الطريق متابع معاك يا غالي |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
هو كود لتعامل مع المنصات ذات الاربع ارقام والخمس ارقام وكذلك لتعامل مع ازواج الين التي تكون في منصة اما بثلاث ارقام او رقمين اي لن يجد الاكسبيرت اي مشكلة على اي منصة وممكن نقل الكود ووضعه كما هو اي مثل هذه الاكواد هي تكون كقالب لاي اكسبريت تريد برمجته |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
في اللغة الاساسية ل MQL توجد كتابة Point تعطي لنا اصغر رقم يمكن الحصول عليه من السعر مثلا لو لدينا السعر 1.3625487021548 اصغر رقم يمكن الحصول عليه هو 0.0000000000001 واصغر رقم يسمي النقطة في منصة 5 ارقام اصغر رقم هو 0.00001 في منصة 4 ارقام اصغر رقم هو 0.0001 وكما نعلم ان قيمة النقطة نستخدمها في تحديد المسافة التي نريد اخذ الربح عندها او اغلاق الصفقة علي خسارة عندها لو ناخذ قيمة النقطة الافتراضية الموجودة اصلا في MQL وهي Point ب حرف P الكبير ونريد اخذ الربح بعد 10 نقاط وكما تعلم اخي ان الربح عند 10 نقاط لا يختلف حتي لو اختلفة المنصات 4 او 5 يعني لو دخلنا عقد من منصة 4 ارقام ومنصة 5 ارقام من نفس السعر الربح بعد 10 نقاط سيكون نفسه ؟؟؟ لو نستعمل Point في الحساب فلن يكون الربح نفسه لذا عمل متغير اخر ووضعنا فيه قيمة النقطة مهما كانت المنصة |
رد: دورة تعليم برمجة الاكسبريت
اخ موفنج اعلم اني اتعبتك معي لكن رغم اني قمت بحذف
دالة التريلنج لكن لم تحل المشكلة بقي يفتح 5 صفقات مع كل اشارة ولم افهم لما 5 صفقات رغم اني غيرة الدالة وجعلتها تفتح صفقة واحدة فقط دون اي متغير خارجي يتحكم في عدد الصفقات وايضا يقوم بتفعيل مع اول اشارة ولا يغلق الصفقة رغم اني وضعت دالة اغلاق الصفقة في حال وجود اشارة عكسية [PHP]extern double Lots = 0.1; double point; int digits,Q; extern int StopLoss=0; extern int TakeProfit=0; extern int MagicNumber=1234; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int init() { if(Digits==5||Digits==3)Q=10; else Q=1; if(Digits==2) { point=0.01; } if(Digits==4) { point=0.0001; } if(Digits==3) { point=0.01; } if(Digits==5) { point=0.0001; } } int magic=0 ; int orderstotal(){ int cnt=0; for(int i =0;i<OrdersTotal();i++){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()){ cnt++; } } return(cnt); } //---- //---- //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { Comment(""+"\n"+""+"\n"+"/"); ////////////////////////////////////////////////// double indigreen=iCustom(0,0,"imad",1,1); double indired=iCustom(0,0,"imad",0,1); دالة استدعاء المؤشر ////////////////////////////////////////////////// double TP,SL; if(indigreen<5000&&LastOrder()>0&&orderstotal()<=1 ) { {CloseSellOrders();} دالة فتح صفقة مع جعل صفقة واحدة فقط + امر اغلاق الصفقة في الاشارة العكسية //Buy if(TakeProfit==0){TP=0;} else{TP=Ask+TakeProfit*point;} if(StopLoss==0){SL=0;} else{SL=Ask-StopLoss*point;} OrderSend(Symbol(),OP_BUY,Lots,Ask,3,SL,TP,"",Magi cNumber,0,Blue); } ////////////////////////////////////////////////// if(indired<5000&&LastOrder()!=1&&orderstotal()<=1) { {CloseBuyOrders();} دالة فتح صفقة مع جعل صفقة واحدة فقط + امر اغلاق الصفقة في الاشارة العكسية //Sell if(TakeProfit==0){TP=0;} else{TP=Bid-TakeProfit*point;} if(StopLoss==0){SL=0;} else{SL=Bid+StopLoss*point;} OrderSend(Symbol(),OP_SELL,Lots,Bid,3,SL,TP,"",Mag icNumber,0,Red); } return(0); } //+------------------------------------------------------------------+ دالة اغلاق صفقة الشراء في حال ظهور اشارة معاكسة void CloseBuyOrders() { for (int cnt = 0 ; cnt < OrdersTotal() ;cnt++) { OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol()) { if (OrderType()==OP_BUY) { OrderClose(OrderTicket(),OrderLots(),Bid,3); } } } } ////////////////////////////////////////////////// دالة اغلاق صفقة البيع في حال ظهور اشارة معاكسة void CloseSellOrders() { for (int cnt = 0 ; cnt < OrdersTotal() ; cnt++) { OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol()) if (OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,3); } } دالة لجعل الاكسبيرت يفتح الصفقات بتسلسل اي لا يفتح صفقتين متتاليتين بيع او شراء int LastOrder(){ for(int i=OrdersHistoryTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_HISTORY); if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Ma gicNumber){ return(OrderType()); } } return(2); } [/PHP] |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
[PHP][PHP] if(indired<5000&&LastOrder()!=1&&orderstotal()<=1) { الخطا كان في <= والكتابة الصحيحة هي if(indired<5000&&LastOrder()!=1&&orderstotal()<1){[/PHP] بقي خطا واحد وهو في اغلاق عند الاشارة العكسية |
رد: دورة تعليم برمجة الاكسبريت
استاذ موفنج كيف الحال
والله لم افهم سبب الخطا لحد الساعة فكل دوال في مكانها والاكسبيرت لا يعطي اي خطا لكن رغم ذلك فدالة اغلاق الصفقات العكسية لم تفعل بحيث لو وضعته على الباك تيست يقوم الاكسبيرت بفتح صفقة اول ما يظهر المؤشر لكن لا يغلق الصفقة يتركها مفتوحة |
رد: دورة تعليم برمجة الاكسبريت
استاذي موفنج كيف الحال
الحمد لله قمت ببرمجة اكسبيرت ونجحة فيه بحيث قمت بعمل التريلنج وايضا خاصية اغلاق الصفقات عند الاشارة المعاكسة وايضا قمت ببرمجة اكسبيرت لمؤشر اخر لكن بينما كنت اريد مساعدة احد الاخوة صادفتني مشكلة وهو انه قام بطلب اكسبيرت لاحد المؤشرات يقوم على خطوط تشبه الدعوم والمقاومات فلما اردت العمل على المؤشر وجدت انه لا توجد فيه اندكسات لتعريفها في الاكسبيرت ولم استطع تعريف الخطوط وايضا دالة فتح صفقة بمجرد لمس السعر لاحد الخطوط http://www.fx-arabia.com/vb/uploaded...1365079484.png اعلم انك مشغول كثيرا فلو تكرمت وكان عندك وقت لشرح طريقة عمل اكسبيرت لهذا النوع من المؤشرات والا فارفق لي اي مؤشر واكسبيرت له نفس الفكرة لمحاولة دراسة دواله وبارك الله فيك |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
ان كانت الخطوط مرسومة بواسطة دالة الرسم CreateObject فتحتاج لعمل دالة خارجية تبحث لك عن اخر القيم للخط وان كانت الخطوط مرسومة بواسطة المصفوفات والكائنات الرسومية تحتاج فقط لاستدعائها استدعاء الالوان الخارجية في اعددات المؤشر ان شاء الله ساضع مثالين عن الطريقتين |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
التي توجد الرسوم فيها في الندكسات بحيث كل ما يتطلبه الامر هو استدعاء الرسم او الكائن من خلال اللون المعرف لكن في المثال المرفق لم استطع ان ابرمج الاكسبيرت حاول لمدة يومين لكن للاسف لم استطع بارك الله فيك وفي انتضارك |
رد: دورة تعليم برمجة الاكسبريت
هية كدا الدورة خلصت شكل الموضوع جامد وهبتدى بأول صفحة شكرا لموفينج عل مجهوده
|
رد: دورة تعليم برمجة الاكسبريت
وهية دى الدورة ال 2 ياريت لينك للدورة الاولى وشكرا تانى لموفينج
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
بارك الله فيك الدورة لم تنتهي |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
دورة تعلم البرمجة باحتراف |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
شكرا ليكى اخ موفينج وربنا يعينك زى ما بتساعدنا |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
شكرا ليكى اخ موفينج وربنا يعينك زى ما بتساعدنا |
رد: دورة تعليم برمجة الاكسبريت
السلام عليكم و رحمة الله و بركاته.
أخي "موفنج أفرج" بارك الله فيك و في والديك وجزاكم الله خير الجزاء. ************************* عاوز استفسر استفسار صغير : أزاي في البرنامج اقدر اعرف انا خسرت في الصفقه اللى فاتت او كسبت و ازاي اعرف اللى باقي من الرصيد. علشان مثلا لو عاوز البرنامج يقف لو خسرت 10 مرات مثلا او وصل الرصيد ل 50 دولاي مثلا. و شكرا. |
رد: دورة تعليم برمجة الاكسبريت
السلام عليكم حاولت ابرمج اكسبيرات لي مؤشر RIS وشروط الشراء والبيع هي قطع خط 50 في البيع و الشراء ولكن عندي مشكلة في الجورنال في الامر OrderSend
الكود [PHP]extern int StopLoss=250; extern int TakeProfit=250; extern double Lot=0.1; extern int Magic=15000; int point; int digits; int Q; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int init() { if(Digits==5||Digits==3)Q=10; else Q=1; if(Digits==2) { point=0.01; } if(Digits==4) { point=0.0001; } if(Digits==3) { point=0.01; } if(Digits==5) { point=0.0001; } return(0); } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- return(0); } //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { double Ris1,Ris2; double SL,TP; Ris1=iRSI(Symbol(),PERIOD_M15,14,PRICE_CLOSE,1); Ris2=iRSI(Symbol(),PERIOD_M15,14,PRICE_CLOSE,2); if(Ris1>50&&Ris2<50&&OrdersTotal()==0) { if(StopLoss==0){SL=0;}else{SL=Ask-StopLoss*point;} if(TakeProfit==0){TP=0;}else{TP=Ask+TakeProfit*poi nt;} OrderSend(Symbol(),OP_BUY,Lot,Ask,Q*3,SL,TP,"EA",M agic,0,Green); } if(Ris1<50&&Ris2>50&&OrdersTotal()==0) { if(StopLoss==0){SL=0;}else{SL=Bid+StopLoss*point;} if(TakeProfit==0){TP=0;}else{TP=Bid-TakeProfit*point;} OrderSend(Symbol(),OP_SELL,Lot,Bid,Q*3,SL,TP,"EA", Magic,0,Red); } } return(0);[/PHP] علما عند مسح كود تعريف الهدف والاستوب لوس وجعل الاستوب والهدف في الدلة OrderSend يشتغل الاكسبيرات بدون مشاكل مثال علي الكود [PHP]OrderSend(Symbol(),OP_BUY,Lot,Ask,3,Ask+250*Point, Ask-250*Point,"EA",Magic,0,Green);[/PHP] :1 (88): |
رد: دورة تعليم برمجة الاكسبريت
صورة من الخطا في الجورنال
http://www.fx-arabia.com/vb/uploaded...1365920515.png |
رد: دورة تعليم برمجة الاكسبريت
:1 (104)::1 (88):
|
رد: دورة تعليم برمجة الاكسبريت
1 مرفق
السلام عليكم اخي مصطفي عندي اكسبيرات لا يشتغل علي منصة الخمس ارقام ياريت يتم التعديل فية وشكرا مرفق الاكسبيرات
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
لا تقبل انزال اوامر مع تحديد الهدف والخسارة مسبقا الحل انك تنزل الامر بدون هدف ولا وقف خسارة ثم تغير الهدف ووقف الخسارة |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
مثلا لم تحدد كم عقد يمكن ان يفتح الاكسبريت فيقوم بفتح صفقات لا تنتهي |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
مثلا يمكن معرفة اخر صفقة اغلقة اما رابحة او خاسرة بعدة طرق من بين هته الطرق مراجعة ربح الصفقة ان كان سالب يعني ان الصفقة خسرت |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
بما ان الموضوع تعليمي ساريك طريقة حذف الاخطاء احسن اولا استعمل هذه الدالة لفتح اي صفقة لكي ترتاح من مشاكل ECN [PHP] int open(int ty,double lot,double prc,int pof,int sll) { double sl=0,tp=0; color clr; bool modi; string T;double pr; if(ty==OP_BUY || ty==OP_BUYSTOP || ty==OP_BUYLIMIT) { if(sll>0){sl=prc-(sll*point);}else{sl=0;} if(pof>0){tp=prc+(pof*point);}else{tp=0;} clr=Green; T="Ask "; pr=NormalizeDouble(Ask,Digits); } if(ty==OP_SELL || ty==OP_SELLSTOP || ty==OP_SELLLIMIT) { if(sll>0){sl=prc+(sll*point);}else{sl=0;} if(pof>0){tp=prc-(pof*point);}else{tp=0;} clr=Red; T="Bid"; pr=NormalizeDouble(Bid,Digits); } int tik=OrderSend(Symbol() ,ty ,lot ,NormalizeDouble(prc,Digits) ,10 ,0 ,0 ,"" ,MagicNumber ,0 ,clr); string t; if(ty==OP_BUY)t="BUY";if(ty==OP_SELL)t="SELL";if(t y==OP_BUYSTOP)t="BUY STOP";if(ty==OP_SELLSTOP)t="SELL STOP";if(ty==OP_BUYLIMIT)t="BUY LIMIT";if(ty==OP_SELLLIMIT)t="SELL LIMIT"; if(tik>0) { if(tp>0 || sl>0)modi=OrderModify(tik,prc,NormalizeDouble(sl,D igits),NormalizeDouble(tp,Digits),0,CLR_NONE); else modi=true; if(!modi){Print("Modify Err#= ",GetLastError()," ",Symbol()," ",Period()," Open Price= ",DoubleToStr(prc,Digits)," SL= ",DoubleToStr(sl,Digits)," Tp= ",DoubleToStr(tp,Digits));} Print("Order Opened successfully " ,"Type ",t," LotSize ",lot," Price ",DoubleToStr(prc,Digits)," TP ",DoubleToStr(tp,Digits)," SL ",DoubleToStr(sl,Digits)); } else { Print("OrderSend failed with error #",GetLastError(), " Type ",t," LotSize= ",lot," ",T,"Now= ",DoubleToStr(pr,Digits)," Price= ",DoubleToStr(prc,Digits)," TP= ",DoubleToStr(tp,Digits)," SL= ",DoubleToStr(sl,Digits)," Spread= ",MarketInfo(Symbol(),MODE_SPREAD)); } ////// return(tik); } [/PHP] مثلا لو تريد فتح عملية BUY اكتب فقط [PHP] open(OP_BUY,Lots,Ask,TakeProfit,StopLoss) ; [/PHP] |
رد: دورة تعليم برمجة الاكسبريت
لكي ترتاح من مشكلة 5 ارقام
غير اي كتابة ملونة للكلمة Point وجعلها فقط point ب حرف p الصغير وليس حرف P الكبير بعدما تضع التالي في دالة init [PHP] if(Digits==5||Digits==3)Q=10; else Q=1; if(Digits==2) { point=0.01; } if(Digits==4) { point=0.0001; } if(Digits==3) { point=0.01; } if(Digits==5) { point=0.0001; } [/PHP]جرب ضع التعديلات بنفسك وان لم تشتغل معك ساعدل لك في الاكسبريت |
رد: دورة تعليم برمجة الاكسبريت
1 مرفق
اقتباس:
[PHP]extern int StopLoss=100; extern int TakeProfit=10; extern double Lot=0.10; extern int Magic=14000; int point,digits; int Q; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int init() { if(Digits==5||Digits==3)Q=10; else Q=1; if(Digits==2) { point=0.01; } if(Digits==4) { point=0.0001; } if(Digits==3) { point=0.01; } if(Digits==5) { point=0.0001; } return(0); } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { double STOK1,STOK2; STOK1=iStochastic(Symbol(),PERIOD_M1,5,3,3,0,0,MOD E_MAIN,3); STOK2=iStochastic(Symbol(),PERIOD_M1,5,3,3,0,0,MOD E_MAIN,3); if(STOK1<15&&OrdersTotal()==0) { OrderSend(Symbol(),OP_BUY,Lot,Ask,Q*3,Ask*point,As k*point,"AYOOB",Magic,0,Green); } if(STOK2>85&&OrdersTotal()==0) { OrderSend(Symbol(),OP_SELL,Lot,Bid,Q*3,Bid*point,B id*point,"AYOOB",Magic,0,Red); }[/PHP]http://www.fx-arabia.com/vb/uploaded...1366119577.png و بي النسبة لي الاكسبيرات الدي في المرفقات ليس ان الدي برمجتة فقط كنت اريد التعديل علية ليشتغل علي كل المنصات والتاكد انة يفتح الصفقات عادي مرفق الاكسبيرات |
رد: دورة تعليم برمجة الاكسبريت
تفضل تعديل فتح الصفقات
[PHP] //+------------------------------------------------------------------+ //| Stok_scalper_EA.mq4 | //| Copyright 2013, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright 2013, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" extern int MagicNumber=1011; extern double lStopLoss = 100; extern double sStopLoss = 100; extern double lTakeProfit = 10; extern double sTakeProfit = 10; extern string jj="------"; extern int StopLoss=100; extern int TakeProfit=10; extern color clOpenBuy = Blue; extern color clCloseBuy = Aqua; extern color clOpenSell = Red; extern color clCloseSell = Violet; extern color clModiBuy = Blue; extern color clModiSell = Red; extern string Name_Expert = "Stok_scalper EA"; extern int Slippage = 0; extern bool UseHourTrade = True; extern int FromHourTrade = 0; extern int ToHourTrade = 23; extern bool UseSound = True; extern string NameFileSound = "alert.wav"; extern double Lots = 2; int digits,Q; double point; int init() { if(Digits==5||Digits==3)Q=10; else Q=1; if(Digits==2) { point=0.01; digits=2; } if(Digits==4) { point=0.0001; digits=4; } if(Digits==3) { point=0.01; digits=3; } if(Digits==5) { point=0.0001; digits=5; } return(0); } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } int start() { if (UseHourTrade){ if (!(Hour()>=FromHourTrade && Hour()<=ToHourTrade)) { Comment("Time for trade has not come else!"); return(0); } else Comment(""); }else Comment(""); if(Bars<100){ Print("bars less than 100"); return(0); } if(lStopLoss<10){ Print("StopLoss less than 10"); return(0); } if(lTakeProfit<10){ Print("TakeProfit less than 10"); return(0); } if(sStopLoss<10){ Print("StopLoss less than 10"); return(0); } if(sTakeProfit<10){ Print("TakeProfit less than 10"); return(0); } double diStochastic0=iStochastic(NULL,60,5,3,3,MODE_EMA,P RICE_CLOSE,MODE_MAIN,3); double d1=(15); double diStochastic2=iStochastic(NULL,60,5,3,3,MODE_EMA,P RICE_CLOSE,MODE_MAIN,3); double d3=(85); if(AccountFreeMargin()<(1000*Lots)){ Print("We have no money. Free Margin = ", AccountFreeMargin()); return(0); } if (!ExistPositions()){ if ((diStochastic0<d1)){ open(OP_BUY,Lots,Ask,TakeProfit,StopLoss) ; return(0); } if ((diStochastic2>d3)){ open(OP_SELL,Lots,Bid,TakeProfit,StopLoss) ; 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()==MagicNumber) { return(True); } } } return(false); } /* void ModifyStopLoss(double ldStopLoss) { bool fm; fm = OrderModify(OrderTicket(),OrderOpenPrice(),ldStopL oss,OrderTakeProfit(),0,CLR_NONE); if (fm && UseSound) PlaySound(NameFileSound); } */ 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,MagicNumber,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,MagicNumber,0,clOpenSell); if (UseSound) PlaySound(NameFileSound); } string GetCommentForOrder() { return(Name_Expert); } double GetSizeLot() { return(Lots); } double GetStopLossBuy() { return (Bid-lStopLoss*Point);} double GetStopLossSell() { return(Ask+sStopLoss*Point); } double GetTakeProfitBuy() { return(Ask+lTakeProfit*Point); } double GetTakeProfitSell() { return(Bid-sTakeProfit*Point); } //+------------------------------------------------------------------+ int open(int ty,double lot,double prc,int pof,int sll) { double sl=0,tp=0; color clr; bool modi; string T;double pr; if(ty==OP_BUY || ty==OP_BUYSTOP || ty==OP_BUYLIMIT) { if(sll>0){sl=prc-(sll*point);}else{sl=0;} if(pof>0){tp=prc+(pof*point);}else{tp=0;} clr=Green; T="Ask "; pr=NormalizeDouble(Ask,Digits); } if(ty==OP_SELL || ty==OP_SELLSTOP || ty==OP_SELLLIMIT) { if(sll>0){sl=prc+(sll*point);}else{sl=0;} if(pof>0){tp=prc-(pof*point);}else{tp=0;} clr=Red; T="Bid"; pr=NormalizeDouble(Bid,Digits); } int tik=OrderSend(Symbol() ,ty ,lot ,NormalizeDouble(prc,Digits) ,10 ,0 ,0 ,"" ,MagicNumber ,0 ,clr); string t; if(ty==OP_BUY)t="BUY";if(ty==OP_SELL)t="SELL";if(t y==OP_BUYSTOP)t="BUY STOP";if(ty==OP_SELLSTOP)t="SELL STOP";if(ty==OP_BUYLIMIT)t="BUY LIMIT";if(ty==OP_SELLLIMIT)t="SELL LIMIT"; if(tik>0) { if(tp>0 || sl>0)modi=OrderModify(tik,prc,NormalizeDouble(sl,D igits),NormalizeDouble(tp,Digits),0,CLR_NONE); else modi=true; if(!modi){Print("Modify Err#= ",GetLastError()," ",Symbol()," ",Period()," Open Price= ",DoubleToStr(prc,Digits)," SL= ",DoubleToStr(sl,Digits)," Tp= ",DoubleToStr(tp,Digits));} Print("Order Opened successfully " ,"Type ",t," LotSize ",lot," Price ",DoubleToStr(prc,Digits)," TP ",DoubleToStr(tp,Digits)," SL ",DoubleToStr(sl,Digits)); } else { Print("OrderSend failed with error #",GetLastError(), " Type ",t," LotSize= ",lot," ",T,"Now= ",DoubleToStr(pr,Digits)," Price= ",DoubleToStr(prc,Digits)," TP= ",DoubleToStr(tp,Digits)," SL= ",DoubleToStr(sl,Digits)," Spread= ",MarketInfo(Symbol(),MODE_SPREAD)); } ////// return(tik); } [/PHP] |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
[PHP]double lStopLoss = 1000; double sStopLoss = 1000; double lTakeProfit = 100; double sTakeProfit = 100;[/PHP] |
رد: دورة تعليم برمجة الاكسبريت
يعطيك الف عافية اخي موفنج
|
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
اظهار حاله الصفقة الماضية في commment إيقاف البرنامج في حالة أن الرصيد أصبح أقل من 50 دولار. إيقاف البرنامج في حالة خسارة عشر صفقات. ********************* |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
حالة الصفقة يعني لو كان يعني اضهار ربح الصفقة الماضية سنستخدم الدالة التالية خارج الدالة ستارت [PHP] double pofet_HISTORY(){ double pr=0; for(int p=0;p<OrdersHistoryTotal();p++){ OrderSelect(p,SELECT_BY_POS,MODE_HISTORY); if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol()) pr=OrderProfit(); } return(pr); } [/PHP] سنكتب داخل الدالة ستارت الامر [PHP] Comment(pofet_HISTORY()); [/PHP] يضهر لنا هل ربح او خسارة الصفقة الماضية كيف اعرف ربح او خسارة اذا مانت النتيجة موجبة فهو ربح ان كانت سالبة فهو خسارة |
رد: دورة تعليم برمجة الاكسبريت
اقتباس:
اولا لكي نحصل علي الرصيد نستخدم التالي [PHP] AccountBalance() [/PHP] لكي نتحكم في عمل الاكسبريت اعتماد علي الرصيد نضع من شروط فتح الصفقات [PHP] if(AccountBalance()>50) [/PHP] |
الساعة الآن 05:39 PM |
Powered by vBulletin® Copyright ©2000 - 2025
جميع الحقوق محفوظة الى اف اكس ارابيا www.fx-arabia.com