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


Public Sub StochasticOScillatorOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByVal kPeriod As Integer, ByVal KSlowingPeriod As Integer, ByVal Dperiod As Integer, ByVal MA_Type  As Integer, ByRef Result As Variant, ByVal mode As StochasticMEnum )


A procedure that calculates Stochastic Oscillator, 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.
kPeriod Period % k, a value of type Integer.
KSlowingPeriod Slowing % k, Value of type Integer
Dperiod Period % D, Value of type Integer.
MA_Type   Moving average method can be one of ENUM_MA_METHOD
Result The result calculation buffer, a value of type Variant
mode An integer value of type  StochasticMEnum


Public Sub main()

        Dim result()

        Dim HighAry ()

        Dim LowAry ()

        Dim OpenAry ()

        Dim CloseAry ()

        Dim kPeriod

        Dim KSlowingPeriod

        Dim Dperiod

        Dim MA_Type

        Dim Mode

        Period = 14

        MA_Type = 1

        Mode = 1

        kPeriod = 10

        KslowingPeriod = 3

        Dperiod = 3

        CopyHigh 0, 1, Bars (0), HighAry

        CopyLow 0, 1, Bars (0), LowAry

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyClose 0, 1, Bars (0), CloseAry

        StochasticOScillatorOnArray OpenAry, HighAry, LowAry, CloseAry, CInt(kPeriod), CInt(KSlowingPeriod), CInt(Dperiod),CInt(MA_Type), Result, CInt(Mode)

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

End Sub

 See Also

Back to VTL Client Script Index

Applied open price buffer, value of type Variant.
(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