MT4實用函數

作者：MT4 來源：cxh99.com 發布時間：2012年05月16日

寫程序應該多多使用函數，這樣能夠提高編程的效率，下面是曾經用到的函數，將他們保存下來，供以后直接復制過去使用，這就不必每次都要重寫了。

//---顯示信息函數，因為創建了兩個對象，所以在退出時，應該刪除對象－－－－－－－－－－－－－－－－－
void showinfo(){
ObjectCreate("p1",OBJ_LABEL,0,0,0);
ObjectSetText("p1",Symbol()+" 帳戶余額:"+DoubleToStr(AccountBalance(),0)+" 帳戶凈值:"+DoubleToStr(AccountEquity(),0),18,"華文細黑",Yellow);
ObjectSet("p1",OBJPROP_XDISTANCE,10);
ObjectSet("p1",OBJPROP_YDISTANCE,40);

ObjectCreate("p2",OBJ_LABEL,0,0,0);
ObjectSetText("p2","EA-yunkaicn 自動交易系統已經啟動。時間:"+Month()+"月"+Day()+"日"+Hour()+"點"+Minute()+"分",18,"華文細黑",Yellow);
ObjectSet("p2",OBJPROP_XDISTANCE,10);
ObjectSet("p2",OBJPROP_YDISTANCE,10);
}

//---計算當前貨幣訂單數函數。
int CalculateCurrentOrders(string symbol)
{
int buys=0,sells=0;
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
{
if(OrderType()==OP_BUY) buys++;
if(OrderType()==OP_SELL) sells++;
}
}
if(buys>0) return(buys);
else return(-sells);
}

//---計算交易手數的函數。
double LotsOptimized()
{
if(AccountEquity()<300) return(0.1);
if(AccountEquity()>=300 && AccountEquity()<500) return(0.2);
if(AccountEquity()>=500 && AccountEquity()<1000) return(0.4);
if(AccountEquity()>=1000 && AccountEquity()<5000) return(0.6);
if(AccountEquity()>=5000 && AccountEquity()<10000) return(1);
if(AccountEquity()>=10000) return(5);
}

//---開倉函數。
void CheckForOpen()
{
Lots=0.1;
if(zo<minfan && ccip1<-ccipt && ccip2>=-ccipt)
{

res=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid + StopLoss*Point,Bid - TakeProfit*Point,"",MAGICMA,0,Red);
if(res>0)
{
if(OrderSelect(res,SELECT_BY_TICKET,MODE_TRADES))
Alert(Symbol(),"賣單已經開了,價格是:",OrderOpenPrice());
}
else Alert(Symbol(),"賣單開倉出錯:",ErrorDescription(GetLastError()));
return;
return;
}
if(zo>maxfan && ccip1>ccipt && ccip2<=ccipt)
{
res=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask - StopLoss*Point, Ask + TakeProfit*Point,"",MAGICMA, 0, Red);
if(res>0)
{
if(OrderSelect(res,SELECT_BY_TICKET,MODE_TRADES))
Alert(Symbol(),"買單已經開了,價格是:",OrderOpenPrice());
}
else Alert(Symbol(),"買單開倉出錯:",ErrorDescription(GetLastError()));
return;
}
}

//---平倉函數。
void CheckForClose()
{
Print("當前訂單的利潤：",OrderProfit(),"當前交易量（手）:",LotsOptimized());
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
if(OrderType()==OP_BUY)
{
if(Open[3]>=Close[3] && Open[2]>=Close[2] && Open[1]>=Close[1] )
OrderClose(OrderTicket(),OrderLots(),Bid,3,White);
}
if(OrderType()==OP_SELL)
{
if(Open[3]<=Close[3] && Open[2]<=Close[2] && Open[1]<=Close[1] )
OrderClose(OrderTicket(),OrderLots(),Ask,3,White);
}
}
}