Rohde & Schwarz EMI Test ReceiverESCI - Page 481

R&S ESCI RSIB Interface Functions
1166.6004.12 4.349 E-1
• 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)