R&S ESU Series Operating Manual page 399

R&S ESU
' 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)
4.14.2.2 Visual Basic for Applications (Winword and Excel)
Programming tips
The programming language Visual Basic for Applications (VBA) is supported as a
macro language by various manufacturers. The programs Winword and Excel use
this language for the versions Winword 97 or Excel 5.0 and higher.
For macros created with Visual Basic for Applications, the same tips are valid as for
Visual Basic Applications.
Programming example
Using the macro QueryMaxPeak, a single sweep with subsequent query of the
maximum peak is performed. The result is entered in a Winword or Excel document.
Sub QueryMaxPeak()
Dim ibsta As Integer
' Status variable
Dim iberr As Integer
' Error variable
Dim ibcntl As Long
' transferred characters
Dim ud As Integer
' Unit Descriptor (handle)for instrument
Dim Response As String
' Response string
4.368
Instrument Functions
RSIB Interface Functions
Operating Manual 1302.6163.12 - 03