Keysight E4990A - Page 303

Programming
293
'*** Displaying test results.
If Lim_Judge = 0 Then
Cells(26, 3).Value = "PASS"
Else
Cells(26, 3).Value = "FAIL"
End If
If Tr1_Judge = 0 Then
Cells(27, 3).Value = "PASS"
Else
Cells(27, 3).Value = "FAIL"
Ana.WriteString ":CALC1:PAR1:SEL", True
Ana.WriteString ":CALC1:LIM:REP:POIN?", True
Fail_Point = Ana.ReadNumber
ReDim Fail_Data(Fail_Point - 1)
ptr = VarPtr(Fail_Data(0))
Ana.WriteString ":CALC1:LIM:REP?", True
Fail_Data = Ana.ReadList(ASCIIType_R8, ",")
For i = 0 To Fail_Point - 1
Cells(27 + i, 5).Value = Fail_Data(i)
Next i
End If
If Tr2_Judge = 0 Then
Cells(28, 3).Value = "PASS"
Else
Cells(28, 3).Value = "FAIL"
Ana.WriteString ":CALC1:PAR2:SEL", True
Ana.WriteString ":CALC1:LIM:REP:POIN?", True
Fail_Point2 = Ana.ReadNumber
ReDim Fail_Data2(Fail_Point2 - 1)
Ana.WriteString ":CALC1:LIM:REP?", True
Fail_Data2 = Ana.ReadList(ASCIIType_R8, ",")
For i = 0 To Fail_Point2 - 1
Cells(27 + i, 6).Value = Fail_Data2(i)
Next i
End If