Emmanuele Sassi
81 lines
2.3 KiB
VB.net
81 lines
2.3 KiB
VB.net
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
|
|
|
|
Public Sub SetProcessingTimes(dMinProcessingTime As Double, dMidProcessingTime As Double, dMaxProcessingTime As Double)
|
|
m_dMinProcessingTime = dMinProcessingTime
|
|
m_dMidProcessingTime = dMidProcessingTime
|
|
m_dMaxProcessingTime = dMaxProcessingTime
|
|
End Sub
|
|
|
|
End Class |