Keysight E4990A - Page 281

Programming
271
Ana.WriteString ":STAT:OPER:NTR 16", True
' Anables bit 4 in the operation status event register and bit 8 in the status byte register.
Ana.WriteString ":STAT:OPER:ENAB 16", True
Ana.WriteString "*SRE 128", True
End Sub
Sub CmdTrigger_Click()
' Making a trigger
Ana.WriteString ":TRIG", True
End Sub
Sub ReadData()
' Clear the status register
Ana.WriteString "*CLS", True
Dim MeasData As Variant, i As Integer
Range("A5:B500").Clear
' Get the measurement data.
Ana.WriteString ":CALC1:DATA:FDAT?", True
MeasData = Ana.ReadList(ASCIIType_R8, ",")
' Display the data on the sheet
ActiveSheet.Cells(6, 1) = "Data (Primary)"
ActiveSheet.Cells(6, 2) = "Data (Secondary)"
For i = 1 To UBound(MeasData)
ActiveSheet.Cells(i + 6, 1).Value = MeasData(i * 2 - 2)
ActiveSheet.Cells(i + 6, 2).Value = MeasData(i * 2 - 1)
Next i
End Sub
Sub CmdClose_Click()
' Close
Ana.IO.Close
Unload Me
End Sub
Detecting Occurrence of an Error