Posted by Mohammad Rahhal, Last modified by Diana Alkouni on 02 September 2020 12:10 PM


Public Sub AverageTrueRangeOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry  As Variant, ByVal CloseAry As Variant, ByRef Result As Variant, Optional Period As Integer = 14) 


A procedure that calculates The Average True Range, based on a custom array, and the result passed by result parameter as an array, each index of the result array represent indicator value corresponds to that index of the source array.


Parameter  Description 
OpenAry Applied open price buffer, a value of type Variant.
HighAry Applied high price buffer, a value of type Variant.
LowAry Applied low price buffer, a value of type Variant.
CloseAry Applied close price buffer, a value of type Variant.
Result The buffer calculation result, a value of type Variant.
Period  The calculation period, on which the indicator will be calculated, a value of type Integer


 Public Sub main()

        Dim OpenAry()

        Dim HighAry()

        Dim LowAry() 

        Dim  CloseAry()

        Dim result()

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyHigh 0, 1, Bars (0), HighAry

        CopyLow 0, 1, Bars (0), LowAry

        CopyClose 0, 1, Bars (0), CloseAry

        AverageTrueRangeOnArray OpenAry, HighAry, LowAry, CloseAry, 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