Ini Codingnya ... korang test dan develop sama2
//+------------------------------------------------------------------+
//| CrazypipsPFI.mq4 |
//| Copyright © 2010, MetaQuotes Software Corp. |
//|
http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
//---- input parameters
extern double UseMargin=50;
extern string Pair1="GBPUSD";
extern string Pair2="USDJPY";
extern double ClosePercent=10;
string Simbol;
int OPBuy,OPSell,ClosePost;
int MagicNo = 332211;
double Points,Lots;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start(){
Simbol=Symbol();
RefreshRates();
if(Digits==5) Points = 0.0001;
else if(Digits==3) Points = 0.01;
else Points=Point;
double bidPair1 = MarketInfo(Pair1,MODE_BID);
double bidPair2 = MarketInfo(Pair2,MODE_BID);
double bidSimbol = MarketInfo(Simbol,MODE_BID);
double askPair1 = MarketInfo(Pair1,MODE_ASK);
double askPair2 = MarketInfo(Pair2,MODE_ASK);
double askSimbol = MarketInfo(Simbol,MODE_ASK);
double bidResult =NormalizeDouble(bidPair1*bidPair2,Digits);
int TotalBuyPair1,TotalSellPair1;
for (int ij=OrdersTotal();ij>=0; ij--){
if (OrderSelect(ij, SELECT_BY_POS)==true) {
if (OrderSymbol()==Pair1) {
if( OrderMagicNumber()==MagicNo){
if(OrderType()==OP_BUY){TotalBuyPair1++;}
if(OrderType()==OP_SELL){TotalSellPair1++;}
}
}
}
}
int TotalBuyPair2,TotalSellPair2;
for (int ix=OrdersTotal();ix>=0; ix--){
if (OrderSelect(ix, SELECT_BY_POS)==true) {
if (OrderSymbol()==Pair2) {
if( OrderMagicNumber()==MagicNo){
if(OrderType()==OP_BUY){TotalBuyPair2++;}
if(OrderType()==OP_SELL){TotalSellPair2++;}
}
}
}
}
int TotalBuySimbol,TotalSellSimbol;
for (int ib=OrdersTotal();ib>=0; ib--){
if (OrderSelect(ib, SELECT_BY_POS)==true) {
if (OrderSymbol()==Simbol) {
if( OrderMagicNumber()==MagicNo){
if(OrderType()==OP_BUY){TotalBuySimbol++;}
if(OrderType()==OP_SELL){TotalSellSimbol++;}
}
}
}
}
if(UseMargin<0)Alert("Sila betulkan Use Margin Anda");
else
Lots = NormalizeDouble(((AccountEquity()*(UseMargin/100))/1000)/3,2);
double Profit=AccountEquity()-AccountBalance();
double Percent = NormalizeDouble(ClosePercent/100,2);
double ProfitClose = AccountEquity()*Percent;
if(OrdersTotal()<1) ClosePost=0;
if(Profit>=ProfitClose) ClosePost=1;
if(ClosePost==1){
for (int iz=OrdersTotal();iz>=0; iz--){
if (OrderSelect(iz, SELECT_BY_POS)==true) {
if (OrderType()==OP_SELL)
OrderClose(OrderTicket(),OrderLots(),Ask,5,Red);
if (OrderType()==OP_BUY)
OrderClose(OrderTicket(),OrderLots(),Bid,5,Blue);
if (OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT ||
OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT)
OrderDelete(OrderTicket(),CLR_NONE);
}
ClosePost=1;
}
}
if(bidSimbol>bidResult){OPBuy++;OPSell=0;}
else if(bidSimbol<bidResult){OPBuy=0;OPSell++;}
else {OPBuy=0;OPSell=0;}
if(OrdersTotal()<1){
if(OPBuy==1){
OrderSend(Pair1,OP_BUY,Lots,askPair1,5,0,0,"",MagicNo,0,Blue);
}
if(OPSell==1){
OrderSend(Pair1,OP_SELL,Lots,askPair1,5,0,0,"",MagicNo,0,Red);
}
}
if(TotalBuyPair1>0 && TotalBuyPair2<1){
OrderSend(Pair2,OP_BUY,Lots,askPair2,5,0,0,"",MagicNo,0,Blue);
}
if(TotalBuyPair1>0 && TotalSellSimbol<1){
OrderSend(Simbol,OP_SELL,Lots,bidSimbol,5,0,0,"",MagicNo,0,Red);
}
if(TotalSellPair1>0 && TotalSellPair2<1){
OrderSend(Pair2,OP_SELL,Lots,bidPair2,5,0,0,"",MagicNo,0,Blue);
}
if(TotalSellPair1>0 && TotalBuySimbol<1){
OrderSend(Simbol,OP_BUY,Lots,askSimbol,5,0,0,"",MagicNo,0,Red);
}
Comment ("|| Profit : USD ",Profit," || Target Profit : USD ",ProfitClose ," || Lots : USD ",Lots, " ||");
return(0);
}
//+------------------------------------------------------------------+
//Korang Copy Dan paste Dalam MetaEditor .. pastu save