初始化提交

仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志

AUTS_AOI/Statistics.vb

@@ -0,0 +1,161 @@
+''' <summary>
+''' 生产统计类（当前类线程仅限同步中使用）
+''' </summary>
+Public Class Statistics
+    ''' <summary>
+    ''' 校验总数,包含有效校验与无效检验
+    ''' </summary>
+    Private _checkCount As Integer
+
+    ''' <summary>
+    ''' 检验有效总数中无效总数
+    ''' </summary>
+    Private _invalidCount As Integer
+
+    ''' <summary>
+    ''' 检验总数中有效总数
+    ''' </summary>
+    Private _validCount As Integer
+
+    ''' <summary>
+    ''' 检验有效总数中失败总数
+    ''' </summary>
+    Private _failCount As Integer
+    ''' <summary>
+    ''' 检验有效总数中通过总数
+    ''' </summary>
+    Private _passCount As Integer
+
+    ''' <summary>
+    ''' 产品运行时良品率,通过总数除以有效总数
+    ''' </summary>
+    Private _yield As Double
+
+    Private ReadOnly _observerList As List(Of IStatisticsObserver)
+
+    Sub New()
+        _checkCount = 0
+        _failCount = 0
+        _passCount = 0
+
+        _observerList = New List(Of IStatisticsObserver)()
+    End Sub
+
+    Public ReadOnly Property CheckCount() As Integer
+        Get
+            Return _checkCount
+        End Get
+    End Property
+
+    Public ReadOnly Property InvalidCount() As Integer
+        Get
+            Return _invalidCount
+        End Get
+    End Property
+
+
+    Public ReadOnly Property FailCount() As Integer
+        Get
+            Return _failCount
+        End Get
+    End Property
+
+    Public ReadOnly Property PassCount() As Integer
+        Get
+            Return _passCount
+        End Get
+    End Property
+
+
+
+
+    Public Sub AddFailCount()
+        _failCount += 1
+        UpdateFailCount(_failCount)
+
+        _validCount +=1
+        UpdateValidCount(_validCount)
+        
+        _checkCount += 1
+        UpdateSumCount(_checkCount)
+
+
+        _yield = (_passCount / _validCount) * 100
+        UpdateYield(_yield)
+    End Sub
+
+    Public Sub AddPassCount()
+        _passCount += 1
+        UpdatePassCount(_passCount)
+
+        _validCount +=1
+        UpdateValidCount(_validCount)
+
+        _checkCount += 1
+        UpdateSumCount(_checkCount)
+
+        _yield = (_passCount / _validCount) * 100
+        UpdateYield(_yield)
+    End Sub
+
+    Public Sub AddInvalidCount()
+        _invalidCount += 1
+        UpdateInvalidCount(_invalidCount)
+
+        _checkCount += 1
+        UpdateSumCount(_checkCount)
+    End Sub
+
+
+    Public Sub AddStatisticsObserver(observer As IStatisticsObserver)
+        _observerList.Add(observer)
+    End Sub
+
+    Public Sub RemoveStatisticsObserver(observer As IStatisticsObserver)
+        _observerList.Remove(observer)
+    End Sub
+
+    Public Sub ClearStatisticsObserver()
+        _observerList.Clear()
+    End Sub
+
+
+    Private Sub UpdateFailCount(count As Integer)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdateFailCount(count)
+        Next
+    End Sub
+
+    Private Sub UpdatePassCount(count As Integer)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdatePassCount(count)
+        Next
+    End Sub
+
+
+    Private Sub UpdateValidCount(count As Integer)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdateValidCount(count)
+        Next
+    End Sub
+
+    Private Sub UpdateInvalidCount(count As Integer)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdateInvalidCount(count)
+        Next
+    End Sub
+
+
+    Private Sub UpdateSumCount(count As Integer)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdateSumCount(count)
+        Next
+    End Sub
+
+    Private Sub UpdateYield(yield As Double)
+        For Each observer As IStatisticsObserver In _observerList
+            observer.UpdateYield(yield)
+        Next
+    End Sub
+
+End Class