Emmanuele Sassi
da5bb6f05b
- aggiunta funzione Copy a Statistics - aggiunta gestione statistiche - aggiunta gestione eccezioni su subscribe e publish del Redis
97 lines
2.9 KiB
VB.net
97 lines
2.9 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
|
|
|
|
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 |