jionmt-sw/etc-prod-utility
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request 'feat: #2 보수 연산을 적용한 Dualsonic 시리얼 파싱 로직 구현' (#6) from feature/serial-complement-parser into main

Browse Source 
Reviewed-on: #6
This commit is contained in:
ssy99 2025-05-08 16:37:35 +09:00
commit a413b16831
1 changed files with 25 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
Product_Manager/MainForm.vb
View File

@ -16,9 +16,7 @@ Public Class MainForm
Private Const WriteSerialLength As Int16 = 6 Private Const WriteSerialLength As Int16 = 6
Private Const SerialLength As Int16 = 9 Private Const SerialLength As Int16 = 9
Private Const SerialParsingLength As Int16 = 12 Private Const SerialParsingLength As Int16 = 12
Private Const PROSerialParsing As ULong = 111669149696 Private Const TwosComplement32Mask As Long = 4294967296
Private Const LUXSerialParsing As ULong = 0
Private Const ALPHASerialParsing As ULong = 412316860416
Private Const OneDay As Int32 = 86400 Private Const OneDay As Int32 = 86400
Private Const OneHour As Int32 = 3600 Private Const OneHour As Int32 = 3600
@ -562,10 +560,12 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
txbIfNumber.Text = CInt(ModelCode) & CInt(TypeCode) & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3) Dim nudSerial = nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3)
Dim productSerial = CInt(ModelCode) & CInt(TypeCode) & nudSerial
txbIfNumber.Text = productSerial
tmpCmdMessage = "cartsn" tmpCmdMessage = "cartsn"
cmdMessage = "[sb" & tmpCmdMessage & " " & txbIfNumber.Text & "]" cmdMessage = "[sb" & tmpCmdMessage & " " & nudSerial & "]"
If SendData(cmdMessage) Then If SendData(cmdMessage) Then
StageCnt = ErrorList.SendError StageCnt = ErrorList.SendError
@ -1020,16 +1020,16 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
DataResult = Mid(DataResult, 1, 1) Dim cartCode = Mid(DataResult, 1, 1)
If TypeChecking(Val(DataResult)) Then If TypeChecking(Val(cartCode)) Then
MsgBox("없는 타입 번호입니다.", vbCritical, FormName) MsgBox("없는 타입 번호입니다.", vbCritical, FormName)
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
''************************************ '************************************
''****** 시리얼넘버 발신 ********** '****** 시리얼넘버 발신 **********
''************************************ '************************************
tmpCmdMessage = "cartsn" tmpCmdMessage = "cartsn"
cmdMessage = "[sb" & tmpCmdMessage & "]" cmdMessage = "[sb" & tmpCmdMessage & "]"
@ -1039,6 +1039,7 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
DataResult = PollingReceiveData(1500) DataResult = PollingReceiveData(1500)
If DataResult = "False" Then If DataResult = "False" Then
@ -1046,22 +1047,26 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
'If DataResult.Length <> SerialLength Then Dim serial = Long.Parse(DataResult)
' StageCnt = ErrorList.DataError
' GoTo FAIL_Finish
'End If
DataResult = SerialParsingFunc(ModelCode, DataResult) If serial < 0 Then
serial += TwosComplement32Mask
End If
If DataResult.Length <> SerialParsingLength Then DataResult = serial.ToString
Dim productSerial = ModelCode & cartCode & DataResult
If productSerial.Length <> SerialParsingLength Then
StageCnt = ErrorList.DataError StageCnt = ErrorList.DataError
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
txbIfNumber.Text = DataResult txbIfNumber.Text = productSerial
nudIfYear.Text = Mid(DataResult, 3, 2)
nudIfMonth.Text = Mid(DataResult, 5, 2) nudIfYear.Text = Mid(productSerial, 3, 2)
nudIfSerial.Text = Mid(DataResult, 10, 3) & Mid(DataResult, 7, 3) nudIfMonth.Text = Mid(productSerial, 5, 2)
nudIfSerial.Text = Mid(productSerial, 10, 3) & Mid(productSerial, 7, 3)
txbInfoBox.Text = "SUCCESS" txbInfoBox.Text = "SUCCESS"
txbInfoBox.BackColor = Color.Green txbInfoBox.BackColor = Color.Green
@ -1322,19 +1327,6 @@ End_Finish:
txbInfoBox.BackColor = Color.FromArgb(0, 192, 0) txbInfoBox.BackColor = Color.FromArgb(0, 192, 0)
End Sub End Sub
Private Function SerialParsingFunc(ModelNum As Int16, CheckSerial As String) As String
Select Case ModelNum
Case ModelList.PRO
Return Val(CheckSerial) + PROSerialParsing
Case ModelList.LUX
Return Val(CheckSerial) + LUXSerialParsing
Case ModelList.ALPHA
Return Val(CheckSerial) + ALPHASerialParsing
Case Else
Return False
End Select
End Function
Private Function ModelChecking(ModelNum As Int16) As Boolean Private Function ModelChecking(ModelNum As Int16) As Boolean
Select Case ModelNum Select Case ModelNum
Case ModelList.PRO Case ModelList.PRO