From 344f7832f8b6f98eb2d8b8b682586e33ef7660b5 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Fri, 9 May 2025 14:37:41 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20=EC=8B=9C=EB=A6=AC=EC=96=BC=20=EB=B2=88?= =?UTF-8?q?=ED=98=B8=20=EC=9D=BD=EA=B8=B0=20=EC=98=A4=EB=A5=98=20=EC=88=98?= =?UTF-8?q?=EC=A0=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index a6eb2c7..9a01cc9 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -53,8 +53,8 @@ Public Class MainForm End Enum Private Enum TypeCodeList - Eye = 1 - Face + Face = 1 + Eye Body MAXType End Enum @@ -441,18 +441,6 @@ End_Finish: End If End Function - Private Function TypeCodeSetting() As Int16 - If rdbIfFace.Checked = True Then - Return TypeCodeList.Face - ElseIf rdbIfEye.Checked = True Then - Return TypeCodeList.Eye - ElseIf rdbIfBody.Checked = True Then - Return TypeCodeList.Body - Else - Return TypeCodeList.MAXType - End If - End Function - Private Sub DUALSONIC_WriteFunc() Dim StageCnt As Int16 = ErrorList.NonError Try @@ -522,10 +510,8 @@ End_Finish: ''******* Cart Type 전송 ******** ''************************************ - Dim TypeCodeNum As Int16 = TypeCodeSetting() - tmpCmdMessage = "carttype" - cmdMessage = "[sb" & tmpCmdMessage & " " & TypeCodeNum & "]" + cmdMessage = "[sb" & tmpCmdMessage & " " & TypeCode & "]" If SendData(cmdMessage) Then StageCnt = ErrorList.SendError