Compare commits
No commits in common. "fix/NgCount" and "master" have entirely different histories.
fix/NgCoun
...
master
@ -1,11 +1,10 @@
|
|||||||
Imports System.Drawing.Drawing2D
|
Imports System.IO
|
||||||
Imports System.IO
|
|
||||||
Imports System.IO.Ports
|
Imports System.IO.Ports
|
||||||
Imports System.Math
|
Imports System.Math
|
||||||
Imports System.Text
|
|
||||||
Imports AForge.Video.DirectShow
|
|
||||||
Imports OpenCvSharp
|
Imports OpenCvSharp
|
||||||
|
Imports AForge.Video.DirectShow
|
||||||
Imports uPLibrary.Networking.M2Mqtt
|
Imports uPLibrary.Networking.M2Mqtt
|
||||||
|
Imports System.Text
|
||||||
|
|
||||||
Public Class Main_Form
|
Public Class Main_Form
|
||||||
Public Program_Name As String = "DUALSONIC_Multi_Function_Tester Ver."
|
Public Program_Name As String = "DUALSONIC_Multi_Function_Tester Ver."
|
||||||
@ -198,7 +197,7 @@ Public Class Main_Form
|
|||||||
|
|
||||||
Private Enum TestStepList
|
Private Enum TestStepList
|
||||||
HF_NewSuc = 21
|
HF_NewSuc = 21
|
||||||
HF_NewFail
|
HF_NEWFail
|
||||||
RF_NewSuc
|
RF_NewSuc
|
||||||
RF_NewFail
|
RF_NewFail
|
||||||
HF_ReSuc
|
HF_ReSuc
|
||||||
@ -2353,7 +2352,7 @@ SettingFail:
|
|||||||
End Try
|
End Try
|
||||||
|
|
||||||
forSettingFail:
|
forSettingFail:
|
||||||
rfTestFail(ForCnt)
|
rfTestFail(forcnt)
|
||||||
SettingFail:
|
SettingFail:
|
||||||
txbWindow.AppendText("Run RF FAIL" & vbCrLf)
|
txbWindow.AppendText("Run RF FAIL" & vbCrLf)
|
||||||
TestRunningState(testRunningList.Fail, Color.Red)
|
TestRunningState(testRunningList.Fail, Color.Red)
|
||||||
@ -4062,7 +4061,6 @@ startFail:
|
|||||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub AltoFunctionPD()
|
Private Sub AltoFunctionPD()
|
||||||
StartTime = MeasureTimeAll(MeasStart)
|
StartTime = MeasureTimeAll(MeasStart)
|
||||||
|
|
||||||
@ -4256,38 +4254,38 @@ startFail:
|
|||||||
|
|
||||||
If BuzzerTestFunc(0) Then
|
If BuzzerTestFunc(0) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(100)
|
delay_run(100)
|
||||||
|
|
||||||
If TempTest() Then
|
If TempTest() Then
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If RFTestRun() Then
|
If RFTestRun() Then
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If BuzzerTestFunc(1) Then
|
If BuzzerTestFunc(1) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(100)
|
delay_run(100)
|
||||||
|
|
||||||
If EPTestRun() Then
|
If EPTestRun() Then
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If BuzzerTestFunc(2) Then
|
If BuzzerTestFunc(2) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
todayCount += 1
|
todayCount += 1
|
||||||
If saveLocalFile() Then
|
If saveLocalFile() Then
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
GoTo SuccessEnd
|
GoTo SuccessEnd
|
||||||
@ -4343,49 +4341,7 @@ SuccessEnd:
|
|||||||
|
|
||||||
ProcessEnd:
|
ProcessEnd:
|
||||||
Jig_End()
|
Jig_End()
|
||||||
GoTo NormalEnd
|
|
||||||
NgEnd:
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf)
|
|
||||||
If ALIQC_PostReg() Then
|
|
||||||
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
|
||||||
Dim csvData As String = "" & NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_Temperature(TempData.DivTemp) & "," & TestData.Test_Temperature(TempData.CartTemp) & "," & TestData.Test_Battery & "," & TestData.Test_RFVRMS(0) & "," & TestData.Test_RFFreq(0) & "," & TestData.Test_RFVRMS(1) & "," & TestData.Test_RFFreq(1) & "," & TestData.Test_RFVRMS(2) & "," & TestData.Test_RFFreq(2) & "," & TestData.Test_EPVpp(0) & "," & TestData.Test_EPFreq(0) & "," & TestData.Test_EPPWidth(0) & "," & TestData.Test_EPNWidth(0) & "," & TestData.Test_EPVpp(1) & "," & TestData.Test_EPFreq(1) & "," & TestData.Test_EPPWidth(1) & "," & TestData.Test_EPNWidth(1) & "," & TestData.Test_EPVpp(2) & "," & TestData.Test_EPFreq(2) & "," & TestData.Test_EPPWidth(2) & "," & TestData.Test_EPNWidth(2) & "," & TestError & ""
|
|
||||||
|
|
||||||
If Save_Csv(csvData) Then
|
|
||||||
|
|
||||||
txbWindow.AppendText("CSV Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
txbWindow.AppendText("CSV Data Save : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If CountChanage() Then
|
|
||||||
|
|
||||||
txbWindow.AppendText("Run Count Change Save : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If TestError = False Then
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
SuccessMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
txbWindow.AppendText("Run Count Change Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf)
|
|
||||||
Jig_End()
|
|
||||||
NormalEnd:
|
NormalEnd:
|
||||||
myscope.IO.Clear()
|
myscope.IO.Clear()
|
||||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
@ -4449,56 +4405,56 @@ NormalEnd:
|
|||||||
|
|
||||||
If BuzzerTestFunc(0) Then
|
If BuzzerTestFunc(0) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If TempTest() Then
|
If TempTest() Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If HFTestRun() Then
|
If HFTestRun() Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If BuzzerTestFunc(1) Then
|
If BuzzerTestFunc(1) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If RFTestRun() Then
|
If RFTestRun() Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If BuzzerTestFunc(2) Then
|
If BuzzerTestFunc(2) Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
If EPTestRun() Then
|
If EPTestRun() Then
|
||||||
TestError = False
|
TestError = False
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
delay_run(StepDelay)
|
delay_run(StepDelay)
|
||||||
|
|
||||||
todayCount += 1
|
todayCount += 1
|
||||||
If saveLocalFile() Then
|
If saveLocalFile() Then
|
||||||
GoTo NgEnd
|
GoTo processEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
GoTo SuccessEnd
|
GoTo SuccessEnd
|
||||||
@ -4557,44 +4513,7 @@ SuccessEnd:
|
|||||||
|
|
||||||
processEnd:
|
processEnd:
|
||||||
Jig_End()
|
Jig_End()
|
||||||
GoTo ErrorEnd
|
|
||||||
NgEnd:
|
|
||||||
Dim csvData2 As String = "" & NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_Temperature(TempData.DivTemp) & "," & TestData.Test_HFData(HifuTest_Step.Step1) & "," & TestData.Test_HFData(HifuTest_Step.Step2) & "," & TestData.Test_HFData(HifuTest_Step.step3) & "," & TestData.Test_RFVRMS(0) & "," & TestData.Test_RFFreq(0) & "," & TestData.Test_RFVRMS(1) & "," & TestData.Test_RFFreq(1) & "," & TestData.Test_RFVRMS(2) & "," & TestData.Test_RFFreq(2) & "," & TestData.Test_EPVpp(0) & "," & TestData.Test_EPFreq(0) & "," & TestData.Test_EPPWidth(0) & "," & TestData.Test_EPNWidth(0) & "," & TestData.Test_EPVpp(1) & "," & TestData.Test_EPFreq(1) & "," & TestData.Test_EPPWidth(1) & "," & TestData.Test_EPNWidth(1) & "," & TestData.Test_EPVpp(2) & "," & TestData.Test_EPFreq(2) & "," & TestData.Test_EPPWidth(2) & "," & TestData.Test_EPNWidth(2) & "," & TestError & ""
|
|
||||||
|
|
||||||
If Save_Csv(csvData2) Then
|
|
||||||
|
|
||||||
txbWindow.AppendText("CSV Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("CSV Data Save : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If IQC_PostReg() Then
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If CountChanage() Then
|
|
||||||
|
|
||||||
txbWindow.AppendText("Run Count Change Save : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If TestError = False Then
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
SuccessMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
txbWindow.AppendText("Run Count Change Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
Jig_End()
|
|
||||||
ErrorEnd:
|
ErrorEnd:
|
||||||
myscope.IO.Clear()
|
myscope.IO.Clear()
|
||||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
@ -4712,22 +4631,22 @@ ErrorEnd:
|
|||||||
|
|
||||||
If TDSetCheck() Then
|
If TDSetCheck() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If RFTestRun() Then
|
If RFTestRun() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If MCTestRunSp() Then
|
If MCTestRunSp() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If EPTestRun() Then
|
If EPTestRun() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
GoTo RunSuccess
|
GoTo RunSuccess
|
||||||
@ -4747,7 +4666,6 @@ ErrorEnd:
|
|||||||
End Try
|
End Try
|
||||||
|
|
||||||
RunSuccess:
|
RunSuccess:
|
||||||
txbWindow.AppendText("=== 합격 데이터 저장 시작 ===" & vbCrLf)
|
|
||||||
If RF_PostReg() Then
|
If RF_PostReg() Then
|
||||||
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
||||||
@ -4792,50 +4710,9 @@ RunSuccess:
|
|||||||
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
||||||
FailMain()
|
FailMain()
|
||||||
End If
|
End If
|
||||||
txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf)
|
|
||||||
ProcessEnd:
|
ProcessEnd:
|
||||||
Jig_End()
|
Jig_End()
|
||||||
GoTo NormalEnd
|
|
||||||
NgEnd:
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf)
|
|
||||||
' 불합격 시에도 전체 데이터 저장 로직 실행
|
|
||||||
If RF_PostReg() Then
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save (NG) : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If dbRFSave() Then
|
|
||||||
txbWindow.AppendText("DB Data Save (NG) : OK" & vbCrLf)
|
|
||||||
|
|
||||||
If CountChanage() Then
|
|
||||||
txbWindow.AppendText("Run Count Change Save (NG) : OK" & vbCrLf)
|
|
||||||
Dim csvData As String = "" & TestData.Test_Serial & "," & NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_RFVRMS(0) & "," & TestData.Test_RFFreq(0) & "," & TestData.Test_RFVRMS(1) & "," & TestData.Test_RFFreq(1) & "," & TestData.Test_RFVRMS(2) & "," & TestData.Test_RFFreq(2) & "," & TestData.Test_MCWidth(0) & "," & TestData.Test_MCVpp(0) & "," & TestData.Test_MCFreq(0) & "," & TestData.Test_MCWidth(1) & "," & TestData.Test_MCVpp(1) & "," & TestData.Test_MCFreq(1) & "," & TestData.Test_EPVpp(0) & "," & TestData.Test_EPFreq(0) & "," & TestData.Test_EPPWidth(0) & "," & TestData.Test_EPNWidth(0) & "," & TestData.Test_EPVpp(1) & "," & TestData.Test_EPFreq(1) & "," & TestData.Test_EPPWidth(1) & "," & TestData.Test_EPNWidth(1) & "," & TestData.Test_EPVpp(2) & "," & TestData.Test_EPFreq(2) & "," & TestData.Test_EPPWidth(2) & "," & TestData.Test_EPNWidth(2) & "," & TestError & ""
|
|
||||||
|
|
||||||
If Save_Csv(csvData) Then
|
|
||||||
txbWindow.AppendText("CSV Data Save (NG) : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("CSV Data Save (NG) : OK" & vbCrLf)
|
|
||||||
If TestError = False Then
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
SuccessMain()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("Run Count Change Save (NG) : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("DB Data Save (NG) : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save (NG) : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf)
|
|
||||||
|
|
||||||
Jig_End()
|
|
||||||
NormalEnd:
|
NormalEnd:
|
||||||
myscope.IO.Clear()
|
myscope.IO.Clear()
|
||||||
'txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
'txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
@ -4969,29 +4846,29 @@ NormalEnd:
|
|||||||
|
|
||||||
If BatteryTest() Then
|
If BatteryTest() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If TempTest() Then
|
If TempTest() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If HFTestRun() Then
|
If HFTestRun() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If rdbHF.Checked = True Then
|
If rdbHF.Checked = True Then
|
||||||
If DataWrite(formProdCode(formTypeList.prod_HF)) Then
|
If DataWrite(formProdCode(formTypeList.prod_HF)) Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
ElseIf rdbEFPD.Checked = True Then
|
ElseIf rdbEFPD.Checked = True Then
|
||||||
If DataWrite(formProdCode(formTypeList.EF_PD)) Then
|
If DataWrite(formProdCode(formTypeList.EF_PD)) Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -5010,7 +4887,6 @@ NormalEnd:
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
RunSuccess:
|
RunSuccess:
|
||||||
txbWindow.AppendText("=== 합격 데이터 저장 시작 ===" & vbCrLf)
|
|
||||||
If HIFU_PostReg() Then
|
If HIFU_PostReg() Then
|
||||||
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
||||||
@ -5058,48 +4934,10 @@ RunSuccess:
|
|||||||
FailMain()
|
FailMain()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf)
|
|
||||||
ProcessEnd:
|
ProcessEnd:
|
||||||
Jig_End()
|
Jig_End()
|
||||||
GoTo NormalEnd
|
|
||||||
|
|
||||||
NgEnd:
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf)
|
|
||||||
|
|
||||||
Dim originalTestError As Boolean = TestError
|
|
||||||
TestError = False
|
|
||||||
|
|
||||||
If HIFU_PostReg() Then
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
|
||||||
If dbHFSave() Then
|
|
||||||
txbWindow.AppendText("DB Data Save : OK" & vbCrLf)
|
|
||||||
If CountChanage() Then
|
|
||||||
txbWindow.AppendText("Run Count Change : OK" & vbCrLf)
|
|
||||||
Dim csvData As String = "" & TestData.Test_Serial & "," & NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_Battery & "," & TestData.Test_Temperature(TempData.DivTemp) & "," & TestData.Test_Temperature(TempData.CartTemp) & "," & TestData.Test_HFData(HifuTest_Step.Step1) & "," & TestData.Test_HFData(HifuTest_Step.Step2) & "," & TestData.Test_HFData(HifuTest_Step.step3) & "," & TestError & ""
|
|
||||||
If Save_Csv(csvData) Then
|
|
||||||
txbWindow.AppendText("CSV Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("CSV Data Save : OK" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("Run Count Change : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("DB Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
|
|
||||||
TestError = originalTestError
|
|
||||||
txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf)
|
|
||||||
|
|
||||||
Jig_End()
|
|
||||||
NormalEnd:
|
NormalEnd:
|
||||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
End Sub
|
End Sub
|
||||||
@ -5166,7 +5004,7 @@ NormalEnd:
|
|||||||
txbDSBasic.BackColor = Color.Red
|
txbDSBasic.BackColor = Color.Red
|
||||||
txbDSBasic.Refresh()
|
txbDSBasic.Refresh()
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If BatteryTest() Then
|
If BatteryTest() Then
|
||||||
@ -5174,7 +5012,7 @@ NormalEnd:
|
|||||||
txbDSBasic.BackColor = Color.Red
|
txbDSBasic.BackColor = Color.Red
|
||||||
txbDSBasic.Refresh()
|
txbDSBasic.Refresh()
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
txbDSBasic.Text = "SUCCESS"
|
txbDSBasic.Text = "SUCCESS"
|
||||||
@ -5183,7 +5021,7 @@ NormalEnd:
|
|||||||
|
|
||||||
If HFTestRun() Then
|
If HFTestRun() Then
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NgEnd
|
GoTo ProcessEnd
|
||||||
End If
|
End If
|
||||||
|
|
||||||
TestStep = TestList.DataWrite
|
TestStep = TestList.DataWrite
|
||||||
@ -5247,30 +5085,6 @@ RunSuccess:
|
|||||||
|
|
||||||
ProcessEnd:
|
ProcessEnd:
|
||||||
Jig_End()
|
Jig_End()
|
||||||
GoTo NormalEnd
|
|
||||||
NgEnd:
|
|
||||||
If CountChanage() Then
|
|
||||||
Dim csvData As String = NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_Battery & "," & TestData.Test_Temperature(TempData.DivTemp) & "," & TestData.Test_Temperature(TempData.CartTemp) & "," & TestData.Test_HFData(HifuTest_Step.Step1) & "," & TestData.Test_HFData(HifuTest_Step.Step2) & "," & TestData.Test_HFData(HifuTest_Step.step3) & ""
|
|
||||||
If Save_Csv(csvData) Then
|
|
||||||
txbWindow.AppendText("CSV Data Save : FAIL" & vbCrLf)
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
If txbDSWrite.BackColor = Color.Green And txbDSWrite_2.BackColor = Color.Green And txbDSWrite_3.BackColor = Color.Green Then
|
|
||||||
txbDSSave.BackColor = Color.Green
|
|
||||||
Else
|
|
||||||
txbDSSave.BackColor = Color.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
If TestError = False Then
|
|
||||||
FailMain()
|
|
||||||
Else
|
|
||||||
SuccessMain()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
FailMain()
|
|
||||||
End If
|
|
||||||
Jig_End()
|
|
||||||
NormalEnd:
|
NormalEnd:
|
||||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
End Sub
|
End Sub
|
||||||
@ -5530,13 +5344,13 @@ ProcessEnd:
|
|||||||
txbNgCount.Text = Val(txbNgCount.Text) + 1
|
txbNgCount.Text = Val(txbNgCount.Text) + 1
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If TDDataSet(TD_Data.TestStep) = TestStepList.HF_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.HF_ReFail Then
|
If TDDataSet(TD_Data.TestStep) = TestStepList.HF_NEWFail Or TDDataSet(TD_Data.TestStep) = TestStepList.HF_ReFail Then
|
||||||
If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then
|
If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then
|
||||||
txbOkCount.Text = Val(txbOkCount.Text) + 1
|
txbOkCount.Text = Val(txbOkCount.Text) + 1
|
||||||
txbNgCount.Text = Val(txbNgCount.Text) - 1
|
txbNgCount.Text = Val(txbNgCount.Text) - 1
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If processNum = TestStepList.HF_NewFail Or processNum = TestStepList.HF_ReFail Then
|
If processNum = TestStepList.HF_NEWFail Or processNum = TestStepList.HF_ReFail Then
|
||||||
txbOkCount.Text = Val(txbOkCount.Text) - 1
|
txbOkCount.Text = Val(txbOkCount.Text) - 1
|
||||||
txbNgCount.Text = Val(txbNgCount.Text) + 1
|
txbNgCount.Text = Val(txbNgCount.Text) + 1
|
||||||
End If
|
End If
|
||||||
@ -5572,6 +5386,7 @@ ProcessEnd:
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Function CountUpdate() As Boolean
|
Private Function CountUpdate() As Boolean
|
||||||
If rdbAltoPD.Checked = True Then
|
If rdbAltoPD.Checked = True Then
|
||||||
DBCmd = "UPDATE " & pd1CntTableNow & " SET PD1_AltoCnt = '" & txbDayCount.Text & "', PD1_AltoOkCnt = '" & txbOkCount.Text & "', PD1_AltoNgCnt = '" & txbNgCount.Text & "' WHERE PD1_Date = '" & NowDate & "'"
|
DBCmd = "UPDATE " & pd1CntTableNow & " SET PD1_AltoCnt = '" & txbDayCount.Text & "', PD1_AltoOkCnt = '" & txbOkCount.Text & "', PD1_AltoNgCnt = '" & txbNgCount.Text & "' WHERE PD1_Date = '" & NowDate & "'"
|
||||||
@ -5947,45 +5762,8 @@ dbFail:
|
|||||||
|
|
||||||
Dim sucSwitch As Boolean = False
|
Dim sucSwitch As Boolean = False
|
||||||
|
|
||||||
'If dupDATA = 2 Or dupDATA = 3 Then
|
If dupDATA = 2 Then
|
||||||
' DBCmd = "UPDATE " & rfTableNow & " SET TestDate='" & NowDate & "',TestTime='" & NowTime & "',RF_R1Vrms='" & TestData.Test_RFVRMS(0) & "',RF_R1Freq='" & TestData.Test_RFFreq(0) & "',RF_R2Vrms='" & TestData.Test_RFVRMS(1) & "',RF_R2Freq='" & TestData.Test_RFFreq(1) & "',RF_R3Vrms='" & TestData.Test_RFVRMS(2) & "',RF_R3Freq='" & TestData.Test_RFFreq(2) & "',MC_R1Wave='" & TestData.Test_MCWidth(0) & "',MC_R1Vpp='" & TestData.Test_MCVpp(0) & "',MC_R1Freq='" & TestData.Test_MCFreq(0) & "',MC_R2Wave='" & TestData.Test_MCWidth(1) & "',MC_R2Vpp='" & TestData.Test_MCVpp(0) & "',MC_R2Freq='" & TestData.Test_MCFreq(0) & "',EP_R1Vpp='" & TestData.Test_EPVpp(0) & "',EP_R1Freq='" & TestData.Test_EPFreq(0) & "',EP_R1PWidth='" & TestData.Test_EPPWidth(0) & "',EP_R1NWidth='" & TestData.Test_EPNWidth(0) & "',EP_R2Vpp='" & TestData.Test_EPVpp(1) & "',EP_R2Freq='" & TestData.Test_EPFreq(1) & "',EP_R2PWidth='" & TestData.Test_EPPWidth(1) & "',EP_R2NWidth='" & TestData.Test_EPNWidth(1) & "',EP_R3Vpp='" & TestData.Test_EPVpp(2) & "',EP_R3Freq='" & TestData.Test_EPFreq(2) & "',EP_R3PWidth='" & TestData.Test_EPPWidth(2) & "',EP_R3NWidth='" & TestData.Test_EPNWidth(2) & "' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
DBCmd = "UPDATE " & rfTableNow & " SET TestDate='" & NowDate & "',TestTime='" & NowTime & "',RF_R1Vrms='" & TestData.Test_RFVRMS(0) & "',RF_R1Freq='" & TestData.Test_RFFreq(0) & "',RF_R2Vrms='" & TestData.Test_RFVRMS(1) & "',RF_R2Freq='" & TestData.Test_RFFreq(1) & "',RF_R3Vrms='" & TestData.Test_RFVRMS(2) & "',RF_R3Freq='" & TestData.Test_RFFreq(2) & "',MC_R1Wave='" & TestData.Test_MCWidth(0) & "',MC_R1Vpp='" & TestData.Test_MCVpp(0) & "',MC_R1Freq='" & TestData.Test_MCFreq(0) & "',MC_R2Wave='" & TestData.Test_MCWidth(1) & "',MC_R2Vpp='" & TestData.Test_MCVpp(0) & "',MC_R2Freq='" & TestData.Test_MCFreq(0) & "',EP_R1Vpp='" & TestData.Test_EPVpp(0) & "',EP_R1Freq='" & TestData.Test_EPFreq(0) & "',EP_R1PWidth='" & TestData.Test_EPPWidth(0) & "',EP_R1NWidth='" & TestData.Test_EPNWidth(0) & "',EP_R2Vpp='" & TestData.Test_EPVpp(1) & "',EP_R2Freq='" & TestData.Test_EPFreq(1) & "',EP_R2PWidth='" & TestData.Test_EPPWidth(1) & "',EP_R2NWidth='" & TestData.Test_EPNWidth(1) & "',EP_R3Vpp='" & TestData.Test_EPVpp(2) & "',EP_R3Freq='" & TestData.Test_EPFreq(2) & "',EP_R3PWidth='" & TestData.Test_EPPWidth(2) & "',EP_R3NWidth='" & TestData.Test_EPNWidth(2) & "' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
||||||
|
|
||||||
' If TestError = False Then
|
|
||||||
' processNum = TestStepList.RF_ReFail
|
|
||||||
' Else
|
|
||||||
' processNum = TestStepList.RF_ReSuc
|
|
||||||
' End If
|
|
||||||
|
|
||||||
'Else
|
|
||||||
' DBCmd = "INSERT INTO " & rfTableNow & "(PV_SN,TestDate,TestTime,RF_R1Vrms,RF_R1Freq,RF_R2Vrms,RF_R2Freq,RF_R3Vrms,RF_R3Freq,MC_R1Wave,MC_R1Vpp,MC_R1Freq,MC_R2Wave,MC_R2Vpp,MC_R2Freq,EP_R1Vpp,EP_R1Freq,EP_R1PWidth,EP_R1NWidth,EP_R2Vpp,EP_R2Freq,EP_R2PWidth,EP_R2NWidth,EP_R3Vpp,EP_R3Freq,EP_R3PWidth,EP_R3NWidth) VALUE ('" & TestData.Test_Serial & "','" & NowDate & "','" & NowTime & "','" & TestData.Test_RFVRMS(0) & "','" & TestData.Test_RFFreq(0) & "','" & TestData.Test_RFVRMS(1) & "','" & TestData.Test_RFFreq(1) & "','" & TestData.Test_RFVRMS(2) & "','" & TestData.Test_RFFreq(2) & "','" & TestData.Test_MCWidth(0) & "','" & TestData.Test_MCVpp(0) & "','" & TestData.Test_MCFreq(0) & "','" & TestData.Test_MCWidth(1) & "','" & TestData.Test_MCVpp(1) & "','" & TestData.Test_MCFreq(1) & "','" & TestData.Test_EPVpp(0) & "','" & TestData.Test_EPFreq(0) & "','" & TestData.Test_EPPWidth(0) & "','" & TestData.Test_EPNWidth(0) & "','" & TestData.Test_EPVpp(1) & "','" & TestData.Test_EPFreq(1) & "','" & TestData.Test_EPPWidth(1) & "','" & TestData.Test_EPNWidth(1) & "','" & TestData.Test_EPVpp(2) & "','" & TestData.Test_EPFreq(2) & "','" & TestData.Test_EPPWidth(2) & "','" & TestData.Test_EPNWidth(2) & "')"
|
|
||||||
|
|
||||||
' If TestError = False Then
|
|
||||||
' processNum = TestStepList.RF_NewFail
|
|
||||||
' Else
|
|
||||||
' processNum = TestStepList.RF_NewSuc
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
' PV_SN 존재 여부 쿼리
|
|
||||||
Dim checkQuery As String = "SELECT COUNT(*) FROM " & rfTableNow & " WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
|
||||||
Dim exists As Integer = DBQueryScalar(checkQuery)
|
|
||||||
|
|
||||||
If exists > 0 Then
|
|
||||||
' UPDATE 쿼리
|
|
||||||
DBCmd = "UPDATE " & rfTableNow & " SET TestDate='" & NowDate & "', TestTime='" & NowTime &
|
|
||||||
"', RF_R1Vrms='" & TestData.Test_RFVRMS(0) & "', RF_R1Freq='" & TestData.Test_RFFreq(0) &
|
|
||||||
"', RF_R2Vrms='" & TestData.Test_RFVRMS(1) & "', RF_R2Freq='" & TestData.Test_RFFreq(1) &
|
|
||||||
"', RF_R3Vrms='" & TestData.Test_RFVRMS(2) & "', RF_R3Freq='" & TestData.Test_RFFreq(2) &
|
|
||||||
"', MC_R1Wave='" & TestData.Test_MCWidth(0) & "', MC_R1Vpp='" & TestData.Test_MCVpp(0) &
|
|
||||||
"', MC_R1Freq='" & TestData.Test_MCFreq(0) & "', MC_R2Wave='" & TestData.Test_MCWidth(1) &
|
|
||||||
"', MC_R2Vpp='" & TestData.Test_MCVpp(1) & "', MC_R2Freq='" & TestData.Test_MCFreq(1) &
|
|
||||||
"', EP_R1Vpp='" & TestData.Test_EPVpp(0) & "', EP_R1Freq='" & TestData.Test_EPFreq(0) &
|
|
||||||
"', EP_R1PWidth='" & TestData.Test_EPPWidth(0) & "', EP_R1NWidth='" & TestData.Test_EPNWidth(0) &
|
|
||||||
"', EP_R2Vpp='" & TestData.Test_EPVpp(1) & "', EP_R2Freq='" & TestData.Test_EPFreq(1) &
|
|
||||||
"', EP_R2PWidth='" & TestData.Test_EPPWidth(1) & "', EP_R2NWidth='" & TestData.Test_EPNWidth(1) &
|
|
||||||
"', EP_R3Vpp='" & TestData.Test_EPVpp(2) & "', EP_R3Freq='" & TestData.Test_EPFreq(2) &
|
|
||||||
"', EP_R3PWidth='" & TestData.Test_EPPWidth(2) & "', EP_R3NWidth='" & TestData.Test_EPNWidth(2) &
|
|
||||||
"' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
|
||||||
|
|
||||||
If TestError = False Then
|
If TestError = False Then
|
||||||
processNum = TestStepList.RF_ReFail
|
processNum = TestStepList.RF_ReFail
|
||||||
@ -5994,14 +5772,7 @@ dbFail:
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
' INSERT 쿼리
|
DBCmd = "INSERT INTO " & rfTableNow & "(PV_SN,TestDate,TestTime,RF_R1Vrms,RF_R1Freq,RF_R2Vrms,RF_R2Freq,RF_R3Vrms,RF_R3Freq,MC_R1Wave,MC_R1Vpp,MC_R1Freq,MC_R2Wave,MC_R2Vpp,MC_R2Freq,EP_R1Vpp,EP_R1Freq,EP_R1PWidth,EP_R1NWidth,EP_R2Vpp,EP_R2Freq,EP_R2PWidth,EP_R2NWidth,EP_R3Vpp,EP_R3Freq,EP_R3PWidth,EP_R3NWidth) VALUE ('" & TestData.Test_Serial & "','" & NowDate & "','" & NowTime & "','" & TestData.Test_RFVRMS(0) & "','" & TestData.Test_RFFreq(0) & "','" & TestData.Test_RFVRMS(1) & "','" & TestData.Test_RFFreq(1) & "','" & TestData.Test_RFVRMS(2) & "','" & TestData.Test_RFFreq(2) & "','" & TestData.Test_MCWidth(0) & "','" & TestData.Test_MCVpp(0) & "','" & TestData.Test_MCFreq(0) & "','" & TestData.Test_MCWidth(1) & "','" & TestData.Test_MCVpp(1) & "','" & TestData.Test_MCFreq(1) & "','" & TestData.Test_EPVpp(0) & "','" & TestData.Test_EPFreq(0) & "','" & TestData.Test_EPPWidth(0) & "','" & TestData.Test_EPNWidth(0) & "','" & TestData.Test_EPVpp(1) & "','" & TestData.Test_EPFreq(1) & "','" & TestData.Test_EPPWidth(1) & "','" & TestData.Test_EPNWidth(1) & "','" & TestData.Test_EPVpp(2) & "','" & TestData.Test_EPFreq(2) & "','" & TestData.Test_EPPWidth(2) & "','" & TestData.Test_EPNWidth(2) & "')"
|
||||||
DBCmd = "INSERT INTO " & rfTableNow & " (PV_SN, TestDate, TestTime, RF_R1Vrms, RF_R1Freq, RF_R2Vrms, RF_R2Freq, RF_R3Vrms, RF_R3Freq, " &
|
|
||||||
"MC_R1Wave, MC_R1Vpp, MC_R1Freq, MC_R2Wave, MC_R2Vpp, MC_R2Freq, EP_R1Vpp, EP_R1Freq, EP_R1PWidth, EP_R1NWidth, " &
|
|
||||||
"EP_R2Vpp, EP_R2Freq, EP_R2PWidth, EP_R2NWidth, EP_R3Vpp, EP_R3Freq, EP_R3PWidth, EP_R3NWidth) VALUES (" &
|
|
||||||
"'" & TestData.Test_Serial & "', '" & NowDate & "', '" & NowTime & "', '" & TestData.Test_RFVRMS(0) & "', '" & TestData.Test_RFFreq(0) & "', '" & TestData.Test_RFVRMS(1) & "', '" & TestData.Test_RFFreq(1) & "', '" & TestData.Test_RFVRMS(2) & "', '" & TestData.Test_RFFreq(2) & "', " &
|
|
||||||
"'" & TestData.Test_MCWidth(0) & "', '" & TestData.Test_MCVpp(0) & "', '" & TestData.Test_MCFreq(0) & "', '" & TestData.Test_MCWidth(1) & "', '" & TestData.Test_MCVpp(1) & "', '" & TestData.Test_MCFreq(1) & "', " &
|
|
||||||
"'" & TestData.Test_EPVpp(0) & "', '" & TestData.Test_EPFreq(0) & "', '" & TestData.Test_EPPWidth(0) & "', '" & TestData.Test_EPNWidth(0) & "', '" & TestData.Test_EPVpp(1) & "', '" & TestData.Test_EPFreq(1) & "', '" & TestData.Test_EPPWidth(1) & "', '" & TestData.Test_EPNWidth(1) & "', " &
|
|
||||||
"'" & TestData.Test_EPVpp(2) & "', '" & TestData.Test_EPFreq(2) & "', '" & TestData.Test_EPPWidth(2) & "', '" & TestData.Test_EPNWidth(2) & "')"
|
|
||||||
|
|
||||||
If TestError = False Then
|
If TestError = False Then
|
||||||
processNum = TestStepList.RF_NewFail
|
processNum = TestStepList.RF_NewFail
|
||||||
@ -6057,30 +5828,8 @@ dbFail:
|
|||||||
|
|
||||||
processNum = 0
|
processNum = 0
|
||||||
|
|
||||||
'If dupDATA = 1 Or dupDATA = 3 Then
|
If dupDATA = 1 Then
|
||||||
' DBCmd = "UPDATE " & hfTableNow & " SET TestDate = '" & NowDate & "', TestTime = '" & NowTime & "', FW_Ver = '" & TestData.Test_Firmware & "', BatteryLv = '" & TestData.Test_Battery & "', DivTemp = '" & TestData.Test_Temperature(TempData.DivTemp) & "', CtTemp = '" & TestData.Test_Temperature(TempData.CartTemp) & "', HF_R1Value = '" & TestData.Test_HFData(HifuTest_Step.Step1) & "', HF_R2Value = '" & TestData.Test_HFData(HifuTest_Step.Step2) & "', HF_R3Value = '" & TestData.Test_HFData(HifuTest_Step.step3) & "' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
|
||||||
' If TestError = False Then
|
|
||||||
' processNum = TestStepList.HF_ReFail
|
|
||||||
' Else
|
|
||||||
' processNum = TestStepList.HF_ReSuc
|
|
||||||
' End If
|
|
||||||
'Else
|
|
||||||
' DBCmd = "INSERT INTO " & hfTableNow & "(PV_SN,TestDate,TestTime,FW_Ver,BatteryLv,DivTemp,CtTemp,HF_R1Value,HF_R2Value,HF_R3Value) VALUE('" & TestData.Test_Serial & "','" & NowDate & "','" & NowTime & "','" & TestData.Test_Firmware & "','" & TestData.Test_Battery & "','" & TestData.Test_Temperature(TempData.DivTemp) & "','" & TestData.Test_Temperature(TempData.CartTemp) & "','" & TestData.Test_HFData(HifuTest_Step.Step1) & "','" & TestData.Test_HFData(HifuTest_Step.Step2) & "','" & TestData.Test_HFData(HifuTest_Step.step3) & "')"
|
|
||||||
|
|
||||||
' If TestError = False Then
|
|
||||||
' processNum = TestStepList.HF_NEWFail
|
|
||||||
' Else
|
|
||||||
' processNum = TestStepList.HF_NewSuc
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim checkQuery As String = "SELECT COUNT(*) FROM " & hfTableNow & " WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
|
||||||
Dim exists As Integer = DBQueryScalar(checkQuery)
|
|
||||||
|
|
||||||
|
|
||||||
If exists > 0 Then
|
|
||||||
DBCmd = "UPDATE " & hfTableNow & " SET TestDate = '" & NowDate & "', TestTime = '" & NowTime & "', FW_Ver = '" & TestData.Test_Firmware & "', BatteryLv = '" & TestData.Test_Battery & "', DivTemp = '" & TestData.Test_Temperature(TempData.DivTemp) & "', CtTemp = '" & TestData.Test_Temperature(TempData.CartTemp) & "', HF_R1Value = '" & TestData.Test_HFData(HifuTest_Step.Step1) & "', HF_R2Value = '" & TestData.Test_HFData(HifuTest_Step.Step2) & "', HF_R3Value = '" & TestData.Test_HFData(HifuTest_Step.step3) & "' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
DBCmd = "UPDATE " & hfTableNow & " SET TestDate = '" & NowDate & "', TestTime = '" & NowTime & "', FW_Ver = '" & TestData.Test_Firmware & "', BatteryLv = '" & TestData.Test_Battery & "', DivTemp = '" & TestData.Test_Temperature(TempData.DivTemp) & "', CtTemp = '" & TestData.Test_Temperature(TempData.CartTemp) & "', HF_R1Value = '" & TestData.Test_HFData(HifuTest_Step.Step1) & "', HF_R2Value = '" & TestData.Test_HFData(HifuTest_Step.Step2) & "', HF_R3Value = '" & TestData.Test_HFData(HifuTest_Step.step3) & "' WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
||||||
|
|
||||||
If TestError = False Then
|
If TestError = False Then
|
||||||
processNum = TestStepList.HF_ReFail
|
processNum = TestStepList.HF_ReFail
|
||||||
Else
|
Else
|
||||||
@ -6090,7 +5839,7 @@ dbFail:
|
|||||||
DBCmd = "INSERT INTO " & hfTableNow & "(PV_SN,TestDate,TestTime,FW_Ver,BatteryLv,DivTemp,CtTemp,HF_R1Value,HF_R2Value,HF_R3Value) VALUE('" & TestData.Test_Serial & "','" & NowDate & "','" & NowTime & "','" & TestData.Test_Firmware & "','" & TestData.Test_Battery & "','" & TestData.Test_Temperature(TempData.DivTemp) & "','" & TestData.Test_Temperature(TempData.CartTemp) & "','" & TestData.Test_HFData(HifuTest_Step.Step1) & "','" & TestData.Test_HFData(HifuTest_Step.Step2) & "','" & TestData.Test_HFData(HifuTest_Step.step3) & "')"
|
DBCmd = "INSERT INTO " & hfTableNow & "(PV_SN,TestDate,TestTime,FW_Ver,BatteryLv,DivTemp,CtTemp,HF_R1Value,HF_R2Value,HF_R3Value) VALUE('" & TestData.Test_Serial & "','" & NowDate & "','" & NowTime & "','" & TestData.Test_Firmware & "','" & TestData.Test_Battery & "','" & TestData.Test_Temperature(TempData.DivTemp) & "','" & TestData.Test_Temperature(TempData.CartTemp) & "','" & TestData.Test_HFData(HifuTest_Step.Step1) & "','" & TestData.Test_HFData(HifuTest_Step.Step2) & "','" & TestData.Test_HFData(HifuTest_Step.step3) & "')"
|
||||||
|
|
||||||
If TestError = False Then
|
If TestError = False Then
|
||||||
processNum = TestStepList.HF_NewFail
|
processNum = TestStepList.HF_NEWFail
|
||||||
Else
|
Else
|
||||||
processNum = TestStepList.HF_NewSuc
|
processNum = TestStepList.HF_NewSuc
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user