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

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

v2.4.1, Nov 2008 HawkEye™ 1500 Series Verification Manual A-1
A
If Y
o
u’
re W
riting Y
our
Own VB Applications
A
APPENDIX A
If You’re Writing Your Own
VB Applications
We have provided the functions listed in this appendix for those writing their own
VB applications to translate the values obtained from the verification report.
GetApertureString
Public Function GetApertureString(Value As Long) As String
Select Case Value
Case 0
GetApertureString = "AUTO"
Case Else
GetApertureString = Value
End Select
End Function
GetCalibratedString
Public Function GetCalibratedString(Value As Long) As String
Select Case Value
Case 0
GetCalibratedString = "FALSE"
Case 1
GetCalibratedString = "TRUE"
Case Else
GetCalibratedString = "FALSE"