Posted by Mohammad Rahhal, Last modified by Rawan Al Hourani on 22 June 2016 10:38 AM


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)

Procedure that calculate Directional Movement System, based on custom array, and the result passed by result parameter as array, each index of the result array represent indicator value corresponds to that index of the source array.


Parameter  Description 
OpenAry The open price buffer, value of type variant.
HighAry The high price buffer, value of type variant
LowAry The low price buffer, value of type varaint
CloseAry The close price buffer, value of type variant.
Period calculation period on which indicator will be calculated, value of type Integer
Result The result buffer represent indicator value, value of type Variant.
UpDMI The returns UpDMI value,value of type Variant.
DnDMI The returns DnDMI value ,value of type Variant.

Return value

No returns value.


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 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