Live Chat by Hybrid Solutions
Knowledgebase
Account Summary on Chart
Posted by Yousef Ibrahim on 25 March 2012 04:09 PM

 '###########################################################
' 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

(0 vote(s))
This article was helpful
This article was 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. This is required to prevent automated registrations and form submissions.

Help Desk Software by Hybrid Solutions