‘###########################################################
‘ 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 objIDPublic Sub main()fontSize=40objID="labelAccountSummary"XPos=10YPos=30objText= " Equity:" & CSTR(AccountInfoDouble(ACCOUNT_EQUITY)) & " Balance:" & CSTR(AccountInfoDouble(ACCOUNT_BALANCE)) & " Credit:" & CSTR(AccountInfoDouble(ACCOUNT_CREDIT))CreateObjectLabel 0,0,CSTR(objID),CINT(XPos),CINT(YPos),objTextEnd SubPublic Sub OnTick(SymbolName)objText= "Equity:" & CSTR(AccountInfoDouble(ACCOUNT_EQUITY)) & "Balance:" & CSTR(AccountInfoDouble(ACCOUNT_BALANCE)) & "Credit:" & CSTR(AccountInfoDouble(ACCOUNT_CREDIT)) ObjectSet 0,CSTR(objID),2,objTextEnd SubPublic Sub OnInit()'''TODO: initialization methodEnd SubPublic Sub OnDeInit()'''TODO: deinitialization methodEnd SubPublic Sub OnTimer()'''TODO: Timer FunctionEnd Sub

See Also

• Client Market Order
• Custom Indicator
• Moving Label

Back to VTL Client Script Index