ssy99 068445671a feat: 최초 커밋
기존 프로그램 업로드
2025-05-07 08:58:52 +09:00

1355 lines
38 KiB
VB.net

Module FormSetting
Public Enum ModeList
DUALSONIC
MAXIMUM
ALTO
EFFECT
MAX_Mode
End Enum
Public SelectModel As Int16
Public Sub StartTop()
With MainForm
'' 상단 컴포넌트
With .pnTop
.Location = New Point(0, 0)
.Size = New Size(1210, 90)
End With
With .gbProdSelect
.Location = New Point(10, 5)
.Size = New Size(400, 80)
End With
With .gbComport
.Location = New Point(415, 5)
.Size = New Size(350, 80)
End With
With .lbComport
.Location = New Point(20, 35)
End With
With .cboComport
.Location = New Point(105, 32)
.Size = New Size(140, 32)
End With
With .btnComport
.Location = New Point(250, 30)
.Size = New Size(75, 37)
End With
With .gbEtcOp
.Location = New Point(770, 5)
.Size = New Size(125, 80)
End With
With .ckbDBUse
.Location = New Point(20, 35)
End With
With .gbOpOut
.Location = New Point(900, 5)
.Size = New Size(310, 80)
End With
With .rdbUseTime
.Location = New Point(40, 35)
.Size = New Size(106, 28)
End With
With .rdbDev
.Location = New Point(165, 35)
.Size = New Size(106, 28)
End With
With .pnBottom
.Location = New Point(0, 90)
.Enabled = False
End With
End With
End Sub
Public Sub DUALForm_Setting()
AuthSetting("인증코드설정", "카트리지")
DefaultSetting()
ModeSetting(SelectModel)
DUALSetting()
End Sub
Private Sub DUALSetting()
MainForm.gbTD.Enabled = False
MainForm.rdbDev.Enabled = True
MainForm.rdbDev.Checked = True
MainForm.rdbUseTime.Checked = False
End Sub
Public Sub MAXForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
MAXSetting()
End Sub
Public Sub ALTOForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
MAXSetting()
End Sub
Public Sub EFFECTForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
MAXSetting()
End Sub
Private Sub MAXSetting()
With MainForm
With .rdbDev
.Enabled = False
.Checked = False
End With
With .rdbUseTime
.Checked = True
End With
With .txbTDSerial
.Text = "DITI"
End With
With .txbShot
.Text = "0"
End With
With .txbMaxShot
.Text = "0"
End With
With .gbTD
.Enabled = True
End With
End With
End Sub
Private Sub ModeSetting(ModelNum As Int16)
InfoModeSetting(ModelNum)
ShotCountSetting(ModelNum)
MotorOpSetting(ModelNum)
FreqOpSetting(ModelNum)
End Sub
Private Sub DefaultSetting()
InfoSetting()
AreaSetting()
TDSetting()
FreqPowerSetting()
ShotSetting()
MotorSetting()
DeviceOpSetting()
End Sub
Private Sub AuthSetting(btnStr As String, btnStr2 As String)
'' 인증 항목
With MainForm
With .gbAuth
.Location = New Point(10, 35)
.Size = New Size(380, 70)
.Text = btnStr
End With
With .txbAuthBox
.Location = New Point(20, 30)
.Size = New Size(130, 29)
.Text = String.Empty
.BackColor = Color.FromArgb(0, 192, 0)
.Visible = False
End With
With .btnAuth
.Location = New Point(160, 27)
.Size = New Size(210, 35)
.Text = btnStr2
End With
End With
End Sub
Private Sub InfoSetting()
With MainForm
With .gbInfo
.Text = "제품 정보 설정"
.Location = New Point(10, 125)
.Size = New Size(380, 330)
End With
''----------------------------------------------------
With .pnIfNumber
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbIfBarcode
.Location = New Point(5, 7)
End With
With .txbIfNumber
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "10" & Format(Now, "yy") & Format(Now, "MM") & "000000"
.ReadOnly = True
End With
''----------------------------------------------------
With .pnIfCode
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbIfCode
.Location = New Point(5, 7)
End With
With .txbIfCode
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "JOMT"
.MaxLength = 4
End With
''----------------------------------------------------
With .pnIfDate
.Location = New Point(10, 110)
.Size = New Size(360, 40)
End With
With .lbIfDate
.Location = New Point(23, 7)
End With
With .lbIfYear
.Location = New Point(140, 8)
End With
With .nudIfYear
.Location = New Point(175, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Minimum = 10
.Maximum = 99
.Text = Format(Now, "yy")
End With
''----------------------------------------------------
With .lbIfMonth
.Location = New Point(250, 8)
End With
With .nudIfMonth
.Location = New Point(285, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Minimum = 1
.Maximum = 12
.Text = Format(Now, "MM")
End With
''--------------------------------------------------------
With .pnIfSerial
.Location = New Point(10, 230)
.Size = New Size(360, 40)
End With
With .lbIfSerial
.Location = New Point(5, 7)
End With
With .nudIfSerial
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Maximum = 999999
.Minimum = 0
End With
With .pnIfResult
.Location = New Point(10, 270)
.Size = New Size(360, 50)
End With
With .btnIfWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
.Text = "쓰기"
End With
With .btnIfRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .txbInfoBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.TextAlign = HorizontalAlignment.Center
.Text = String.Empty
.BackColor = Color.FromArgb(0, 192, 0)
.Visible = False
End With
End With
End Sub
Private Sub InfoModeSetting(ModeNum As Int16)
Select Case ModeNum
Case ModeList.DUALSONIC
With MainForm
With .gbInfo
.Size = New Size(380, 330)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 80)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "모델종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "PRO"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "LUX"
.Checked = False
.Visible = True
.Enabled = True
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = True
.Enabled = True
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = True
.Enabled = True
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
End With
With .rdbIfBody
.Location = New Point(260, 7)
End With
With .pnIfSerial
.Location = New Point(10, 230)
End With
With .pnIfResult
.Location = New Point(10, 270)
End With
End With
Case ModeList.MAXIMUM
With MainForm
With .gbInfo
.Size = New Size(380, 290)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "V1"
.Checked = False
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case ModeList.ALTO
With MainForm
With .gbInfo
.Size = New Size(380, 290)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "SET"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = False
.Visible = False
.Enabled = False
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case ModeList.EFFECT
With MainForm
With .gbInfo
.Size = New Size(380, 290)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "SET"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = False
.Visible = False
.Enabled = False
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
End Sub
Private Sub AreaSetting()
With MainForm
With .gbArea
.Location = New Point(10, 475)
.Size = New Size(380, 170)
End With
With .pnAbroad
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbAbroad
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .txbAbroad
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "0"
End With
With .pnAgency
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbAgency
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .txbAgency
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "0"
End With
With .pnArResult
.Location = New Point(10, 110)
.Size = New Size(360, 50)
End With
With .txbAreaBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.BackColor = Color.FromArgb(0, 192, 0)
.TextAlign = HorizontalAlignment.Center
.Text = String.Empty
.Visible = False
End With
With .btnArRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .btnArWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
End With
End With
End Sub
Private Sub TDSetting()
With MainForm
With .gbTD
.Location = New Point(400, 35)
.Size = New Size(380, 130)
End With
With .pnTDSerial
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbTDSerial
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .txbTDSerial
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "DITI"
.TextAlign = HorizontalAlignment.Center
.CharacterCasing = CharacterCasing.Upper
.MaxLength = 10
.ImeMode = ImeMode.Disable
End With
With .pnTdResult
.Location = New Point(10, 70)
.Size = New Size(360, 50)
End With
With .txbTDBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.BackColor = Color.FromArgb(0, 192, 0)
.Text = String.Empty
.Visible = False
End With
With .btnTdRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .btnTdWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
End With
End With
End Sub
Private Sub FreqPowerSetting()
With MainForm
With .gbFreqPwr
.Location = New Point(400, 170)
.Size = New Size(380, 170)
End With
With .pnFreq
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbFreq
.Location = New Point(41, 7)
.Size = New Size(64, 24)
End With
With .txbFreq
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "7000"
.TextAlign = HorizontalAlignment.Center
End With
With .pnPower
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbPower
.Location = New Point(59, 7)
.Size = New Size(46, 24)
End With
With .txbPower
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
End With
End Sub
Private Sub ShotSetting()
With MainForm
With .gbShot
.Location = New Point(400, 475)
.Size = New Size(380, 170)
End With
With .pnShot
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbShot
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .txbShot
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
With .pnMaxShot
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbMaxShot
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .txbMaxShot
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
With .pnShResult
.Location = New Point(10, 70)
.Size = New Size(360, 50)
End With
With .txbShotBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.BackColor = Color.FromArgb(0, 192, 0)
.Text = String.Empty
.Visible = False
End With
With .btnShRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .btnShWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
End With
End With
End Sub
Private Sub ShotCountSetting(ModelNum As Int16)
Select Case ModelNum
Case ModeList.DUALSONIC
With MainForm
With .pnMaxShot
.Visible = True
End With
With .pnShResult
.Location = New Point(10, 110)
End With
With .gbShot
.Enabled = True
End With
End With
Case ModeList.MAXIMUM
With MainForm
With .pnMaxShot
.Visible = False
End With
With .pnShResult
.Location = New Point(10, 70)
End With
With .gbShot
.Enabled = True
End With
End With
Case ModeList.ALTO
With MainForm
With .gbShot
.Enabled = False
End With
End With
Case ModeList.EFFECT
With MainForm
With .pnMaxShot
.Visible = False
End With
With .pnShResult
.Location = New Point(10, 70)
End With
With .gbShot
.Enabled = True
End With
End With
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
End Sub
Private Sub MotorSetting()
With MainForm
With .gbMotor
.Location = New Point(400, 340)
.Size = New Size(380, 130)
End With
With .pnMotor
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbMotor
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .txbMotor
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
End With
End Sub
Private Sub MotorOpSetting(ModelNum As Int16)
Select Case ModelNum
Case ModeList.DUALSONIC
With MainForm
With .lbMotor
.Location = New Point(41, 7)
.Text = "백러쉬"
End With
With .gbMotor
.Enabled = True
End With
End With
Case ModeList.MAXIMUM
With MainForm
With .lbMotor
.Location = New Point(23, 7)
.Text = "모터이동"
End With
With .gbMotor
.Enabled = True
End With
End With
Case ModeList.ALTO
With MainForm
With .gbMotor
.Enabled = False
End With
With .lbMotor
.Location = New Point(23, 7)
.Text = "모터이동"
End With
End With
Case ModeList.EFFECT
With MainForm
With .lbMotor
.Location = New Point(23, 7)
.Text = "모터이동"
End With
With .gbMotor
.Enabled = True
End With
End With
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
End Sub
Private Sub FreqOpSetting(ModelNum As Int16)
Select Case ModelNum
Case ModeList.DUALSONIC
With MainForm
With .gbFreqPwr
.Enabled = True
End With
End With
Case ModeList.MAXIMUM
With MainForm
With .gbFreqPwr
.Enabled = True
End With
End With
Case ModeList.ALTO
With MainForm
With .gbFreqPwr
.Enabled = False
End With
End With
Case ModeList.EFFECT
With MainForm
With .gbFreqPwr
.Enabled = True
End With
End With
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
End Sub
Private Sub DeviceOpSetting()
With MainForm
With .gbDevice
.Location = New Point(810, 5)
.Size = New Size(400, 505)
End With
With .gbDvAuth
.Location = New Point(10, 35)
.Size = New Size(380, 70)
End With
With .txbDvAuthBox
.Location = New Point(20, 30)
.Size = New Size(130, 29)
.Text = String.Empty
.TextAlign = HorizontalAlignment.Center
.BackColor = Color.FromArgb(0, 192, 0)
End With
With .btnDvAuth
.Location = New Point(160, 27)
.Size = New Size(210, 35)
.Text = "본체"
End With
With .gbDvInfo
.Location = New Point(10, 125)
.Size = New Size(380, 365)
End With
With .pnDvNumber
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbDvNumber
.Location = New Point(5, 7)
.Size = New Size(100, 24)
.Text = "바코드넘버"
End With
With .txbDvNumber
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = String.Empty
.TextAlign = HorizontalAlignment.Center
.ReadOnly = True
End With
With .pnDvCode
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbDvCode
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .txbDvCode
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "JOMT"
.TextAlign = HorizontalAlignment.Center
End With
With .pnDvDate
.Location = New Point(10, 110)
.Size = New Size(360, 40)
End With
With .lbDvDate
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .lbDvYear
.Location = New Point(140, 8)
.Size = New Size(28, 24)
End With
With .nudDvYear
.Location = New Point(175, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Text = Format(Now, "yy")
.Maximum = 99
.Minimum = 10
End With
With .lbDvMonth
.Location = New Point(250, 8)
.Size = New Size(28, 24)
End With
With .nudDvMonth
.Location = New Point(285, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Text = Format(Now, "MM")
.Maximum = 12
.Minimum = 1
End With
With .pnDvMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnDvModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbDvModel
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .rdbDvPRO
.Location = New Point(110, 7)
.Size = New Size(66, 28)
End With
With .rdbDvLUX
.Location = New Point(182, 7)
.Size = New Size(67, 28)
End With
With .rdbDvALPHA
.Location = New Point(260, 7)
.Size = New Size(91, 28)
End With
With .pnDvSerial
.Location = New Point(10, 190)
.Size = New Size(360, 40)
End With
With .lbDvSerial
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .nudDvSerial
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = 0
.Maximum = 999999
.Minimum = 0
End With
With .pnDvAbroad
.Location = New Point(10, 230)
.Size = New Size(360, 40)
End With
With .lbDvAbroad
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .txbDvAbroad
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
With .pnDvAgency
.Location = New Point(10, 270)
.Size = New Size(360, 40)
End With
With .lbDvAgency
.Location = New Point(5, 7)
.Size = New Size(5, 7)
End With
With .txbDvAgency
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.Text = "0"
.TextAlign = HorizontalAlignment.Center
End With
With .pnDvResult
.Location = New Point(10, 310)
.Size = New Size(360, 50)
End With
With .txbDvInfoBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.BackColor = Color.FromArgb(0, 192, 0)
.Text = String.Empty
.TextAlign = HorizontalAlignment.Center
End With
With .btnDvRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .btnDvWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
End With
End With
End Sub
Public Sub ResetClear()
With MainForm
.txbIfNumber.Text = String.Empty
.txbIfCode.Text = String.Empty
.nudIfYear.Text = Format(Now, "yy")
.nudIfMonth.Text = Format(Now, "MM")
.rdbIfPRO_V1.Checked = True
.rdbIfLUX_V2.Checked = False
.rdbIfALPHA.Checked = False
.rdbIfFace.Checked = True
.rdbIfEye.Checked = False
.rdbIfBody.Checked = False
.nudIfSerial.Text = String.Empty
.txbAbroad.Text = String.Empty
.txbAgency.Text = String.Empty
.txbTDSerial.Text = String.Empty
.txbFreq.Text = String.Empty
.txbPower.Text = String.Empty
.txbMotor.Text = String.Empty
.txbShot.Text = String.Empty
.txbMaxShot.Text = String.Empty
.txbALFtDay.Text = "0000"
.txbALFtHour.Text = "00"
.txbALFtMin.Text = "00"
.txbALFtSec.Text = "00"
.txbALEtDay.Text = "0000"
.txbALEtHour.Text = "00"
.txbALEtMin.Text = "00"
.txbALEtSec.Text = "00"
.txbALCsDay.Text = "0000"
.txbALCsHour.Text = "00"
.txbALCsMin.Text = "00"
.txbALCsSec.Text = "00"
.txbALLtDay.Text = "0000"
.txbALLtHour.Text = "00"
.txbALLtMin.Text = "00"
.txbALLtSec.Text = "00"
.txbALBtDay.Text = "0000"
.txbALBtHour.Text = "00"
.txbALBtMin.Text = "00"
.txbALBtSec.Text = "00"
.txbALAllDay.Text = "0000"
.txbALAllHour.Text = "00"
.txbALAllMin.Text = "00"
.txbALAllSec.Text = "00"
.txbALAllErr.Text = String.Empty
End With
End Sub
End Module