Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 334 / 796

R&S FSP Instrument Functions
RSIB Interface Functions
4.262 Operating Manual 1164.4556.12 - 06
' Set up connection to measuring instrument
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
Call MsgBox("Device with address 89.10.38.97 could" & _
"not be found", vbExclamation)
End
End If
' Determine maximum peak in the range 1-2MHZ
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:CONT OFF", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:START 1MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:STOP 2MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:IMM;*WAI", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "CALC:MARK:MAX;Y?", ibsta, iberr, ibcntl)
Response = Space$(100)
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
Response = RTrim(Response)
' Cut off space
' Insert value in current document (Winword)
Selection.InsertBefore (Response)
Selection.Collapse (wdCollapseEnd)
' Terminate connection to measuring instrument
Call RSDLLibonl(ud, 0, ibsta, iberr, ibcntl)
End Sub
The entry of the peak value in the Winword document can be replaced as follows for
Excel:
' Insert value in current document (Excel)
ActiveCell.FormulaR1C1 = Response
4.12.2.3 C / C++
Programming tips
Access to the functions of the RSIB32.DLL (Windows platforms)
The functions of the
RSIB32.DLL
are declared in the header file
RSIB.H
. The DLL
functions can be linked to a C/C++ program in different ways.
• Enter one of the supplied import libraries (
RSIB.LIB or RSIB32.LIB
) into the
linker options.
• Load the library using the function
LoadLibrary()
during runtime and
determine the function pointers of the DLL functions using
GetProcAddress()
.
Before the end of the program, the
RSIB.DLL
must be unloaded again using the
function
FreeLibrary()
.