‘###########################################################
‘ Script Name: Moving Sized Label
‘ Author: Ehab Kanani
‘ Descreption: This Client Script will create a label that gets bigger to reach a particular size then stops using a timer.
‘ Website: http://www.hybridsolutions.com
‘ Date: March, 22nd, 2012
‘###########################################################
Dim objIDDim fontSizeDim objColor'''''' The main function is the entry point for any Script program''' Public Sub main()objID=”label1″fontSize=8CreateObjectLabel 0,0,CSTR(objID),50,50,”welcome to VTL World “IntervalTimer 1000EnableTimer TrueEnd Sub”’
''' The function is generated when a new tick is received fro any symbol''' Public Sub OnTick(SymbolName)End Sub”’
''' The function is generated when initialization script''' Public Sub OnInit()”’TODO: initialization methodEnd Sub”’
''' The function is generated when deinitialization script''' Public Sub OnDeInit()”’TODO: deinitialization methodEnd Sub”’
''' The OnTimer function called when the timer event occurs''' Public Sub OnTimer()fontSize=fontSize+1objColor=RGBColor(200,10 * fontSize,10 * fontSize)ObjectSetText 0,CSTR(objID),CINT(fontSize),,CLNG(objColor)if fontSize=30 then EnableTimer falseEnd if End sub
See Also