Posted by Mohammad Rahhal, Last modified by Mohammad Ghawanmeh on 28 July 2015 10:50 AM



Public Sub AccumulativeSwingIndexOnArray(ByVal OpenAry As VariantByVal HighAry As VariantByVal LowAry As Variant,ByVal CloseAry As Variant, ByVal LimitMoveValue As Double, ByRef Result As Variant)

Procedure that calculate Accumulative Swing Index, based on custom array, and the result passed by result parameter as array, each index of the result array represent indicator value corresponds to that index of the source array.


Parameter  Description 
OpenAry,HighAry,LowAry,CloseAry The Open, High, Low, Close prices
LimitMoveValue Limit move as double value
Result The Result Array

Return value

Returns a double value.


Public Sub main()

        Dim HighAry()

        Dim OpenAry()

            Dim LowAry()

        Dim CloseAry()

        Dim result()

        Dim LimitMoveValue

        LimitMoveValue= 12.00   

             CopyHigh 0, 1, Bars (0), HighAry

             CopyLow 0, 1, Bars (0), LowAry

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyClose 0, 1, Bars (0), CloseAry


        AccumulativeSwingIndexOnArray OpenAry, HighAry, LowAry, CloseAry,, Cdbl(LimitMoveValue), Result

        AlertMessage "The indicator value of the record 50 : " & Result(50)

End Sub


See Also

Back to VTL Client Script Index

(0 vote(s))
Not helpful

Comments (0)
Post a new comment
Full Name:
CAPTCHA Verification 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions