Keysight E4990A - Page 337

Programming
327
ana.parse ":CALC1:PAR1:SEL"
ana.parse ":INIT1:CONT OFF"
ana.parse ":ABOR"
NoOfPoint = ana.parse(":SENS1:SWE:POIN?")
StrTemp = ana.parse(":SENS1:FREQ:DATA?")
Freq = Split(StrTemp, ",")
StrTemp = ana.parse(":CALC1:DATA:FDAT?")
Result = Split(StrTemp, ",")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile("Result.csv", 2, True)
If Err.Number = 0 Then
j = 0
For i = 1 To NoOfPoint
objFile.Writeline(Freq(i-1)&" , "&Result(j)&" , "&Result(j+1))
j = j + 2
Next
objFile.Close
Else
WScript.Echo "File Open Error: " & Err.Description
End If
Else
WScript.Echo "Error: " & Err.Description
End If
Set objFile = Nothing
Set objFSO = Nothing
Using Echo Window
•
Overview
• Sample Program
Other topics about Using Macro
Overview
This sample program demonstrates the following operation.
1. Activate Marker 1.
2. Search Max point.
3. Display the marker value in the echo window.
To use this sample: