From 977e31706f19906ba31ec205a483e1b32f8bf9d2 Mon Sep 17 00:00:00 2001 From: jiwonRepair Date: Wed, 13 Aug 2025 09:44:09 +0900 Subject: [PATCH] fix: PRO_S model number & read,write func --- DUALSONIC.vb | 2 +- MainForm.vb | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/DUALSONIC.vb b/DUALSONIC.vb index c79c4eb..78f56c9 100644 --- a/DUALSONIC.vb +++ b/DUALSONIC.vb @@ -82,7 +82,7 @@ DS_PRO = 1 DS_LUX DS_ALPHA = 4 - DS_PRO_S = 5 + DS_PRO_S = 8 MAX_DS_MODEL_NUM End Enum Public Enum DS_TYPE diff --git a/MainForm.vb b/MainForm.vb index 83dddea..2997483 100644 --- a/MainForm.vb +++ b/MainForm.vb @@ -3260,6 +3260,7 @@ Public Class MainForm If tmpModelType = DS_PRODUCT.DS_PRO_DEV Or tmpModelType = DS_PRODUCT.DS_PRO_FACE Or tmpModelType = DS_PRODUCT.DS_PRO_EYE Or tmpModelType = DS_PRODUCT.DS_PRO_BODY Then ElseIf tmpModelType = DS_PRODUCT.DS_LUX_DEV Or tmpModelType = DS_PRODUCT.DS_LUX_FACE Or tmpModelType = DS_PRODUCT.DS_LUX_EYE Or tmpModelType = DS_PRODUCT.DS_LUX_BODY Then ElseIf tmpModelType = DS_PRODUCT.DS_ALPHA_DEV Or tmpModelType = DS_PRODUCT.DS_ALPHA_FACE Or tmpModelType = DS_PRODUCT.DS_ALPHA_EYE Or tmpModelType = DS_PRODUCT.DS_ALPHA_BODY Then + ElseIf tmpModelType = DS_PRODUCT.DS_PRO_S_DEV Or tmpModelType = DS_PRODUCT.DS_PRO_S_FACE Or tmpModelType = DS_PRODUCT.DS_PRO_S_EYE Or tmpModelType = DS_PRODUCT.DS_PRO_S_BODY Then Else Return End If @@ -3425,6 +3426,8 @@ DUPLICATION_NG: txbInfo_Model(MODEL_TYPE).Text = "LUX" ElseIf DS_SN(MODEL_TYPE).MODEL = DS_MODEL.DS_ALPHA Then txbInfo_Model(MODEL_TYPE).Text = "ALPHA" + ElseIf DS_SN(MODEL_TYPE).MODEL = DS_MODEL.DS_PRO_S Then + txbInfo_Model(MODEL_TYPE).Text = "PRO_S" End If txbInfo_Manufacture(MODEL_TYPE).Text = "JOMT" txbInfo_Year(MODEL_TYPE).Text = DS_SN(MODEL_TYPE).YEAR @@ -3827,6 +3830,8 @@ DUPLICATION_NG: Conf_DS_Set.CONF_MODEL = DS_MODEL.DS_LUX ElseIf txbConf_Model.Text = "ALPHA" Then Conf_DS_Set.CONF_MODEL = DS_MODEL.DS_ALPHA + ElseIf txbConf_Model.Text = "PRO_S" Then + Conf_DS_Set.CONF_MODEL = DS_MODEL.DS_PRO_S End If txbConf_FaceShot.Text = ItemSelectFace(CboNum).Text