Keysight E4990A - Page 298

E4990A Help
288
Sub ErrorCheck()
Dim err As Variant
' Reads error message.
Ana.WriteString ":SYST:ERR?", True
err = Ana.ReadList
If Val(err(0)) <> 0 Then
' Display the message box.
Response = MsgBox(CStr(err(1)), vbOKOnly)
End If
End Sub
Setting the Limit Test Functions
•
Overview
• Sample Program in Excel VBA
Other topics about Processing Measurement Results
Overview
The program listed in the below section is written in VISA-COM with Excel
VBA. It can be executed from the external PC controller. The program
demonstrates how to set the limit test functions.
Setting the Limit Test Functions Sample Program in Excel VBA
Private Sub Measure_Click()
Dim ioMgr As VisaComLib.ResourceManager
Dim Ana As VisaComLib.FormattedIO488
Dim Star As Double, Stp As Double
Dim Param(1) As String, Fmt(1) As String, SwpFmt As String
Dim NumofSeg(1) As Integer
Dim LimTbl1 As LimitTbl1, LimTbl2 As LimitTbl2
Dim Dummy As Integer, ret As Integer
Dim Lim_Judge As Integer
Dim Tr1_Judge As Integer
Dim Tr2_Judge As Integer
Dim Fail_Point As Integer
Dim Fail_Data As Variant