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

 Syntax

Public Function getValue( ) As Double

Description

To get note's value.


Parameters

No parameters.


Return value

Returns a double 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

        m_Open.setvalue(1,1.247)

        m_Open.setNote(_note)

        GUI.MsgDialog(m_Open. getNote(). getValue())

 

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