Syntax 

Public Function VolumeROC (ByRef Data As Database, ByRef Volume As Field, ByVal Periods As Integer, Optional ByVal FieldAliasName As String = "") As RecordSet

Overview

The Volume Rate of Change indicator shows clearly whether or not volume is trending in one direction or another.

Interpretation

Sharp Volume ROC increases may signal price breakouts. 

Class: General

Parameters

Return type   

Returns the object of type RecordSet 

Default Field name      

VolumeROC.

Sample 

   Public Sub main ()

 

        Dim _symbolInfo As VTLGeneral.CSymbol=ClientCode.GetSymbolByName ("GOLD")

        Dim DB As New VTLGeneral.Database ()

        Dim RecordCount As Integer

        Dim m_Recordset As VTLGeneral.RecordSet

        Dim _historyData As object()

        Dim output As String

        Dim Record As Integer

        Dim m_Date As VTLGeneral.Field

        Dim m_Open As VTLGeneral.Field

        Dim m_High As VTLGeneral.Field

        Dim m_Low As VTLGeneral.Field

        Dim m_Close As VTLGeneral.Field

        Dim j As Integer = 0

        Dim i As Integer = 0

        Dim _recordCount As Integer =10

        m_Recordset = DB.CreateRecord

        m_Open = New VTLGeneral.Field

        m_High = New VTLGeneral.Field

        m_Low = New VTLGeneral.Field

        m_Close = New VTLGeneral.Field

        DB.RecordCount = _recordCount

        RecordCount = _recordCount

        'Initialize Recordsets

        m_Open.initialize (_recordCount, "Open")

        m_High.initialize (_recordCount, "High")

        m_Low.initialize (_recordCount, "Low")

        m_Close.initialize (_recordCount, "Close")

        'load high, low ,open and data

        _historyData = ClientCode.GetChartHistory (_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day, VTLGeneral.ENUM_HISTORY_TYPE.HIS_HIGH, _recordCount)

        For i = 1 to _recordCount-1

                m_High.setValue (i, _historyData (i))

        Next

        _historyData = ClientCode.GetChartHistory (_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day, VTLGeneral.ENUM_HISTORY_TYPE.HIS_LOW, _recordCount)

        For i = 1 to _recordCount-1

                m_Low.setValue (i,_historyData(i))

        Next

        _historyData = ClientCode.GetChartHistory (_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day, VTLGeneral.ENUM_HISTORY_TYPE.HIS_OPEN, _recordCount)

        For i = 1 to _recordCount-1

                m_Open.setValue (i,_historyData(i))

        Next

        _historyData = ClientCode.GetChartHistory (_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day, VTLGeneral.ENUM_HISTORY_TYPE.HIS_CLOSE, _recordCount)

        For i = 1 to _recordCount-1

                m_Close.setValue (i, _historyData (i))

        Next

        m_Recordset.addField (m_Open)

        m_Recordset.addField (m_High)

        m_Recordset.addField (m_Low)

        m_Recordset.addField (m_Close)

 

        ‘VolumeROC

        Dim _indRecord As New VTLGeneral.RecordSet ()

        Dim gnl As New VTLGeneral.General ()

        _indRecord = gnl. VolumeROC (DB, m_Low, 14)

        For i = 0 to DB.getRecordCount - 1

                Output = output & CSTR (_indRecord.getValue (_indRecord.getName (1), i)) & vbCrLf

        Next

        GUI.MsgDialog (output)

   End Sub

 

See Also

• Weighted Close
• HHV
• HighMinusLow

Back to VTL Server Script Index