Rohde & Schwarz FSEA20 - Page 387

Programming Examples FSE
1065.6016.12 7.8 E-16
• In this example, a Save/Recall of the instrument setups is performed.
Dim ibsta As Integer ’ Status variable
Dim iberr As Integer ’ Error variable
Dim ibcntl As Long ’ Count variable
Dim ud As Integer ’ Handle for measuring instrument
Dim Cmd As String ’ Command string
’ Set up connection to measuring instrument
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
’ Error treatment
End If
’ Request instrument settings
Cmd = "SYST:SET?"
Call RSDLLibwrt(ud, Cmd, ibsta, iberr, ibcntl)
’ Store instrument response in file
Call RSDLLibrdf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
’ Reset instrument
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
’ and restore the previous settings
’ to this end disable the END message
Call RSDLLibeot(ud, 0, ibsta, iberr, ibcntl)
’ first send off command
Call RSDLLibwrt(ud, "SYST:SET ", ibsta, iberr, ibcntl)
’ enable the END message again
Call RSDLLibeot(ud, 1, ibsta, iberr, ibcntl)
’ and send the data
Call RSDLLibwrtf(ud, "C:\db.sav", ibsta, iberr, ibcntl)