1 Imports System 2 Imports System.Collections.Generic 3 Imports System.Text 4 Imports RightEdge.Common 5 6 ' This is an auto-generated file. You should not need to edit it. 7 8 Public MustInherit Class MySystemBase 9 Inherits SystemBase 10 Private _symbolScripts As New SymbolScriptCollection(Of MySymbolScriptBase)() 11 Public ReadOnly Property SymbolScripts() As SymbolScriptCollection(Of MySymbolScriptBase) 12 Get 13 Return _symbolScripts 14 End Get 15 End Property 16 17 Public Overloads Overrides Sub Startup(ByVal data As SystemData) 18 MyBase.Startup(data) 19 SymbolScripts.Initialize(Me) 20 For Each symbolScript As MySymbolScriptBase In SymbolScripts 21 symbolScript.TradingSystem = DirectCast(Me, MySystemBase) 22 symbolScript.Startup() 23 SystemData.IndicatorManager.RegisterMembers(symbolScript, symbolScript.Symbol) 24 Next 25 End Sub 26 27 Public Overloads Overrides Sub NewBar() 28 MyBase.NewBar() 29 SymbolScripts.NewBar() 30 End Sub 31 32 Public Overloads Overrides Sub NewTick(ByVal symbol As Symbol, ByVal bar As BarData, ByVal tick As TickData) 33 MyBase.NewTick(symbol, bar, tick) 34 SymbolScripts.NewTick(symbol, bar, tick) 35 End Sub 36 37 ' Indicators 38 39 End Class 40 41 Public Class MySymbolScriptBase 42 Inherits SymbolScriptBase 43 Public TradingSystem As MySystemBase 44 45 Public ReadOnly Property OtherSymbols() As SymbolScriptCollection(Of MySymbolScriptBase) 46 Get 47 Return TradingSystem.SymbolScripts 48 End Get 49 End Property 50 51 52 End Class 53