Syntax
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 )Description
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.
Parameters
| Parameter | Description |
| OpenAry | Applied open price buffer, value of type Variant. |
| HighAry | Applied highprice buffer, a value of type Variant. |
| Applied lowprice buffer, a value of type Variant. | |
| CloseAry | Applied closeprice buffer, a value of type Variant. |
| Period % k, a value of type Integer. | |
| KSlowingPeriod | Slowing % k, Value of type Integer |
| Period % D, Value of type Integer. | |
| MA_Type | Moving average method can be one ofENUM_MA_METHOD |
| Result | The result calculation buffer, a value of type |
| mode | An integer value of type StochasticMEnum |
Sample
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 SubSee Also
Back to VTL Client Script Index
| Applied open price buffer, |