R&S 1129.7246.03, Руководство по эксплуатации

Страница: 400 / 855

Operating Manual 1302.6163.12 - 03 4.369
R&S ESU Instrument Functions
RSIB Interface Functions
' 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, "INST:SEL SAN", 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.14.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()
.