R&S ESU Series Operating Manual page 397

R&S ESU
In order to enable the trace data to be directly read into a float array, a special func-
tion declaration must be created.
Declare Function RSDLLilrdTraceReal Lib "rsib32.dll" Alias "RSDLLilrd" (ByVal
ud%, Rd As Single, ByVal Cnt&, ibsta%, iberr%, ibcntl&) As Integer
Example
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 Result As String
' Buffer for simple results
Dim Digits As Byte
' Number of digits of length indication
Dim TraceBytes As Long
' Length of trace data in bytes
Dim TraceData(625) As Single
' Buffer for floating point Binary data
' Set up connection to instrument
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
' Query trace data in real format
Call RSDLLibwrt(ud, "FORM:DATA REAL,32", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "TRACE? TRACE1", ibsta, iberr, ibcntl)
' Read number of digits of length indication
Result = Space$(20)
Call RSDLLilrd(ud, Result, 2, ibsta, iberr, ibcntl)
Digits = Val(Mid$(Result, 2, 1))
' Read length indication
Result = Space$(20)
Call RSDLLilrd(ud, Result, Digits, ibsta, iberr, ibcntl)
TraceBytes = Val(Left$(Result, Digits))
4.366
# 4
Prefix for
Number of digits of
binary data
the following length
indication
2004
Length of data, e.g.
501 pixels
4 bytes/pixel
Operating Manual 1302.6163.12 - 03
Instrument Functions
RSIB Interface Functions