shpmt-OrderPackingProcessor/SalesPacking_MES_API_Project/weightForm.vb

Imports System.IO.Ports
Imports System.Windows.Forms

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 weightResult2 As Double = 0
    Private zeroSet As Boolean = True


    Private weight(2)
    Private weight2(1) As String
    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 & ")"


        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
        ElseIf mainForm.rdbWeightQW.Checked = True Then
            If weightResult2 > 5 Then ' 5g 이상이면 측정 시작
                statusTimer.Enabled = False
                lbWeight.BackColor = Color.Yellow
                lbWeight.Text = "측정중"
                playTimer.Enabled = False

                If AutoMeasureScale() Then
                    lbNowWeight.Text = weightResult2

                    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
        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

            ElseIf mainForm.rdbWeightQW.Checked = True Then

                lbNowWeight.Text = weightResult2

                ' 실제 시리얼 데이터 직접 사용
                If weightResult2 <= 0 Then ' 1g 이하면 비어있음
                    statusTimer.Enabled = True
                    playTimer.Enabled = True
                    ZeroTimer.Enabled = False
                    lbWeightEX.Text = weightSum
                    lbWeight.Text = "저울에 올려주세요"
                    lbWeight.BackColor = Color.White
                Else
                    ZeroTimer.Enabled = False
                    lbWeight.Text = "저울을 비워주세요."
                    lbWeight.BackColor = Color.Red
                    ZeroTimer.Enabled = True
                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 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

    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 MeasureScale2(timeout As Integer) As String
        'Return "US,GS,   " & weightResult2.ToString("F3") & " kg"
        Return "US,GS,   " & (weightResult2 * 1000).ToString("F0") & " g"
    End Function

    Private Function AutoMeasureScale() As Boolean
        Try
            If mainForm.rdbWeightQW.Checked = True Then
                ' 2번 측정해서 무게가 거의 같으면 OK
                For i = 0 To 1
                    weight2(i) = MeasureScale2(200) ' 예: "US,GS,   0.901 kg"
                Next

                Dim w0 As Double = ParseWeightData(weight2(0))
                Dim w1 As Double = ParseWeightData(weight2(1))

                If Math.Abs(w0 - w1) < 10 Then ' 10g 이내 차이 (kg 단위면 0.01)
                    Return True
                Else
                    Return False
                End If
            End If
            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

            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 Function ParseWeightData(data As String) As Double
        Try
            Dim m = System.Text.RegularExpressions.Regex.Match(data, "([-+]?\d+\.\d+|\d+)\s*(kg|g)")
            If m.Success Then
                Dim value As Double = Convert.ToDouble(m.Groups(1).Value)
                Dim unit As String = m.Groups(2).Value.ToLower()
                If unit = "kg" Then
                    value = value * 1000 ' kg → g 변환
                End If
                Return value ' g 단위로 반환
            End If
        Catch ex As Exception
            Debug.Print("파싱 오류: " & ex.Message)
        End Try
        Return 0
    End Function

    Private Sub QWSerialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles QWSerialPort.DataReceived
        Try
            System.Threading.Thread.Sleep(100) ' 100ms 딜레이

            Dim incoming As String = QWSerialPort.ReadExisting()
            'Debug.Print("수신 데이터: " & incoming)

            ' 여러 줄이 들어올 수 있으니, 줄 단위로 분리
            Dim lines() As String = incoming.Split({vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)
            Dim maxWeight As Double = 0

            For Each line As String In lines
                Dim w As Double = ParseWeightData(line)
                If w > maxWeight Then maxWeight = w
            Next

            weightResult2 = maxWeight
            'Debug.Print(maxWeight)
            'Debug.Print(weightResult2)

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

        Catch ex As Exception
            Debug.Print("수신 오류: " & ex.Message)
        End Try
    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