رد: اكسبيرت من غير مؤشرات
 

السلام عليكم استاذ اسلام

طمني يالغالي كيف وضع الإكسبيرت، انا مستبشر خير خصوصا انك انت من سيبرمجه

رد: اكسبيرت من غير مؤشرات
 

اكسبرت شيق .... ان شاء الله نستفيد منه جميعا

رد: اكسبيرت من غير مؤشرات
 

أظن ان هذه هي صيغة الاكسبرت الذي تحتاجه
[LEFT

extern int MagicNumber=10001;
extern double Lots =0.1;
extern double StopLoss=2;
extern double TakeProfit=2;
extern int TrailingStop=2;
extern int Slippage=3;
//+------------------------------------------------------------------+
// expert start function
//+------------------------------------------------------------------+
int start()
{
double MyPoint=Point;
if(Digits==3 || Digits==5) MyPoint=Point*10;

double TheStopLoss=0;
double TheTakeProfit=0;
if( TotalOrdersCount()==0 )
{
int result=0;
if((Open[1]>Close[1])||(Open[1]<Close[1])) // Here is your open buy rule
{
result=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage ,0,0,"EA Generator www.ForexEAdvisor.com",MagicNumber,0,Blue);
if(result>0)
{
TheStopLoss=0;
TheTakeProfit=0;
if(TakeProfit>0) TheTakeProfit=Ask+TakeProfit*MyPoint;
if(StopLoss>0) TheStopLoss=Ask-StopLoss*MyPoint;
OrderSelect(result,SELECT_BY_TICKET);
OrderModify(OrderTicket(),OrderOpenPrice(),Normali zeDouble(TheStopLoss,Digits),NormalizeDouble(TheTa keProfit,Digits),0,Green);
}
return(0);
}
if((Open[1]>Close[1])||(Open[1]<Close[1])) // Here is your open Sell rule
{
result=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippag e,0,0,"EA Generator www.ForexEAdvisor.com",MagicNumber,0,Red);
if(result>0)
{
TheStopLoss=0;
TheTakeProfit=0;
if(TakeProfit>0) TheTakeProfit=Bid-TakeProfit*MyPoint;
if(StopLoss>0) TheStopLoss=Bid+StopLoss*MyPoint;
OrderSelect(result,SELECT_BY_TICKET);
OrderModify(OrderTicket(),OrderOpenPrice(),Normali zeDouble(TheStopLoss,Digits),NormalizeDouble(TheTa keProfit,Digits),0,Green);
}
return(0);
}
}

for(int cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL &&
OrderSymbol()==Symbol() &&
OrderMagicNumber()==MagicNumber
)
{
if(OrderType()==OP_BUY)
{
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>MyPoint*TrailingStop)
{
if(OrderStopLoss()<Bid-MyPoint*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*MyPoint,OrderTakeProfit(),0,Green);
return(0);
}
}
}
}
else
{
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(MyPoint*TrailingStop))
{
if((OrderStopLoss()>(Ask+MyPoint*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+MyP oint*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
return(0);
}

int TotalOrdersCount()
{
int result=0;
for(int i=0;i<OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS ,MODE_TRADES);
if (OrderMagicNumber()==MagicNumber) result++;

}
return (result);
}
][/LEFT]

رد: اكسبيرت من غير مؤشرات
 

شكرا على المبادره الطيبة اخي الكريم

انا لا علم لي بكيفية تحويلها إلى فايل فهل تتكرم بإرسالها كفايل

وشكرا لك على جهودك

رد: اكسبيرت من غير مؤشرات
 

Ahmed3f أنا حاولت أحولها لك فى شكل فايل بس فيها أخطاء برمجية كتير لن تعمل على المنصة إلا بعد تعديلها ولأنى لسه مبتدىء فى البرمجة مش هعرف أظبطهالك .
medfx .. شكرا لك على المبادرة الطيبة ولكن الفايل أنا حاولت أعمله compile فيه 22 خطأ .. هل أنت اللى برمجتها ولا ناسخها من موقع ؟ لو أنت اللى برمجتها يبقى الله ينور بس ارفقها فى شكل فايل بعد تصحيح الأخطاء و لو عندك دروس أو فايلات لتعلم البرمجة أرجو التكرم بإرسالها أو إرفاقها لإنى بتعلم البرمجة حاليا .. الحمد لله وصلت لمستوى معقول بعدّل فى بعض الأكسبرتات وبضيف عليها حاجات وبشيل حاجات بس لسه لم أقم ببرمجة أكسبرت كامل من الألف للياء .. الله يبارك لك لو عندك فايلات أو فيديوهات لتعلم البرمجة ياريت ترفقها أو ترفق روابطها .. وشكرا جزيلا لك

رد: اكسبيرت من غير مؤشرات
 

رد: اكسبيرت من غير مؤشرات
 

يعطيك الف عافية يالغالي

لك كامل الاحترام والتقدير