feat: Effect V3, carton box 8

This commit is contained in:
jiwonRepair 2025-08-08 15:42:46 +09:00
parent 79d5c4ebc2
commit f2427198e5
4 changed files with 2349 additions and 2023 deletions

File diff suppressed because it is too large Load Diff

View File

@ -24,6 +24,7 @@ Public Class countForm
txbAlphaBody.Text = prodComCount(prodDB.alphaBody)
txbAlto.Text = prodComCount(prodDB.alto)
txbeffect.Text = prodComCount(prodDB.effect)
txbeffectV3.Text = prodComCount(prodDB.effectV3)
txbMask5.Text = comComCount(comDB.mask5)
txbMask10.Text = comComCount(comDB.mask10)
@ -98,6 +99,7 @@ Public Class countForm
txbbeltbag.Text = comComCount(comDB.Beltbag)
txbDayshot2.Text = comComCount(comDB.Dayshot2)
txbelixir.Text = comComCount(comDB.Elixir)
txbbox8.Text = comComCount(comDB.car8)
End Sub

File diff suppressed because one or more lines are too long

View File

@ -77,12 +77,13 @@
alphaBody
alto
effect
effectV3
End Enum
Public prodDBCount(prodDB.effect) As Integer '' DB 저장
Public prodInCount(prodDB.effect) As Integer '' 패킹 저장 10
Public prodComCount(prodDB.effect) As Integer '' 로컬 저장
Public prodInSerial(prodDB.effect) As String '' LogData 저장
Public prodPackCommand(prodDB.effect) As String ''
Public prodDBCount(prodDB.effectV3) As Integer '' DB 저장
Public prodInCount(prodDB.effectV3) As Integer '' 패킹 저장 10
Public prodComCount(prodDB.effectV3) As Integer '' 로컬 저장
Public prodInSerial(prodDB.effectV3) As String '' LogData 저장
Public prodPackCommand(prodDB.effectV3) As String ''
Public Enum comDB
mask5
@ -177,11 +178,12 @@
ElesqAquaECream
ElesqAquaAmp
car8
End Enum
Public comDBCount(comDB.ElesqAquaAmp) As Integer ''DB 저장
Public comInCount(comDB.ElesqAquaAmp) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.ElesqAquaAmp) As Integer '' 로컬 저장
Public comDBCount(comDB.car8) As Integer ''DB 저장
Public comInCount(comDB.car8) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.car8) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -237,6 +239,10 @@
prodInCount(prodDB.effect) = ckCount
prodInSerial(prodDB.effect) = serial
Case prodDB.effectV3
prodInCount(prodDB.effectV3) = ckCount
prodInSerial(prodDB.effectV3) = serial
Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
Return True
@ -441,6 +447,8 @@
comInCount(comDB.ElesqAquaECream) = ckCount
Case comDB.ElesqAquaAmp
comInCount(comDB.ElesqAquaAmp) = ckCount
Case comDB.car8
comInCount(comDB.car8) = ckCount
Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -473,6 +481,7 @@
countCommand(prodDB.alphaBody) = "AlphaBodyCnt"
countCommand(prodDB.alto) = "AltoCnt"
countCommand(prodDB.effect) = "EffectCnt"
countCommand(prodDB.effectV3) = "EffectV3Cnt"
countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt"
@ -568,6 +577,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "ElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt"
Case countSaveList.autopack
@ -588,6 +598,7 @@
countCommand(prodDB.alphaBody) = "APAlphaBodyCnt"
countCommand(prodDB.alto) = "APAltoCnt"
countCommand(prodDB.effect) = "APEffectCnt"
countCommand(prodDB.effectV3) = "APEffectV3Cnt"
countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt"
@ -683,6 +694,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "APElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt"
Case countSaveList.autoWeight
@ -704,6 +716,7 @@
countCommand(prodDB.alto) = "AWAltoCnt"
countCommand(prodDB.effect) = "AWEffectCnt"
countCommand(prodDB.effectV3) = "AWEffectV3Cnt"
countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt"
@ -799,6 +812,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "AWElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt"
End Select
End Sub