PAMM KOEF EA

ÿþ//+------------------------------------------------------------------+

//|                                                 PAMM KOEF EA.mq5 |

//|                              Copyright © 2019, Vladimir Karputov |

//|                                           http://wmua.ru/slesar/ |

//+------------------------------------------------------------------+

#property copyright "Copyright © 2019, Vladimir Karputov"

#property link      "http://wmua.ru/slesar/"

#property version   "1.00"

//---

#include <Trade\PositionInfo.mqh>

CPositionInfo  m_position;                   // trade position object

//--- input parameters

input double   InpCoefficient    = 0.1;      // Coefficient

input bool     InpOnlyThisSymbol = false;    // Only This Symbol

input long    InpMagic           = -1;       // Magic's ("-1" - all Magic's)

//---

datetime m_last_signal           = 0;        // "0" -> D'1970.01.01 00:00';

//+------------------------------------------------------------------+

//| Expert initialization function                                   |

//+------------------------------------------------------------------+

int OnInit()

  {

//---



//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

//---

   Comment("");

  }

//+------------------------------------------------------------------+

//| Expert tick function                                             |

//+------------------------------------------------------------------+

void OnTick()

  {

//---

   datetime time_current=TimeCurrent();

   if(time_current-m_last_signal>10)

     {

      string text="Symbol | Ticket | Type | Volume | Profit"+"\n";



      for(int i=PositionsTotal()-1; i>=0; i--)

         if(m_position.SelectByIndex(i)) // selects the position by index for further access to its properties

            if(((InpOnlyThisSymbol && m_position.Symbol()==Symbol()) || (!InpOnlyThisSymbol))

               && ((InpMagic>=0 && m_position.Magic()==InpMagic) || (InpMagic<0)))

              {

               string type=(m_position.PositionType()==POSITION_TYPE_BUY)?"buy":"sell";

               text=text+m_position.Symbol()+" | "+

                    IntegerToString(m_position.Ticket())+" | "+

                    type+" | "+

                    DoubleToString(m_position.Volume()*InpCoefficient,2)+" | "+

                    DoubleToString(m_position.Profit()*InpCoefficient,2)+"\n";

              }

      Comment(text);

      //---

      m_last_signal=time_current;

     }

  }

//+------------------------------------------------------------------+