jionmt-sw/shpmt-OrderPackingProcessor
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 6 Wiki Activity

feat: 설정화면 QW저울 라디오 버튼 추가

Browse Source
This commit is contained in:
kje97 2025-06-19 14:20:38 +09:00
parent ac748723fc
commit 381b9c683e
2 changed files with 958 additions and 664 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1593
SalesPacking_MES_API_Project/mainForm.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

29
SalesPacking_MES_API_Project/mainForm.vb
View File

@ -5115,7 +5115,11 @@ Public Class mainForm
With weightForm.cmdSerialPort
.PortName = serialName
.BaudRate = 9600
If rdbWeightQW.Checked Then
.BaudRate = 4800
Else
.BaudRate = 9600
End If
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
@ -5204,8 +5208,10 @@ Public Class mainForm
weightNum = 0
ElseIf rdbWeightCAS.Checked = True Then
weightNum = 1
Else
ElseIf rdbWeightQW.Checked = True Then
weightNum = 2
Else
weightNum = 3
End If
If rdbMesDbAPI.Checked = True Then
@ -5307,12 +5313,15 @@ Public Class mainForm
If optionCkb(optionCkbList.weight).Checked = False Then
rdbWeightAuto.Checked = False
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = False
rdbWeightAuto.Enabled = False
rdbWeightCAS.Enabled = False
rdbWeightQW.Enabled = False
Else
rdbWeightAuto.Enabled = True
rdbWeightCAS.Enabled = True
rdbWeightQW.Enabled = True
End If
Case saveList.comport
@ -5374,12 +5383,19 @@ Public Class mainForm
If parsingCk = 0 Then
rdbWeightAuto.Checked = True
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = False
ElseIf parsingCk = 1 Then
rdbWeightAuto.Checked = False
rdbWeightCAS.Checked = True
rdbWeightQW.Checked = False
ElseIf parsingCk = 2 Then
rdbWeightAuto.Checked = False
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = True
Else
rdbWeightAuto.Checked = False
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = False
End If
ElseIf i = 4 Then
@ -5465,9 +5481,12 @@ Public Class mainForm
Catch ex As Exception
MsgBox("저장된 데이터를 불러올 수 없습니다." & saveType & "::" & ex.Message, vbCritical)
End Try
Debug.Print("Weight Radio Buttons: Auto=" & rdbWeightAuto.Checked & ", CAS=" & rdbWeightCAS.Checked & ", QW=" & rdbWeightQW.Checked)
End Sub
Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click
Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbWeightQW.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click
ckbChange = True
End Sub
@ -6318,15 +6337,19 @@ Public Class mainForm
If ckbWeight.Checked = True Then
rdbWeightAuto.Enabled = True
rdbWeightCAS.Enabled = True
rdbWeightQW.Enabled = True
rdbWeightAuto.Checked = True
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = False
Else
rdbWeightAuto.Enabled = False
rdbWeightCAS.Enabled = False
rdbWeightQW.Enabled = False
rdbWeightAuto.Checked = False
rdbWeightCAS.Checked = False
rdbWeightQW.Checked = False
End If
End Sub