From 8decb0c43d7b8eede949541baeafdfea7ca2cf1e Mon Sep 17 00:00:00 2001 From: kje97 Date: Tue, 24 Jun 2025 10:46:37 +0900 Subject: [PATCH] =?UTF-8?q?feat:=20=EC=8B=9C=EB=A6=AC=EC=96=BC=20=EB=8D=B0?= =?UTF-8?q?=EC=9D=B4=ED=84=B0=20=EC=B2=98=EB=A6=AC=EC=97=90=20=EB=94=9C?= =?UTF-8?q?=EB=A0=88=EC=9D=B4=20=EC=B6=94=EA=B0=80=EB=A1=9C=20=EB=AC=B4?= =?UTF-8?q?=EA=B2=8C=20=EC=B8=A1=EC=A0=95=20=EC=95=88=EC=A0=95=EC=84=B1=20?= =?UTF-8?q?=EA=B0=9C=EC=84=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - QWSerialPort_DataReceived에 100ms Thread.Sleep 추가 --- SalesPacking_MES_API_Project/weightForm.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/SalesPacking_MES_API_Project/weightForm.vb b/SalesPacking_MES_API_Project/weightForm.vb index 0707055..2e91398 100644 --- a/SalesPacking_MES_API_Project/weightForm.vb +++ b/SalesPacking_MES_API_Project/weightForm.vb @@ -77,7 +77,7 @@ Public Class weightForm playTimer.Enabled = False If AutoMeasureScale() Then - lbNowWeight.Text = weightResult2 ' 실제 측정값 표시 + lbNowWeight.Text = weightResult2 If weight_compare() Then lbWeight.BackColor = Color.Green @@ -158,6 +158,9 @@ Public Class weightForm End If ElseIf mainForm.rdbWeightQW.Checked = True Then + + lbNowWeight.Text = weightResult2 + ' 실제 시리얼 데이터 직접 사용 If weightResult2 <= 0 Then ' 1g 이하면 비어있음 statusTimer.Enabled = True @@ -168,7 +171,7 @@ Public Class weightForm lbWeight.BackColor = Color.White Else ZeroTimer.Enabled = False - lbWeight.Text = "저울을 비워주세요 (현재: " & weightResult2.ToString("F0") & "g)" + lbWeight.Text = "저울을 비워주세요." lbWeight.BackColor = Color.Red ZeroTimer.Enabled = True End If @@ -210,8 +213,9 @@ Public Class weightForm Application.DoEvents() Loop End Sub + Private Function MeasureScale2(timeout As Integer) As String - 'Return "US,GS, " & weightResult.ToString("F3") & " kg" + 'Return "US,GS, " & weightResult2.ToString("F3") & " kg" Return "US,GS, " & (weightResult2 * 1000).ToString("F0") & " g" End Function @@ -282,6 +286,8 @@ Public Class weightForm 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)