|
'###########################################################
' Script Name: Account Summary
' Author: Ehab Kanani
' Description: This will create a label with Account Summary on the Chart
' Website: http://www.hybrid-solutions.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
Back to VTL Client Script Index
| 
This article was helpful
This article was not helpful