'###########################################################
' Script Name: Account Summary
' Author: Ehab Kanani
' Description: This will create a label with Account Summary on the Chart
' Website: http://www.hybridsolutions.com
' Date: March, 22nd, 2012
'###########################################################

Dim objText 
Dim objID

Public Sub main()
fontSize=40
objID="labelAccountSummary"
XPos=10
YPos=30
objText= " Equity:" & CSTR(AccountInfoDouble(ACCOUNT_EQUITY)) & " Balance:" & CSTR(AccountInfoDouble(ACCOUNT_BALANCE)) & " Credit:" & CSTR(AccountInfoDouble(ACCOUNT_CREDIT))
CreateObjectLabel 0,0,CSTR(objID),CINT(XPos),CINT(YPos),objText
End Sub

Public Sub OnTick(SymbolName)

objText= "Equity:" & CSTR(AccountInfoDouble(ACCOUNT_EQUITY)) & "Balance:" & CSTR(AccountInfoDouble(ACCOUNT_BALANCE)) & "Credit:" & CSTR(AccountInfoDouble(ACCOUNT_CREDIT)) 
ObjectSet 0,CSTR(objID),2,objText

End Sub

Public Sub OnInit()
'''TODO: initialization method

End Sub

Public Sub OnDeInit()
'''TODO: deinitialization method

End Sub

Public Sub OnTimer()
'''TODO: Timer Function
End Sub

See Also

• Client Market Order
• Custom Indicator
• Moving Label

Back to VTL Client Script Index