Posted by Mohammad Rahhal, Last modified by Abdullah Almasharfah on 09 January 2019 11:36 AM


Public Sub WilliamsPctROnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByVal Period As Integer, ByRef Result As Variant)

A procedure that calculates Williams%, 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, 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
Period The calculation period, on which the indicator will be calculated, a value of type integer
Result Result array that represents indicator value, Value of type Varaint

Return value

No Returns value 


Public Sub main()

        Dim result()

        Dim HighAry ()

        Dim LowAry ()

        Dim OpenAry ()

        Dim CloseAry ()

        Period = 14

        CopyHigh 0, 1, Bars (0), HighAry

        CopyLow 0, 1, Bars (0), LowAry

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyClose 0, 1, Bars (0), CloseAry

        WilliamsPctROnArray OpenAry, HighAry, LowAry, CloseAry, CInt (Period), 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