Werbung
R&S FSQ
Declare Function RSDLLilrdTraceReal Lib "rsib32.dll" Alias
"RSDLLilrd" (ByVal ud%, Rd As Single, ByVal Cnt&, ibsta%,
iberr%, ibcntl&) As Integer
Beispiel
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Result As String
Ergebnisse
Dim Digits As Byte
Längenangabe
Dim TraceBytes As Long
Bytes
Dim TraceData(625) As Single
Binärdaten
' Verbindung zum Gerät herstellen
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
' Tracedaten im Real-Format abfragen
Call RSDLLibwrt(ud, "FORM:DATA REAL,32", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "TRACE? TRACE1", ibsta, iberr, ibcntl)
'Zeichenzahl der Längenangabe lesen
Result = Space$(20)
Call RSDLLilrd(ud, Result, 2, ibsta, iberr, ibcntl)
Digits = Val(Mid$(Result, 2, 1))
'Längenangabe lesen
Result = Space$(20)
Call RSDLLilrd(ud, Result, Digits, ibsta, iberr, ibcntl)
TraceBytes = Val(Left$(Result, Digits))
' Tracedaten auslesen
Call RSDLLilrdTraceReal(ud, TraceData(0), TraceBytes, ibsta,
iberr,ibcntl)
4.297
Gerätefunktionen
' Statusvariable
' Fehlervariable
' Zaehlvariable
' Handle für das Messgerät
' Puffer für einfache
' Anzahl Zeichen in
' Länge d. Tracedaten in
' Puffer für Floating-Point
'und abspeichern
Operating Manual 1313.9681.11 - 02
RSIB-Protokoll
Werbung
Kapitel
