Script
'''##################################################################################### '''#### Script Name: Account Balance &Account Type ###### '''#### Author : Laith Ghawi ###### '''#### Website : www.Hybridsolutions.com ###### '''#### Date : 08/07/2019 11:20:44 ###### '''#### Description:Shows your account balance&Type into a message boxes ###### '''#####################################################################################
Sample
Public Sub main()
Dim property_id as VTLGeneral.ENUM_ACCOUNT_INFO_INTEGER
Dim Info as VTLGeneral.ENUM_ACCOUNTINFO_STRING
Dim balance as VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE
balance = VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE.ACCOUNT_BALANCE
Info = VTLGeneral.ENUM_ACCOUNTINFO_STRING.ACCOUNT_FIRST_NAME
property_id = VTLGeneral.ENUM_ACCOUNT_INFO_INTEGER.ACCOUNT_TRADE_MODE
ClientCode.AccountInfoInteger(property_id)
IF property_id=1 Then
GUI.MsgDialog("Demo Account")
ElseIF property_id=2 Then
GUI.MsgDialog("Contest Account")
ElseIF property_id=3 Then
GUI.MsgDialog("Real Account")
End IF
GUI.MsgDialog("Account name is: " & ClientCode.AccountInfoString(Info).Tostring())
GUI.MsgDialog("Balance is: " & ClientCode.AccountInfodouble(balance).Tostring())
End Sub
See Also
Back to VTL Server Script Index
|