Operating Manual EMI TEST RECEIVER ESIB7 - Rohde & Schwarz

ESIB
Programming Examples
Example:
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Result As String
Dim Digits As Byte
Dim TraceBytes As Long
Dim TraceData(501) As Single
’ Status variable
’ Error variable
’ Count variable
’ Handle for measuring instrument
’ Buffer for simple results
’ Number of digits of length indication
’ Length of trace data in bytes
’ 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)) ’and store
’ Read out trace data
Call RSDLLilrdTraceReal(ud, TraceData(0), TraceBytes, ibsta, iberr,ibcntl)
Programming examples:
• In this example, the start frequency of the instrument is queried.
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 Response As String ’ Response string
’ Set up connection to measuring instrument
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
’ Error treatment
End If
’ Send query command
Call RSDLLibwrt(ud, "FREQ:START?", ibsta, iberr, ibcntl)
’ Provide space for response
Response = Space$(100)
’ Read response from measuring instrument
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
1088.7531.12 7.7 E-16