setValue
Posted by Mohammad Rahhal, Last modified by Laith Ghawi on 08 July 2019 12:42 PM

 Syntax

Public Sub setValue(ByVal Value As Double)

Description

This subprocedure used to set note's value.

Parameters

Parameter Description 
Value Value to be set, value of type Double.

Return value

No return value.

Sample

 Public Sub main()

        'Variables

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

        If _symbolInfo is nothing then

                GUI.MsgDialog("Symbol not found")

                Exit Sub

        End If

        Dim DB As New VTLGeneral.Database()

        Dim RecordCount As Integer

        Dim m_Recordset As VTLGeneral.RecordSet

        Dim _historyData As object()

        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 _recordCount as integer = 100

        Dim i As Integer

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


        Dim _note As  new VTLGeneral.Note

        _note.setPeriod(3)

        m_Open.setvalue(1,1.247)

         _note.setValue(1.247)

        m_Open.setNote(_note)

        GUI.MsgDialog(m_Open. getNote ().getPeriod() )

 

End Sub

 


See Also


Back to Note Object
Back to VTL Server Script Index

(0 vote(s))
Helpful
Not helpful

Comments (0)
Post a new comment
 
 
Full Name:
Email:
Comments:
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