Syntax
Public Sub DirectionalMovementSystemOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByVal Period As Integer, ByRef Result As Variant, ByRef UpDMI As Variant, ByRef DnDMI As Variant)Description
A procedure that calculates Directional Movement System, 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 |
| The openprice buffer, a value of type variant. | |
| HighAry | The high price buffer, a value of type variant |
| The low price buffer, a value of type |
|
| CloseAry | The close price buffer, a value of type variant. |
| Period | calculation period on which indicator will be calculated, a value of type Integer |
| Result | The result bufferrepresents indicator value, a value of type Variant. |
| UpDMI | The returns UpDMI value, a value of type Variant. |
| The returnsDnDMI value, a value of type Variant. |
Return value
No returns value.
Sample
Public Sub main() Dim result() Dim Period Dim UpDMI() Dim DnDMI() 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 DirectionalMovementSystemOnArray OpenAry, HighAry, LowAry, CloseAry, CInt (Period), Result, UpDMI, DnDMI AlertMessage "The indicator value of the record 50 : " & Result(50) End SubSee Also