spacepaste

Paste details

reply | raw

  1.  
  2. //+------------------------------------------------------------------+
  3. //| My_First_EA.mq4 |
  4. //| Coders Guru |
  5. //| http://www.forex-tsd.com |
  6. //+------------------------------------------------------------------+
  7. #property copyright "Coders Guru"
  8. #property link "http://www.forex-tsd.com"
  10. //---- input parameters
  11. extern double TakeProfit=250.0;
  12. extern double Lots=0.1;
  13. extern double TrailingStop=35.0;
  14. //+------------------------------------------------------------------+
  15. //| expert initialization function |
  16. //+------------------------------------------------------------------+
  17. int init()
  18. {
  19. //----
  21. //----
  22. return(0);
  23. }
  24. //+------------------------------------------------------------------+
  25. //| expert deinitialization function |
  26. //+------------------------------------------------------------------+
  27. int deinit()
  28. {
  29. //----
  31. //----
  32. return(0);
  33. }
  35. int Crossed (double line1 , double line2)
  36. // I'm confused about initialization here ?
  37. // So only declared is required and then you can call it like seen below in isCrossed
  38. // Where isCrossed = Crossed(shortEMA,longEMA)?
  39. {
  40. static int last_direction = 0;
  41. static int current_dirction = 0;
  43. if(line1>line2)current_dirction = 1; //up
  44. if(line1<line2)current_dirction = 2; //down
  48. if(current_dirction != last_direction) //changed
  49. {
  50. last_direction = current_dirction;
  51. return (last_direction);
  52. }
  53. else
  54. {
  55. return (0);
  56. }
  57. }
  58. //+------------------------------------------------------------------+
  59. //| expert start function |
  60. //+------------------------------------------------------------------+
  61. int start()
  62. {
  63. //----
  66. int cnt, ticket, total;
  67. double shortEma, longEma;
  70. if(Bars<100)
  71. {
  72. Print("bars less than 100");
  73. return(0);
  74. }
  75. if(TakeProfit<10)
  76. {
  77. Print("TakeProfit less than 10");
  78. return(0); // check TakeProfit
  79. }
  82. shortEma = iMA(NULL,0,8,0,MODE_EMA,PRICE_CLOSE,0);
  83. longEma = iMA(NULL,0,13,0,MODE_EMA,PRICE_CLOSE,0);
  85. int isCrossed = Crossed (shortEma,longEma);
  87. total = OrdersTotal();
  88. if(total < 1)
  89. {
  90. if(isCrossed == 1)
  91. {
  92. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,"My EA",12345,0,Green);
  93. if(ticket>0)
  94. {
  95. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
  96. }
  97. else Print("Error opening BUY order : ",GetLastError());
  98. return(0);
  99. }
  100. if(isCrossed == 2)
  101. {
  103. ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"My EA",12345,0,Red);
  104. if(ticket>0)
  105. {
  106. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
  107. }
  108. else Print("Error opening SELL order : ",GetLastError());
  109. return(0);
  110. }
  111. return(0);
  112. }
  113. for(cnt=0;cnt<total;cnt++)
  114. {
  115. OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  116. if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
  117. {
  118. if(OrderType()==OP_BUY) // long position is opened
  119. {
  120. // should it be closed?
  121. if(isCrossed == 2)
  122. {
  123. OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
  124. return(0); // exit
  125. }
  126. // check for trailing stop
  127. if(TrailingStop>0)
  128. {
  129. if(Bid-OrderOpenPrice()>Point*TrailingStop)
  130. {
  131. if(OrderStopLoss()<Bid-Point*TrailingStop)
  132. {
  133. OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
  134. return(0);
  135. }
  136. }
  137. }
  138. }
  139. else // go to short position
  140. {
  141. // should it be closed?
  142. if(isCrossed == 1)
  143. {
  144. OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
  145. return(0); // exit
  146. }
  147. // check for trailing stop
  148. if(TrailingStop>0)
  149. {
  150. if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
  151. {
  152. if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
  153. {
  154. OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
  155. return(0);
  156. }
  157. }
  158. }
  159. }
  160. }
  161. }
  162. return(0);
  163. }
  164. //+------------------------------------------------------------------+
  165.  
Powered by spacepaste. Paste removal.