Public Class Statistics

   Private m_nEngineRunningQty As Integer
   Public ReadOnly Property nEngineRunningQty As Integer
      Get
         Return m_nEngineRunningQty
      End Get
   End Property

   Private m_nEngineProcessingQty As Integer
   Public ReadOnly Property nEngineProcessingQty As Integer
      Get
         Return m_nEngineProcessingQty
      End Get
   End Property

   Private m_dMinProcessingTime As Double
   Public ReadOnly Property dMinProcessingTime As Double
      Get
         Return m_dMinProcessingTime
      End Get
   End Property

   Private m_dMidProcessingTime As Double
   Public ReadOnly Property dMidProcessingTime As Double
      Get
         Return m_dMidProcessingTime
      End Get
   End Property

   Private m_dMaxProcessingTime As Double
   Public ReadOnly Property dMaxProcessingTime As Double
      Get
         Return m_dMaxProcessingTime
      End Get
   End Property

   Private m_nLastMinAnswer As Integer
   Public ReadOnly Property nLastMinAnswer As Integer
      Get
         Return m_nLastMinAnswer
      End Get
   End Property

   Private m_nLast5MinAnswer As Integer
   Public ReadOnly Property nLast5MinAnswer As Integer
      Get
         Return m_nLast5MinAnswer
      End Get
   End Property

   Private m_nLastHourAnswer As Integer
   Public ReadOnly Property nLastHourAnswer As Integer
      Get
         Return m_nLastHourAnswer
      End Get
   End Property

   Private m_nQuestionInQueue As Integer
   Public ReadOnly Property nQuestionInQueue As Integer
      Get
         Return m_nQuestionInQueue
      End Get
   End Property

   Sub New(nEngineRunningQty As Integer, nEngineProcessingQty As Integer, nLastMinAnswer As Integer, nLast5MinAnswer As Integer, nLastHourAnswer As Integer, nQuestionInQueue As Integer)
      m_nEngineRunningQty = nEngineRunningQty
      m_nEngineProcessingQty = nEngineProcessingQty
      m_nLastMinAnswer = nLastMinAnswer
      m_nLast5MinAnswer = nLast5MinAnswer
      m_nLastHourAnswer = nLastHourAnswer
      m_nQuestionInQueue = nQuestionInQueue
   End Sub

   Sub New(Statistics As Statistics)
      m_nEngineRunningQty = Statistics.nEngineRunningQty
      m_nEngineProcessingQty = Statistics.nEngineProcessingQty
      m_dMinProcessingTime = Statistics.dMinProcessingTime
      m_dMidProcessingTime = Statistics.dMidProcessingTime
      m_dMaxProcessingTime = Statistics.dMaxProcessingTime
      m_nLastMinAnswer = Statistics.nLastMinAnswer
      m_nLast5MinAnswer = Statistics.nLast5MinAnswer
      m_nLastHourAnswer = Statistics.nLastHourAnswer
      m_nQuestionInQueue = Statistics.nQuestionInQueue
   End Sub

   Public Sub SetProcessingTimes(dMinProcessingTime As Double, dMidProcessingTime As Double, dMaxProcessingTime As Double)
      m_dMinProcessingTime = dMinProcessingTime
      m_dMidProcessingTime = dMidProcessingTime
      m_dMaxProcessingTime = dMaxProcessingTime
   End Sub

   Public Function Copy() As Statistics
      Return New Statistics(Me)
   End Function

End Class