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

**MR.dollar** · 07-01-2015, 02:04 AM

المشاركة الأصلية كتبت بواسطة اعصار ريتا

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

كود PHP:

 extern bool  UseTimeFilter = false;        
 extern int  StartHour = 7;            
 extern int  EndHour = 17;  
 extern int max=1;
 extern string S3=" RSI1 Settings";
extern bool usersi1filter=false;
 extern int timeframe1=0;
 extern int RSIPeriod1=14;
 extern int rsi1buyup=70;
 extern int rsi1buydown=30;
 extern int rsi1sellup=70;
 extern int rsi1selldown=30;
 extern int candl1=0;
 
 extern string S1=" Multiplier Settings";
 extern bool UseMultiplier=false;
 extern double Multiplier=0.9;
 extern double MinLot=0;
 extern double num=0.01;
 extern string  MM_Parameters = " Money Management";
                                       
 extern bool  UseMoneyManagement = false;                                                
 extern int  RiskPercent = 10; 
 extern double Lots=1;
 
extern string S5875="normal tp-sl";
extern int StopLoss=0;
extern int TakeProfit=50;
extern int Slippage=3;
 extern int MagicNumber=09876;
 datetime Time0;
 double point;int Q;
 int digits;
 int Lot_Digits;
 double LastLot;
 double FirstLot;
int init()
{
FirstLot=Lots;
 if(MarketInfo(Symbol(),MODE_MINLOT)<0.1)Lot_Digits=2;
 else Lot_Digits=1;
 if(Digits==5||Digits==3)
 Q=10;
 else Q=1;
    if(Digits<4)
   {
      point=0.01;digits=2;
   }
   else
   {
   point=0.0001;digits=4;
   }
return(0);
}
 //+------------------------------------------------------------------+
 //| FUNCTION DEFINITIONS    deinitialization function                |
 //+------------------------------------------------------------------+
 void deinit() {
    Comment("");
  }
 int orderscnt(int type){
 int cnt=0;
   for(int i =0;i<OrdersTotal();i++){
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
       if(OrderSymbol()==Symbol() && MagicNumber==OrderMagicNumber()&&OrderType()==type){
         cnt++;
       }
     }
   }
    return(cnt);
  }
 //+------------------------------------------------------------------+
 //| FUNCTION DEFINITIONS   Start function                            |
 //+------------------------------------------------------------------+
 
 int start()
   {
   Comment("Programmed by MR.dollar"+"\n"+"Idea Created By &Otilde;&Iuml;&Ccedil;&atilde;"+"\n"+"&atilde;&auml;&Ecirc;&Iuml;&igrave; &Ccedil;&aacute;&atilde;&Ecirc;&Iuml;&Ccedil;&aelig;&aacute; &Ccedil;&aacute;&Uacute;&Ntilde;&Egrave;&iacute;"+"\n"+"www.arabictrader.com/vb","--");
 
      if (UseTimeFilter){
       if(!((StartHour < EndHour && TimeHour(TimeCurrent()) >= StartHour && TimeHour(TimeCurrent()) < EndHour) || (StartHour > EndHour && TimeHour(TimeCurrent()) >= StartHour ||
               TimeHour(TimeCurrent()) < EndHour))){
           Comment("Non-Trading Hours!");
           return(0);
         }
       }
     
    
       //////////////////////////////////////////////////
       
      
      double rsi1=iRSI(NULL,timeframe1,RSIPeriod1,PRICE_CLOSE,candl1);
       
   ////////////////////////////////////////////////////
      double SL,TP; 
      
     
     if(UseMoneyManagement) Lots = LotManage();
    
    ////////////////////////////////
   
          
    if (((rsi1>rsi1buyup||!usersi1filter)||(rsi1<rsi1buydown||!usersi1filter))&&
        
     Time0!=Time[0] ){
       
      if(LastOrderType()!=0)  {
       
       if(StopLoss==0){SL=0;}else{SL=Ask-StopLoss*point;}
       if(TakeProfit==0){TP=0;}else{TP=Ask+TakeProfit*point;}
       if(UseMultiplier&&!LP())Lots=LastLot1()+Multiplier;    
            OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,digits),3*Q,SL,TP,"MR.dollar EA",MagicNumber,0,Blue);
             PlaySound("Alert.wav");
             Time0=Time[0];
             Lots=LastLot1()-num;
          }
       }
       
    /////////////////////
    
   if (((rsi1>rsi1sellup||!usersi1filter)||(rsi1<rsi1selldown||!usersi1filter))&&(LastOrderType()!=1)&&
   
   
    Time0!=Time[0]  ){
       
   if(LastOrderType()!=1)   {
     
       if(StopLoss==0){SL=0;}else{SL=Bid+StopLoss*point;}
       if(TakeProfit==0){TP=0;}else{TP=Bid-TakeProfit*point;}  
       if(UseMultiplier&&!LP())Lots=LastLot1()+Multiplier;
            OrderSend(Symbol(),OP_SELL,Lots,NormalizeDouble(Bid,digits),3*Q,SL,TP,"MR.dollar EA",MagicNumber,0,Red); 
             PlaySound("Alert.wav");
            Time0=Time[0]; 
            Lots=LastLot1()-num;
             
          }
       }
    }
   
  
//+------------------------------------------------------------------+
    
  
 //+------------------------------------------------------------------+
 //| FUNCTION DEFINITIONS   Money Managment                           |
 //+------------------------------------------------------------------+ 
  double LotManage()
  {
      double lot = MathCeil(AccountFreeMargin() *  RiskPercent / 1000) / 100; 
   
   if(lot<MarketInfo(Symbol(),MODE_MINLOT))lot=MarketInfo(Symbol(),MODE_MINLOT);
   if(lot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
   
    
    return (lot);
  }
 //+---------------------------------------------------------------------------------+
 
   bool LP(){
 for(int i=OrdersHistoryTotal();i>0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber){
if(OrderProfit()>=0)return(true);
else return(false);
  }
 }
 return(true);
}
double LastLot1(){
double L;
for(int i=0;i<OrdersHistoryTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber){
 L=OrderLots();
  }
 }
 return(L);
 }
 
 int LastOrderType()
{
for(int i=OrdersTotal()-1;i>=0;i--)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
return(OrderType());
}
return(-1);
}

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

كود PHP:

 if(UseMultiplier){
        if(!LP())Lots=LastLot1()+Multiplier;  
        else Lots=LastLot1()-num;
       }

**اعصار ريتا** · 07-01-2015, 02:57 AM

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

**Algo_Master** · 08-01-2015, 12:47 AM

السلام عليكم و رحمه الله و بركاته
دلونى يا اهل العلم و الخير
على مواضيع او مشاركات او مرفقات او شرح من كريم منكم للمتغيرات الglobal حول كيفيه انشائها و استدعائها برمجيا
حيث انى مش قادر اوجد اى نتائج بطرق البحث عن هذا الموضوع فى منتداكم الكريم
و لكم جزيل الشكر و العرفان

**lion666666** · 08-01-2015, 01:38 AM

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

**Algo_Master** · 08-01-2015, 10:19 AM

لك كل الشكر و العرفان LION666666

و ان لم اكن ثقيلا عليكم , ممكن مثال على جزء برمجى من اكسبيرت او مؤشر ( لانشاء و استدعاء القيمه )

لكم كل الشكر والله حتى و ان لم اجد من يعطى المثال

**اعصار ريتا** · 08-01-2015, 11:57 AM

**Algo_Master** · 08-01-2015, 07:54 PM

اعصار ربنا جه بالخير

شكرا لربنا و لاعصار ربنا و لكل حبايب ربنا

**first_knight** · 09-01-2015, 02:15 PM

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

كود:

//+------------------------------------------------------------------+
//|                                             buy_sell_By_line.mq4 |
//|                        Copyright 2015, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2015, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict

double A;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
      if(Digits==3||Digits==5)A=10; else A=1;
      
      double Up   =Ask + 20*A*Point;
      double Down =Bid - 20*A*Point;
      
      draw_Horizontal_Line("Up",Up,Yellow);
      draw_Horizontal_Line("Down",Down,Yellow); 
      
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  
    ObjectDelete("Up");
    ObjectDelete("Down");
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
  
   
  }
//+------------------------------------------------------------------+
 void draw_Horizontal_Line(string name, double price,color _Color)
  {
     if(ObjectFind(name) != 0)
        {
         ObjectCreate(name, OBJ_HLINE, 0, 0,price);
         ObjectSet(name, OBJPROP_COLOR, _Color);
         ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
          ObjectSet(name, OBJPROP_WIDTH, 2);
        }
  }

**amazing** · 09-01-2015, 05:09 PM

المشاركة الأصلية كتبت بواسطة amazing

عاجل استاذ اسامه طلب واحد فقط و لا اثقل عليك و الاهم:

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

if(hisacc(l_symbol_28)>0&&use_multi_after_lose==tr ue) {double mlot=hisacc(l_symbol_28)*multi_after_lose; l_lots_84=mlot;}

https://forum.arabictrader.com/t212681.html

ليه استاذ اسامه ما فيش رد من حضرتك ارجوك ان لا تتجاهلني و شكرا

**صلاح الدين الفوركساوى** · 11-01-2015, 06:20 AM

ممكن كود يظهر الرصيد والايكوتى وحجم لوتات العقود المفتوحة

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

ولو امكن يكون لون الكتابة ازرق

**MR.dollar** · 11-01-2015, 09:19 PM

المشاركة الأصلية كتبت بواسطة amazing

ليه استاذ اسامه ما فيش رد من حضرتك ارجوك ان لا تتجاهلني و شكرا

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

**MR.dollar** · 11-01-2015, 09:24 PM

المشاركة الأصلية كتبت بواسطة صلاح الدين الفوركساوى

ممكن كود يظهر الرصيد والايكوتى وحجم لوتات العقود المفتوحة

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

ولو امكن يكون لون الكتابة ازرق

راجع كود الإكسبرت المرفق سوف يظهر أكثر من بيانات
ويمكنك التحكم في مكان ظهور البيانات من الخيار Corner بحيث تظهر القيم في أي ركن من الشاشه
Corner=3 يعني أسفل اليمين

**first_knight** · 11-01-2015, 09:32 PM

المشاركة الأصلية كتبت بواسطة first_knight

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

كود:

//+------------------------------------------------------------------+
//|                                             buy_sell_By_line.mq4 |
//|                        Copyright 2015, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2015, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict

double A;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
      if(Digits==3||Digits==5)A=10; else A=1;
      
      double Up   =Ask + 20*A*Point;
      double Down =Bid - 20*A*Point;
      
      draw_Horizontal_Line("Up",Up,Yellow);
      draw_Horizontal_Line("Down",Down,Yellow); 
      
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  
    ObjectDelete("Up");
    ObjectDelete("Down");
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
  
   
  }
//+------------------------------------------------------------------+
 void draw_Horizontal_Line(string name, double price,color _Color)
  {
     if(ObjectFind(name) != 0)
        {
         ObjectCreate(name, OBJ_HLINE, 0, 0,price);
         ObjectSet(name, OBJPROP_COLOR, _Color);
         ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
          ObjectSet(name, OBJPROP_WIDTH, 2);
        }
  }

اعادة الرفع للتذكرة

**QtrrtQ** · 12-01-2015, 02:25 AM

المشاركة الأصلية كتبت بواسطة QtrrtQ

السلام عليكم
اريد كود يقوم بعمل copy للفايل من مجلد الميتاتريدر الى مجلد آخر
مثال
MQL4/file/data.csv
إلى مسار آخر
C:\aaa\data.csv
ولكم جزيل الشكر

للتذكير

**MR.dollar** · 12-01-2015, 07:33 AM

المشاركة الأصلية كتبت بواسطة first_knight

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

كود:

//+------------------------------------------------------------------+
//|                                             buy_sell_By_line.mq4 |
//|                        Copyright 2015, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2015, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
 
double A;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
      if(Digits==3||Digits==5)A=10; else A=1;
      
      double Up   =Ask + 20*A*Point;
      double Down =Bid - 20*A*Point;
      
      draw_Horizontal_Line("Up",Up,Yellow);
      draw_Horizontal_Line("Down",Down,Yellow); 
      
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  
    ObjectDelete("Up");
    ObjectDelete("Down");
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
  
   
  }
//+------------------------------------------------------------------+
 void draw_Horizontal_Line(string name, double price,color _Color)
  {
     if(ObjectFind(name) != 0)
        {
         ObjectCreate(name, OBJ_HLINE, 0, 0,price);
         ObjectSet(name, OBJPROP_COLOR, _Color);
         ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
          ObjectSet(name, OBJPROP_WIDTH, 2);
        }
  }

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

كود PHP:

 draw_time=TimeCurrent();

ثم ستضيف شرط داخل الداله OnTick

كود PHP:

 if(TimeCurrent()-draw_time>=60)
   {
    ObjectDelete("up");
    ObjectDelete("Down");
   }

60 هي عدد الثواني يمكن تغييرها حسب ما تريد

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

أدوات الموضوع

المواضيع المتشابهه

موضوع مخصص للاكسبيرتات اللتي يستخدمها الاعضاء على الحقيقي,,عندك اكسبيرت ممتاز ضعه هنا

عااااااااااااجل ( موضوع مخصص للفرص الفورية)!!!

الاوسمة لهذا الموضوع

عروض شركات الفوركس