Table of Contents
Advertisement
Dim app As Object
Dim F, M, P
Public Sub Example4()
Set app = CreateObject("R54x2.Application")
app.SCPI.SYSTem.PRESet
app.SCPI.TRIGger.SEQuence.Source = "BUS"
app.SCPI.TRIGger.SEQuence.Single
F = app.SCPI.SENSe.Frequency.Data
app.SCPI.Calculate.Selected.Format = "MLOG"
M = app.SCPI.Calculate.Selected.Data.FDATa
app.SCPI.Calculate.Selected.Format = "PHASe"
P = app.SCPI.Calculate.Selected.Data.FDATa
Open "TESTFILE" For Output As #1
For i = LBound(F) To UBound(F)
Print #1, F(i), M(i * 2), P(i * 2)
Next i
Close #1
End Sub
226
Advertisement
Table of Contents
