'----------------------------
    '----------------------------
    ' Base strategy
    '----------------------------
    '----------------------------
    
    ' cond_buy_buystrategy
    cond_buy_buystrategy = _
         (xmean_2 > xmean_3) And _
         (slopexmean_2 > SIMML2) And _
         (slopexmean_4 > SIMML4) And _
         (slopexmean_6 > SIMML6)
         
    ' cond_break_buystrategy
    cond_break_buystrategy = _
         (xmean_2 < xmean_3) And _
         (slopexmean_1 < SIMML1E) And _
         (slopexmean_2 < SIMML2E) And _
         (slopexmean_6 < SIMML6E)
         
    ' cond_sell_sellstrategy
    cond_sell_sellstrategy = _
         (xmean_2 < xmean_3) And _
         (slopexmean_1 < SIMML1S) And _
         (slopexmean_3 < SIMML3S) And _
         (slopexmean_6 < SIMML6S)
         
    ' cond_break_sellstrategy
    cond_break_sellstrategy = _
         (slopexmean_3 > SIMML3ES) And _
         (slopexmean_5 > SIMML5ES)

automated trading - code vba 4

Visual Basic