Microscan HawkEye 1500 Series, Руководство по верификации

Страница: 61 / 73

GetECCLevelString
If Y
o
u’
re W
riting Y
our
Own VB Applications
A
v2.4.1, Nov 2008 HawkEye™ 1500 Series Verification Manual A-3
GetECCLevelString
Public Function GetECCLevelString(Value As Long) As String
Const IDM_QUAL_200 = 26
Const IDM_QUAL_140_OVHD_75 = 12
Const IDM_QUAL_100_OVHD_50 = 8
Const IDM_QUAL_080_OVHD_33 = 6
Const IDM_QUAL_050_OVHD_25 = 3
Const IDM_QUAL_000_OVHD_00 = 0
Const IDM_QUAL_250 = 27
Select Case Value
Case IDM_QUAL_200
GetECCLevelString = "ECC200"
Case IDM_QUAL_140_OVHD_75
GetECCLevelString = "ECC140"
Case IDM_QUAL_100_OVHD_50
GetECCLevelString = "ECC100"
Case IDM_QUAL_080_OVHD_33
GetECCLevelString = "ECC080"
Case IDM_QUAL_050_OVHD_25
GetECCLevelString = "ECC050"
Case IDM_QUAL_000_OVHD_00
GetECCLevelString = "ECC000"
Case IDM_QUAL_250
GetECCLevelString = "ECC250"
Case Else
GetECCLevelString = "???"
End Select
End Function
GetQuality20ZString
Public Function GetQuality20ZString(Value As Long) As String
Select Case Value
Case 0
GetQuality20ZString = "FALSE"
Case 1
GetQuality20ZString = "TRUE"
End Select
End Function