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

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

Appendix A If You’re Writing Your Own VB Applications
A-2 HawkEye™ 1500 Series Verification Manual v2.4.1, Nov 2008
End Select
End Function
GetCellUnitReportString
Public Function GetCellUnitReportString(Value As Long) As String
Const CELL_UNIT_IN_PIXELS = 1
Const CELL_UNIT_IN_MILS = 2 '/* 1/1000th inch */
Select Case Value
Case CELL_UNIT_IN_PIXELS
GetCellUnitReportString = "PIXELS"
Case CELL_UNIT_IN_MILS
GetCellUnitReportString = "MILS"
Case Else
GetCellUnitReportString = "???"
End Select
End Function
GetContrastReportString
Public Function GetContrastReportString(Value As Long) As String
Const CONTRAST_UNCALIBRATED = 1
Const CONTRAST_SELF_CALIBRATED = 2
Const CONTRAST_REFLECTANCE_CALIBRATED = 3
Select Case Value
Case CONTRAST_UNCALIBRATED
GetContrastReportString = "UN_Cal"
Case CONTRAST_SELF_CALIBRATED
GetContrastReportString = "SELF_Cal"
Case CONTRAST_REFLECTANCE_CALIBRATED
GetContrastReportString = "REFL_Cal"
Case Else
GetContrastReportString = "???"
End Select
End Function