Inhaltsverzeichnis
Werbung
RSIB-Schnittstelle
Programmierung über das RSIB-Protokoll
Visual Basic
Programmierhinweise:
• Zugriff auf die Funktionen der RSIB.DLL
Zum Erstellen von Visual Basic-Steueranwendungen wird die Datei RSIB.BAS für 16 Bit Basic
Programme bzw. RSIB32.BAS für 32 Bit Basic Programme (D:\R_S\INSTR\RSIB) zu einem Projekt
hinzugefügt, damit die Funktionen der RSIB.DLL bzw. RSIB32.DLL aufgerufen werden können.
• Erzeugen eines Antwortpuffers
Vor dem Aufruf der Funktionen RSDLLibrd()
ausreichender Länge erzeugt werden. Dies kann entweder bei der Definition des Strings oder mit
dem Befehl Space$() erfolgen.
Erzeugen eines Strings der Länge 100:
Falls eine Anwort vom Meßgerät als String ausgegeben werden soll, können mit der Visual Basic
Function RTrim() die angehängten Leerzeichen entfernt werden.
Beispiel:
Response = Space$(100)
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
Response = RTrim(Response)
' Ausgabe von Response
• Auslesen von Trace-Daten im Real-Format
Mit den Funktionsdeklarationen in der Datei RSIB.BAS bzw. RSIB32.BAS können die Antworten des
Geräts nur einem String zugewiesen werden. Sollen die Daten in ein Array mit Float-Werten gelesen
werden, müssen der Header und die Nutzdaten mit getrennten Funktionsaufrufen auslesen werden.
Beispiel für einen Header:
Prefix für
Binärdaten
Um
die
Tracedaten
Funktionsdeklaration erstellt werden.
Declare Function RSDLLilrdTraceReal Lib "rsib32.dll" Alias "RSDLLilrd"
(ByVal ud%, Rd As Single, ByVal Cnt&, ibsta%, iberr%, ibcntl&) As Integer
1164.4556.11
#
4
2004
Länge der Daten.
Anzahl der Ziffern
z.B. 501 Punkte *
der folgenden
4Bytes/Punkt
Längenangabe
direkt
in
ein
Float-Array lesen
und RSDLLilrd() muß ein String mit
- Dim Response as String * 100
- Dim Response as String
Response = Space$(100)
zu
4.23-46
können
muß
eine
FSP
spezielle
D-1
Werbung
Kapitel
Inhaltsverzeichnis
