shpmt-OrderPackingProcessor/SalesPacking_MES_API_Project/weightForm.vb

Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class weightForm
    Private weightSum As Integer
    Private switchMotion As Boolean = False

    'Private weightErrorPlus As Integer
    'Private weightErrorMinus As Integer


    Private weightMode As Boolean
    Private weightStart As Boolean

    Private Delegate Sub serialDelegate()
    Private updateDelegate As serialDelegate
    Private weightResult As Integer
    Private zeroSet As Boolean = True

    Private weight(2)

    'Dim weights As New List(Of Double)() ' 실측 측정값 저장용
    'Dim avg As Double = 0.0              ' 평균
    'Dim stdDev As Double = 0.0           ' 표준편차
    'Dim k As Double = 2.0                ' 오차 계수
    'Dim errorRate As Double = 0.0        ' 허용 오차 비율
    'Dim weightErrorPlus As Double = 0.0  ' 허용 오차 상한
    'Dim weightErrorMinus As Double = 0.0 ' 허용 오차 하한

    Private Sub weightForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ZeroTimer.Enabled = True
        lbNowWeight.Text = Nothing
        lbWeightEX.Text = Nothing
        weightSum = mainForm.weightSum
        lbNowWeight.Refresh()
        lbWeightEX.Refresh()

        'weightErrorPlus = Val(mainForm.txbWeightPlus.Text)
        'weightErrorMinus = Val(mainForm.txbWeightMinus.Text)

        'lbError.Text = "(오차: +" & weightErrorPlus & ", -" & weightErrorMinus & ")"

        lbError.Text = "(자동 오차 계산 중...)"

        weightResult = 0
        zeroSet = True
        weightMode = mainForm.rdbWeightAuto.Checked
        weightStart = mainForm.weightStart
    End Sub

    Private Sub playTimer_Tick(sender As Object, e As EventArgs) Handles playTimer.Tick
        Dim scaleData As String

        If mainForm.rdbWeightAuto.Checked = True Then
            If weightResult > 0 Then
                statusTimer.Enabled = False
                playTimer.Enabled = False

                lbNowWeight.Text = weightResult

                If weight_compare() Then
                    lbWeight.BackColor = Color.Green
                    lbWeight.Text = "무게 일치"
                    delay(2000)
                    mainForm.weightResult = lbNowWeight.Text
                    mainForm.weightOkNg = True
                    Me.DialogResult = DialogResult.OK

                Else
                    lbWeight.BackColor = Color.Red
                    lbWeight.Text = "무게 불일치"
                    delay(2000)
                    mainForm.weightOkNg = False

                    Me.DialogResult = DialogResult.No
                End If

            End If
        Else
            scaleData = Mid(MeasureScale(200), 2, weight.Length)

            If scaleData > 5 Then
                statusTimer.Enabled = False
                lbWeight.BackColor = Color.Yellow
                lbWeight.Text = "측정중"
                playTimer.Enabled = False
                If AutoMeasureScale() Then

                    lbNowWeight.Text = Val(weight(1))

                    If weight_compare() Then
                        lbWeight.BackColor = Color.Green
                        lbWeight.Text = "무게 일치"
                        delay(2000)
                        mainForm.weightResult = lbNowWeight.Text
                        mainForm.txbCheckWeight.Text = lbNowWeight.Text
                        mainForm.weightOkNg = True
                        Me.DialogResult = DialogResult.OK
                    Else
                        zeroSet = False
                        lbWeight.BackColor = Color.Red
                        lbWeight.Text = "무게 불일치"
                        ZeroTimer.Enabled = True
                    End If
                Else
                    lbWeight.Text = "무게 측정 불안정"
                    lbWeight.BackColor = Color.Red
                End If
            End If
        End If

    End Sub

    Private Sub Status_timer_Tick(sender As Object, e As EventArgs) Handles statusTimer.Tick
        If switchMotion = True Then
            lbWeight.BackColor = Color.MediumSlateBlue
            switchMotion = False
        Else
            lbWeight.BackColor = Color.Gold
            switchMotion = True
        End If
    End Sub

    Private Sub Zero_Timer_Tick(sender As Object, e As EventArgs) Handles ZeroTimer.Tick
        Dim scaledata As String

        Try

            If mainForm.rdbWeightAuto.Checked = True Then
                If zeroSet = True Then
                    statusTimer.Enabled = True
                    playTimer.Enabled = True
                    ZeroTimer.Enabled = False
                    lbWeightEX.Text = weightSum
                    lbWeight.Text = "저울에 올려주세요"
                End If
            Else
                scaledata = Mid(MeasureScale(200), 2, weight.Length)

                If scaledata = 0 Then
                    statusTimer.Enabled = True
                    playTimer.Enabled = True
                    ZeroTimer.Enabled = False
                    lbWeightEX.Text = weightSum
                    lbWeight.Text = "저울에 올려주세요"

                Else
                    ZeroTimer.Enabled = False
                    lbWeight.Text = " 저울을 비워주세요"
                    lbWeight.BackColor = Color.Red
                    ZeroTimer.Enabled = True
                End If
            End If

        Catch ex As Exception
            ZeroTimer.Enabled = False
            mainForm.errorGen(Err.Description & "Zero_Timer_Tick_Scale_Error")
        End Try
    End Sub

    'Private Sub UpdateErrorRange()
    '    If mainForm.rdbWeightAuto.Checked = True Then
    '        ' 자동 모드: 오차 계수(k)로 오차 범위 산출
    '        Dim autoErrorRate As Double = 0.02 ' 예: 2% 오차
    '        weightErrorPlus = weightSum * autoErrorRate
    '        weightErrorMinus = weightSum * autoErrorRate

    '        'If lbNowWeight.Text >= weightSum - weightErrorMinus And
    '        '   lbNowWeight.Text <= weightSum + weightErrorPlus Then
    '        'End If

    '    Else
    '        ' 수동 모드: 평균, 표준편차 기반 오차 범위 산출
    '        If weights.Count >= 2 Then
    '            avg = weights.Average()
    '            stdDev = Math.Sqrt(weights.Select(Function(x) (x - avg) ^ 2).Average())
    '            errorRate = (k * stdDev) / avg
    '            weightErrorPlus = weightSum * errorRate
    '            weightErrorMinus = weightSum * errorRate

    '            '폼에 오차 범위 표시
    '            lbError.Text = "(오차: +" & weightErrorPlus.ToString() & ", -" & weightErrorMinus.ToString() & ")"
    '        End If
    '    End If
    'End Sub

    'Private Function weight_compare() As Boolean
    '    If lbNowWeight.Text >= weightSum - weightErrorMinus And lbNowWeight.Text <= weightSum + weightErrorPlus Then
    '        Return True
    '    Else
    '        Return False
    '    End If
    'End Function

    Private Function weight_compare() As Boolean
        Dim tip As New System.Windows.Forms.ToolTip()
        Dim nowWeight As Double = Double.Parse(lbNowWeight.Text)
        Dim autoErrorRate As Double = 0.02 '오차 계수(k)로 오차 범위 산출 2% 오차

        Dim weightError As Double = weightSum * autoErrorRate

        Dim upperBound As Double = weightSum + weightError
        Dim lowerBound As Double = weightSum - weightError

        ' 라벨 텍스트 간결하게
        lbError.Text = "(오차: ±" & weightError.ToString("F2") & ")"

        ' 툴팁에 상세 정보 표시
        tip.SetToolTip(lbError, "허용구간: " & lowerBound.ToString("F2") & " ~ " & upperBound.ToString("F2"))

        Return (nowWeight >= lowerBound) AndAlso (nowWeight <= upperBound)
    End Function


    Public Sub delay(ByVal milliSecond As Double)
        Dim delayTime As Date = Now.AddSeconds(milliSecond / 1000)
        Do Until Now > delayTime
            Application.DoEvents()
        Loop
    End Sub

    Private Function AutoMeasureScale() As Boolean
        Try
            Do
                For i = 0 To 1
                    weight(i) = MeasureScale(200)
                    If Mid(weight(i), 1, 1) = "U" Then
                        Exit For
                    ElseIf Mid(weight(i), 1, 1) = "S" Then
                        weight(i) = Mid(weight(i), InStr(1, weight(i), "S") + 1, weight(i).Length)
                        If weight(i) = weight(1) Then
                            Exit Do
                        End If
                    End If
                Next
            Loop

            'weights.Add(Double.Parse(weight(0)))
            'weights.Add(Double.Parse(weight(1)))
            'UpdateErrorRange()

            If weight(0) - weight(1) < 10 And weight(0) - weight(1) > -10 Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox("자동 무게 측정 에러 : " & Err.Description)
            Return False
        End Try
    End Function

    Private Sub Weight_Count_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        ZeroTimer.Enabled = False
        statusTimer.Enabled = False
        playTimer.Enabled = False
    End Sub

    Private Sub cmdSerialPort_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles cmdSerialPort.DataReceived
        Try

            If weightMode = True Then
                If weightStart = True Then
                    Dim RecBuffer() As Byte
                    Dim weightUse As Single = 0
                    Dim dataSet As String = ""
                    Dim n As Integer = cmdSerialPort.BytesToRead
                    RecBuffer = New Byte(n - 1) {}
                    cmdSerialPort.Read(RecBuffer, 0, n)

                    For cnt = 0 To RecBuffer.Length - 1
                        dataSet = dataSet & Chr(RecBuffer(cnt))
                    Next

                    Dim dataCount As Int32 = UBound(Split(dataSet, vbCr)) - 1

                    For i = 0 To dataCount
                        Dim weightData As Single = Mid(dataSet, 1, InStr(dataSet, vbCr) - 1)

                        If weightData > weightUse Then
                            weightUse = weightData
                        End If

                        If i <> dataCount Then
                            dataSet = Mid(dataSet, InStr(dataSet, vbCr) + 1, dataSet.Length)
                        End If
                    Next

                    weightResult = weightUse * 1000

                    If weightResult = 0 Then
                        zeroSet = True
                    Else
                        zeroSet = False
                    End If

                    cmdSerialPort.DiscardInBuffer()
                    cmdSerialPort.DiscardOutBuffer()

                Else
                    cmdSerialPort.DiscardInBuffer()
                    cmdSerialPort.DiscardOutBuffer()
                End If
            End If

        Catch ex As Exception
            MsgBox("데이터를 읽어올 수 없습니다. 통신을 확인하여 주십시오.", vbExclamation)
        End Try
    End Sub

End Class