![Copper Mountain Technologies PLANAR TR1300/1 Скачать руководство пользователя страница 328](http://html1.mh-extra.com/html/copper-mountain-technologies/planar-tr1300-1/planar-tr1300-1_programming-manual_2666189328.webp)
Appendix 2. Programming Examples
328
Dim app As Object
Dim app As Object
Dim F, M, P
Public Sub Example4()
Set app = CreateObject("TRVNA.Application")
app.SCPI.SYSTem.PRESet
app.SCPI.TRIGger.SEQuence.Source = "BUS"
app.SCPI.TRIGger.SEQuence.Single
F = app.SCPI.SENSe(1).Frequency.Data
app.SCPI.Calculate(1).Selected.Format = "MLOG"
M = app.SCPI.Calculate(1).Selected.Data.FDATa
app.SCPI.Calculate(1).Selected.Format = "PHASe"
P = app.SCPI.Calculate(1).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