chore: program version 1.1.3

.vs/ProductVerifier/v17/DocumentLayout.backup.json

@@ -1,53 +0,0 @@
-{
-  "Version": 1,
-  "WorkspaceRootPath": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\",
-  "Documents": [
-    {
-      "AbsoluteMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|c:\\users\\jomt-note-pc\\secudrive dg\\programs\\maximum_function_program_ver 10\\maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|solutionrelative:maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
-    },
-    {
-      "AbsoluteMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|solutionrelative:maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    }
-  ],
-  "DocumentGroupContainers": [
-    {
-      "Orientation": 0,
-      "VerticalTabListWidth": 256,
-      "DocumentGroups": [
-        {
-          "DockedWidth": 200,
-          "SelectedChildIndex": 1,
-          "Children": [
-            {
-              "$type": "Document",
-              "DocumentIndex": 1,
-              "Title": "mainForm.vb",
-              "DocumentMoniker": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeDocumentMoniker": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ToolTip": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeToolTip": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ViewState": "AgIAABkMAAAAAAAAAAAUwDUMAAAAAAAAAAAAAA==",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-02T06:33:14.851Z",
-              "EditorCaption": ""
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 0,
-              "Title": "mainForm.vb [\uB514\uC790\uC778]",
-              "DocumentMoniker": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeDocumentMoniker": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ToolTip": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb [\uB514\uC790\uC778]",
-              "RelativeToolTip": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb [\uB514\uC790\uC778]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-02T06:33:15.114Z",
-              "EditorCaption": " [\uB514\uC790\uC778]"
-            }
-          ]
-        }
-      ]
-    }
-  ]
-}

.vs/ProductVerifier/v17/DocumentLayout.json

@@ -1,53 +0,0 @@
-{
-  "Version": 1,
-  "WorkspaceRootPath": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\",
-  "Documents": [
-    {
-      "AbsoluteMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|c:\\users\\jomt-note-pc\\secudrive dg\\programs\\maximum_function_program_ver 10\\maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|solutionrelative:maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
-    },
-    {
-      "AbsoluteMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{B545B75D-B4ED-4A10-BA59-6D3F2BD082CF}|MAXIMUM_FUNCTION_PROGRAM\\MAXIMUM_FUNCTION_PROGRAM.vbproj|solutionrelative:maximum_function_program\\mainform.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    }
-  ],
-  "DocumentGroupContainers": [
-    {
-      "Orientation": 0,
-      "VerticalTabListWidth": 256,
-      "DocumentGroups": [
-        {
-          "DockedWidth": 200,
-          "SelectedChildIndex": 1,
-          "Children": [
-            {
-              "$type": "Document",
-              "DocumentIndex": 1,
-              "Title": "mainForm.vb",
-              "DocumentMoniker": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeDocumentMoniker": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ToolTip": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeToolTip": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ViewState": "AgIAABkMAAAAAAAAAAAUwDUMAAAAAAAAAAAAAA==",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-02T06:33:14.851Z",
-              "EditorCaption": ""
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 0,
-              "Title": "mainForm.vb [\uB514\uC790\uC778]",
-              "DocumentMoniker": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "RelativeDocumentMoniker": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb",
-              "ToolTip": "C:\\Users\\JOMT-NOTE-PC\\SECUDRIVE DG\\programs\\MAXIMUM_FUNCTION_PROGRAM_ver 10\\MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb [\uB514\uC790\uC778]",
-              "RelativeToolTip": "MAXIMUM_FUNCTION_PROGRAM\\mainForm.vb [\uB514\uC790\uC778]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-02T06:33:15.114Z",
-              "EditorCaption": " [\uB514\uC790\uC778]"
-            }
-          ]
-        }
-      ]
-    }
-  ]
-}

MAXIMUM_FUNCTION_PROGRAM/bin/Debug/Config/Standard_MaxAlpha.ini

@@ -0,0 +1 @@
+1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1.0.1^4.5^3.5^35^10^35^10^2^0^35^20^3^1^35^20^4^2^35^20^5^3^1^70^60^5^4^2^70^60^5^5^3^70^60^01234

MAXIMUM_FUNCTION_PROGRAM/bin/Debug/MAXIMUM_FUNCTION_PROGRAM.exe.config

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-<configuration>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
-    </startup>
-</configuration>

MAXIMUM_FUNCTION_PROGRAM/bin/Debug/MAXIMUM_FUNCTION_PROGRAM.xml

@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-<doc>
-<assembly>
-<name>
-MAXIMUM_FUNCTION_PROGRAM
-</name>
-</assembly>
-<members>
-<member name="T:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources">
-<summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
-</summary>
-</member>
-<member name="P:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources.ResourceManager">
-<summary>
-  Returns the cached ResourceManager instance used by this class.
-</summary>
-</member>
-<member name="P:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources.Culture">
-<summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
-</summary>
-</member>
-</members>
-</doc>

MAXIMUM_FUNCTION_PROGRAM/mainForm.Designer.vb

@@ -32,6 +32,7 @@ Partial Class mainForm
         Me.lbProdSerial = New System.Windows.Forms.Label()
         Me.gbData = New System.Windows.Forms.GroupBox()
         Me.gbMaximum = New System.Windows.Forms.GroupBox()
+        Me.monthCal = New System.Windows.Forms.MonthCalendar()
         Me.pnButton = New System.Windows.Forms.Panel()
         Me.btnFuncRun = New System.Windows.Forms.Button()
         Me.txbRunState = New System.Windows.Forms.TextBox()
@@ -65,7 +66,6 @@ Partial Class mainForm
         Me.lbRDate_M1 = New System.Windows.Forms.Label()
         Me.txbRDate_M1 = New System.Windows.Forms.TextBox()
         Me.gbHIFU_M1 = New System.Windows.Forms.GroupBox()
-        Me.monthCal = New System.Windows.Forms.MonthCalendar()
         Me.pnHHifu_M1 = New System.Windows.Forms.Panel()
         Me.lbHHifu_M1 = New System.Windows.Forms.Label()
         Me.txbHHifu_M1 = New System.Windows.Forms.TextBox()
@@ -174,6 +174,7 @@ Partial Class mainForm
         Me.nowTimer = New System.Windows.Forms.Timer(Me.components)
         Me.pnStandard = New System.Windows.Forms.Panel()
         Me.gbOpChange = New System.Windows.Forms.GroupBox()
+        Me.rdbMaxAlpha = New System.Windows.Forms.RadioButton()
         Me.rdbEffect = New System.Windows.Forms.RadioButton()
         Me.rdbAlto = New System.Windows.Forms.RadioButton()
         Me.rdbMax = New System.Windows.Forms.RadioButton()
@@ -942,6 +943,16 @@ Partial Class mainForm
         Me.gbMaximum.TabStop = False
         Me.gbMaximum.Text = "MAXIMUM 데이터"
         '
+        'monthCal
+        '
+        Me.monthCal.Location = New System.Drawing.Point(1272, 390)
+        Me.monthCal.Margin = New System.Windows.Forms.Padding(10, 11, 10, 11)
+        Me.monthCal.MaxSelectionCount = 1
+        Me.monthCal.MinDate = New Date(2018, 1, 1, 0, 0, 0, 0)
+        Me.monthCal.Name = "monthCal"
+        Me.monthCal.TabIndex = 119
+        Me.monthCal.Visible = False
+        '
         'pnButton
         '
         Me.pnButton.Controls.Add(Me.btnFuncRun)
@@ -1071,7 +1082,7 @@ Partial Class mainForm
         '
         Me.cboCsvProd.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
         Me.cboCsvProd.FormattingEnabled = True
-        Me.cboCsvProd.Items.AddRange(New Object() {"MAXIMUM", "ALTO", "EFFECT"})
+        Me.cboCsvProd.Items.AddRange(New Object() {"MAXIMUM", "ALTO", "EFFECT", "MAXIMUM ALPHA"})
         Me.cboCsvProd.Location = New System.Drawing.Point(65, 1)
         Me.cboCsvProd.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.cboCsvProd.Name = "cboCsvProd"
@@ -1305,16 +1316,6 @@ Partial Class mainForm
         Me.gbHIFU_M1.TabStop = False
         Me.gbHIFU_M1.Text = "출력값 측정"
         '
-        'monthCal
-        '
-        Me.monthCal.Location = New System.Drawing.Point(1272, 390)
-        Me.monthCal.Margin = New System.Windows.Forms.Padding(10, 11, 10, 11)
-        Me.monthCal.MaxSelectionCount = 1
-        Me.monthCal.MinDate = New Date(2018, 1, 1, 0, 0, 0, 0)
-        Me.monthCal.Name = "monthCal"
-        Me.monthCal.TabIndex = 119
-        Me.monthCal.Visible = False
-        '
         'pnHHifu_M1
         '
         Me.pnHHifu_M1.Controls.Add(Me.lbHHifu_M1)
@@ -2470,23 +2471,37 @@ Partial Class mainForm
         '
         'gbOpChange
         '
+        Me.gbOpChange.Controls.Add(Me.rdbMaxAlpha)
         Me.gbOpChange.Controls.Add(Me.rdbEffect)
         Me.gbOpChange.Controls.Add(Me.rdbAlto)
         Me.gbOpChange.Controls.Add(Me.rdbMax)
         Me.gbOpChange.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.gbOpChange.Location = New System.Drawing.Point(1291, 4)
+        Me.gbOpChange.Location = New System.Drawing.Point(948, 4)
         Me.gbOpChange.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.gbOpChange.Name = "gbOpChange"
         Me.gbOpChange.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.gbOpChange.Size = New System.Drawing.Size(423, 112)
+        Me.gbOpChange.Size = New System.Drawing.Size(766, 112)
         Me.gbOpChange.TabIndex = 4
         Me.gbOpChange.TabStop = False
         Me.gbOpChange.Text = "기준 설정"
         '
+        'rdbMaxAlpha
+        '
+        Me.rdbMaxAlpha.AutoSize = True
+        Me.rdbMaxAlpha.Checked = True
+        Me.rdbMaxAlpha.Location = New System.Drawing.Point(478, 48)
+        Me.rdbMaxAlpha.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.rdbMaxAlpha.Name = "rdbMaxAlpha"
+        Me.rdbMaxAlpha.Size = New System.Drawing.Size(269, 39)
+        Me.rdbMaxAlpha.TabIndex = 3
+        Me.rdbMaxAlpha.TabStop = True
+        Me.rdbMaxAlpha.Text = "MAXIMUM ALPHA"
+        Me.rdbMaxAlpha.UseVisualStyleBackColor = True
+        '
         'rdbEffect
         '
         Me.rdbEffect.AutoSize = True
-        Me.rdbEffect.Location = New System.Drawing.Point(287, 48)
+        Me.rdbEffect.Location = New System.Drawing.Point(320, 47)
         Me.rdbEffect.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.rdbEffect.Name = "rdbEffect"
         Me.rdbEffect.Size = New System.Drawing.Size(141, 39)
@@ -2497,7 +2512,7 @@ Partial Class mainForm
         'rdbAlto
         '
         Me.rdbAlto.AutoSize = True
-        Me.rdbAlto.Location = New System.Drawing.Point(184, 48)
+        Me.rdbAlto.Location = New System.Drawing.Point(198, 48)
         Me.rdbAlto.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.rdbAlto.Name = "rdbAlto"
         Me.rdbAlto.Size = New System.Drawing.Size(108, 39)
@@ -7475,6 +7490,7 @@ Partial Class mainForm
     Friend WithEvents txbReCount As TextBox
     Friend WithEvents Label3 As Label
     Friend WithEvents rdbEffect As RadioButton
+    Friend WithEvents rdbMaxAlpha As RadioButton
     Friend WithEvents Panel3 As Panel
     Friend WithEvents txbDate As TextBox
     Friend WithEvents lbDate As Label

MAXIMUM_FUNCTION_PROGRAM/mainForm.vb

@@ -214,6 +214,15 @@ Public Class mainForm
     Private cartSerial(prodTypeList.cartEtc) As String
     Private TDUseCompare As Boolean
     Private searchType As Int16
+    Private Enum maxAlphaColorList
+        Ruby_Red = 0
+        Topaz_Orange = 2
+        Emerald_Green = 3
+        Sapphire_Blue = 4
+        Topaz_Brown = 5
+        Sitrin_Gold = 7
+    End Enum
+    Private colorTypeMaxAlpha As Int16
 
     Private Enum maxColorList
         White = 0
@@ -223,19 +232,41 @@ Public Class mainForm
         Yellow = 5
         Mint = 7
         Purple = 8
-        blackGold = 9
+        Black_Gold = 9
     End Enum
-    Private colorType As Int16
+    Private colorTypeMax As Int16
+
+    Private Enum altoColorList
+        White = 0
+        Purple = 8
+        Black_Gold = 9
+    End Enum
+    Private colorTypeAlto As Int16
 
     Private Enum eftColorList
         White_Pink = 1
         White_Sky = 2
         White_Brown = 3
-
-        Max_Effect_Color
     End Enum
     Private colorTypeEft As Int16
 
+    Private Enum alphaColorList
+        Black = 1
+    End Enum
+    Private colorTypeAlpha As Int16
+
+    Private Enum luxColorList
+        White = 0
+        Black = 1
+    End Enum
+    Private colorTypeLux As Int16
+
+    Private Enum proColorList
+        White = 0
+        Black = 1
+    End Enum
+    Private colorTypePro As Int16
+
     Private Enum prodModelList
         prodPro = 1
         prodLux
@@ -243,6 +274,7 @@ Public Class mainForm
         prodAlpha
         prodAlto
         prodEffect
+        prodMaxAlpha
     End Enum
     Private modelType As Int16
 
@@ -325,7 +357,7 @@ Public Class mainForm
 
     Private Sub startSetting()
         Const programName As String = "MAXIMUM FUNCTION DATA INFO VER."
-        Const programVer As String = "1.1.0"
+        Const programVer As String = "1.1.3"
         Me.Text = programName & programVer
         Me.Size = New Size(1920, 1060)
         Me.Location = New Point(0, 0)
@@ -663,8 +695,14 @@ Public Class mainForm
                 Dim colorName As String
                 If modelName = "EFFECT" Then
                     colorName = fileColorComareForEffectModel()
+                ElseIf modelName = "ALTO" Then
+                    colorName = fileColorComareForAltoModel()
+                ElseIf modelName = "MAXIMUM" Then
+                    colorName = fileColorComareForMaxModel()
+                ElseIf modelName = "MAXIMUM AlPHA" Then
+                    colorName = fileColorComareForMaxAlphaModel()
                 Else
-                    colorName = fileColorCompare()
+                    MsgBox("모델이 없습니다.")
                 End If
 
                 Dim fileName As String = filePath & "\" & saveYear & "-" & saveMonth & "-" & saveDay & "(" & modelName & "_" & typeName & "_" & colorName & ")" & ".csv"
@@ -802,6 +840,21 @@ Public Class mainForm
                 Return "ALTO"
             Case prodModelList.prodEffect
                 Return "EFFECT"
+            Case prodModelList.prodMaxAlpha
+                Return "MAXIMUM ALPHA"
+            Case Else
+                Return "ETC"
+        End Select
+    End Function
+
+    Private Function fileColorComareForAltoModel() As String 'Alto model color'
+        Select Case colorTypeAlto
+            Case altoColorList.White
+                Return "White"
+            Case altoColorList.Purple
+                Return "Purple"
+            Case altoColorList.Black_Gold
+                Return "BlackGold"
             Case Else
                 Return "ETC"
         End Select
@@ -819,9 +872,27 @@ Public Class mainForm
                 Return "ETC"
         End Select
     End Function
+    Private Function fileColorComareForMaxAlphaModel() As String 'Maximum alpha model color'
+        Select Case colorTypeMaxAlpha
+            Case maxAlphaColorList.Ruby_Red
+                Return "RubyRed"
+            Case maxAlphaColorList.Topaz_Orange
+                Return "TopazOrange"
+            Case maxAlphaColorList.Emerald_Green
+                Return "EmeraldGreen"
+            Case maxAlphaColorList.Sapphire_Blue
+                Return "SapphireBlue"
+            Case maxAlphaColorList.Topaz_Brown
+                Return "TopazBrown"
+            Case maxAlphaColorList.Sitrin_Gold
+                Return "SitrinGold"
+            Case Else
+                Return "ETC"
+        End Select
+    End Function
 
-    Private Function fileColorCompare() As String
-        Select Case colorType
+    Private Function fileColorComareForMaxModel() As String 'Maximum model color'
+        Select Case colorTypeMax
             Case maxColorList.White
                 Return "White"
             Case maxColorList.ShineMint
@@ -836,13 +907,57 @@ Public Class mainForm
                 Return "Mint"
             Case maxColorList.Purple
                 Return "Purple"
-            Case maxColorList.blackGold
+            Case maxColorList.Black_Gold
                 Return "BlackGold"
             Case Else
                 Return "etc"
         End Select
     End Function
 
+    Private Function fileColorCompareAltoModel() As String
+        Select Case colorTypeAlto
+            Case altoColorList.White
+                Return "White"
+            Case altoColorList.Purple
+                Return "Purple"
+            Case altoColorList.Black_Gold
+                Return "BlackGold"
+            Case Else
+                Return "etc"
+        End Select
+    End Function
+
+    Private Function fileColorCompareAlphaModel() As String
+        Select Case colorTypeAlpha
+            Case alphaColorList.Black
+                Return "Black"
+            Case Else
+                Return "etc"
+        End Select
+    End Function
+
+    Private Function fileColorCompareLuxModel() As String
+        Select Case colorTypeLux
+            Case luxColorList.White
+                Return "White"
+            Case luxColorList.Black
+                Return "Black"
+            Case Else
+                Return "etc"
+        End Select
+    End Function
+
+    Private Function fileColorCompareProModel() As String
+        Select Case colorTypePro
+            Case proColorList.White
+                Return "White"
+            Case proColorList.Black
+                Return "Black"
+            Case Else
+                Return "etc"
+        End Select
+    End Function
+
     Private Function lastQCDBReg(prodSerial As String) As Boolean
 
         If ckbopTD.Checked = True Then
@@ -1486,6 +1601,8 @@ DataFail:
                 Return "ALTO"
             Case prodModelList.prodEffect
                 Return "EFFECT"
+            Case prodModelList.prodMaxAlpha
+                Return "MAXIMUM ALPHA"
             Case Else
                 Return "FAIL"
         End Select
@@ -1584,8 +1701,14 @@ DataFail:
         Dim tmpColor = Mid(prodSerial, 11, 1)
         If (modelType = prodModelList.prodEffect) Then
             colorTypeEft = tmpColor
+        ElseIf (modelType = prodModelList.prodMaxAlpha) Then
+            colorTypeMaxAlpha = tmpColor
+        ElseIf (modelType = prodModelList.prodMax) Then
+            colorTypeMax = tmpColor
+        ElseIf (modelType = prodModelList.prodAlto) Then
+            colorTypeAlto = tmpColor
         Else
-            colorType = tmpColor
+            MsgBox("시리얼 넘버 확인")
         End If
 
         If modelType = prodModelList.prodPro Or modelType = prodModelList.prodLux Or modelType = prodModelList.prodAlpha Then
@@ -1621,6 +1744,22 @@ DataFail:
                     Case Else
                         cartSerial(prodTypeList.cartEtc) = prodSerial
                 End Select
+            ElseIf modelType = prodModelList.prodMaxAlpha Then
+                TDUseCompare = True
+                Select Case searchType
+                    Case prodTypeList.cartSet_V1
+                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
+                    Case Else
+                        cartSerial(prodTypeList.cartEtc) = prodSerial
+                End Select
+            ElseIf modelType = prodModelList.prodAlto Then
+                TDUseCompare = True
+                Select Case searchType
+                    Case prodTypeList.cartSet_V1
+                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
+                    Case Else
+                        cartSerial(prodTypeList.cartEtc) = prodSerial
+                End Select
             Else
                 TDUseCompare = False
                 Select Case searchType
@@ -1805,6 +1944,8 @@ DataFail:
                 Return "ALTO"
             Case 2
                 Return "EFFECT"
+            Case 3
+                Return "MAXIMUM ALPHA"
             Case Else
                 Return "ETC"
         End Select
@@ -2368,6 +2509,12 @@ finishFunc:
 
             If rdbEffect.Checked = True Then
                 fileName = filePath & "\Standard_EFFECT.ini"
+            ElseIf rdbMaxAlpha.Checked = True Then
+                fileName = filePath & "\Standard_MaxAlpha.ini"
+            ElseIf rdbMax.Checked = True Then
+                fileName = filePath & "\Standard_Max.ini"
+            ElseIf rdbAlto.Checked = True Then
+                fileName = filePath & "\Standard_Alto.ini"
             Else
                 fileName = filePath & "\Standard.ini"
             End If
@@ -2427,12 +2574,16 @@ finishFunc:
 
             If rdbEffect.Checked = True Then
                 fileName = filePath & "\Standard_EFFECT.ini"
+            ElseIf rdbMaxAlpha.Checked = True Then
+                fileName = filePath & "\Standard_MaxAlpha.ini"
+            ElseIf rdbMax.Checked = True Then
+                fileName = filePath & "\Standard_Max.ini"
+            ElseIf rdbAlto.Checked = True Then
+                fileName = filePath & "\Standard_Alto.ini"
             Else
                 fileName = filePath & "\Standard.ini"
             End If
 
-            'Dim fileName As String = filePath & "\Standard.ini"
-
             If File.Exists(fileName) Then
                 Dim readData As String = File.ReadAllText(fileName, System.Text.Encoding.UTF8)
 
@@ -3093,6 +3244,11 @@ WR_File_Error:
 
     Private Sub rdbAlto_CheckedChanged(sender As Object, e As EventArgs) Handles rdbAlto.CheckedChanged
         If rdbAlto.Checked = True Then
+            gbStandard.Text = "Alto 합격기준"
+
+            dataSetting()
+            configLoad()
+
             gbStandard.Visible = False
             gbStandard_AT.Visible = True
         End If
@@ -3110,6 +3266,18 @@ WR_File_Error:
         End If
     End Sub
 
+    Private Sub rdbMaxAlpha_CheckedChanged(sender As Object, e As EventArgs) Handles rdbMaxAlpha.CheckedChanged
+        If rdbMaxAlpha.Checked = True Then
+            gbStandard.Text = "MAXIMUM ALPHA 합격기준"
+
+            dataSetting()
+            configLoad()
+
+            gbStandard.Visible = True
+            gbStandard_AT.Visible = False
+        End If
+    End Sub
+
     Private Sub btnReturn_Click(sender As Object, e As EventArgs) Handles btnReturn.Click
         If txbProdSerial.Text = String.Empty Then
             MsgBox("입력할 정보가 존재하지 않습니다. 데이터를 읽어주십시오,", vbExclamation)

MAXIMUM_FUNCTION_PROGRAM/obj/Debug/MAXIMUM_FUNCTION_PROGRAM.xml

@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-<doc>
-<assembly>
-<name>
-MAXIMUM_FUNCTION_PROGRAM
-</name>
-</assembly>
-<members>
-<member name="T:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources">
-<summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
-</summary>
-</member>
-<member name="P:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources.ResourceManager">
-<summary>
-  Returns the cached ResourceManager instance used by this class.
-</summary>
-</member>
-<member name="P:MAXIMUM_FUNCTION_PROGRAM.My.Resources.Resources.Culture">
-<summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
-</summary>
-</member>
-</members>
-</doc>

README.md

@@ -60,8 +60,10 @@
 
 **모델별 설정 관리**:
 
-- MAXIMUM/ALTO: `Standard.ini` 파일 사용
 - EFFECT: `Standard_EFFECT.ini` 파일 사용
+- MAXIMUM ALPHA: `Standard_MaxAlpha.ini` 파일 사용
+- ALTO: `Standard_Alto.ini` 파일 사용
+- MAXIMUM: `Standard_Max.ini` 파일 사용
 - 모델 선택 시 자동으로 해당 설정 파일 로드
 
 **DB 연동 설정** (체크박스로 선택 가능):

업데이트 내용.txt

@@ -1 +1 @@
-이펙트 추가
+MAXIMUM ALPHA