Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
' *************************************** public sub vorbereitung ' *************************************** ' den Netto Profit je Trade aus den Testergebnissen ableiten Trade_nr=0 for i = 1 to TradeAnzahl if TradeErgebnis(i, eTradeInfo.Position)<>0 then ' keine Outposition Trade_nr=Trade_nr+1 ' merken wieviele trades real vorhanden sind profit(Trade_nr)=(TradeErgebnis(i,eTradeInfo.InvestEnd) - TradeErgebnis(i,eTradeInfo.InvestStart)) end if next end Sub |
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 |
option explicit Dim Fehler,i Fehler=0 for i = 1 to TradeAnzahl if TradeErgebnis(i, eTradeInfo.Position)<> 0 Then Fehler= Fehler+(TradeErgebnis(i,eTradeInfo.InvestEnd) - TradeErgebnis(i,eTradeInfo.InvestStart)) end ifnext Ergebnis = Fehler |