Chapter 9
149
Measurement Applications (Sample Programs)
Sorting Measurement Results Using Comparator
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
Worksheets("Example14").Range("K" & (i + 4)).Value = "BIN " & i
Worksheets("Example14").Range("L" & (i + 4)).Value = Val(Res(i))
Next i
Worksheets("Example14").Range("K14").Value = "OUT OF BINS "
Worksheets("Example14").Range("L14").Value = Val(Res(0))
Worksheets("Example14").Range("K15").Value = "AUX BINS "
Worksheets("Example14").Range("L15").Value = Val(Res(10))
Worksheets("Example14").Range("K16").Value = "OVLD "
Worksheets("Example14").Range("L16").Value = Val(OVLD_Result)
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub