Anhang D Programmbeispiele; Anhang D.1 Iec-Bus-Bibliothek Für Quickbasic Einbinden; Anhang D.2 Initialisierung Und Grundzustand; Anhang D.2.1 Controller Initialisieren - Rohde & Schwarz NRT Betriebshandbuch

NRT
Anhang D
Die Beispiele erläutern das Programmieren des Gerätes und können als Grundlage für die Lösung
komplexerer Programmieraufgaben dienen.
Als Programmiersprache wurde QuickBASIC verwendet. Die Programme können jedoch auf andere
Sprachen übertragen werden.
Anhang D.1
REM -------------------------- Allgemeine Deklarationen --------------------------
COMMON SHARED sensor%
DECLARE SUB IECOUT (out$)
DECLARE SUB IECIN (read$)
REM -------------------------- IEC-Bus-Bibliothek für QuickBASIC einbinden.
'$INCLUDE: 'c:\testtool\qbasic\qbdecl.bas'
REM*******************************************************************************
Anhang D.2
Zu Beginn eines jeden Programms werden sowohl der IEC-Bus als auch die Einstellungen des Gerätes
in einen definierten Grundzustand gebracht. Dazu werden die Unterprogramme "InitController"
und "InitDevice" verwendet.
Anhang D.2.1
REM --------------------------- Controller initialisieren ------------------------
REM InitController
iecaddress% = 28
CALL IBFIND("DEV1", sensor%)
CALL IBONL(sensor%, 1)
CALL IBPAD(sensor%, iecaddress%)
CALL IBCLR(sensor%)
CALL IBEOS(sensor%, 0)
CALL IBEOT(sensor%, 1)
CALL IBTMO(sensor%, T3s)
REM*******************************************************************************
Anhang D.2.2
REM -------------------------- Funktionen zum Empfangen und Senden von -----------
REM -------------------------- Daten und Befehlen --------------------------------
REM -------------------------- Daten vom IEC-Bus lesen ---------------------------
SUB IECIN (read$)
temp$ = SPACE$(100)
CALL IBRD(sensor%, temp$)
1080.9506.02
Programmbeispiele
IEC-Bus-Bibliothek für QuickBASIC einbinden
Initialisierung und Grundzustand
Controller initialisieren
Funktionen zum Empfangen und Senden von

Daten und Befehlen

'IEC-Busadresse des Gerätes,
'Kanal zum Gerät öffnen.
'Geräteadresse dem Controller
'mitteilen,
'IEC-Betrieb des Gerätes
'zurücksetzen,
'Empfang ist mit Signal EOI
'beendet,
'EOI wird mit letztem zu
'sendenden Zeichen gesetzt,
'Antwortzeit 3 sec.
'Bereich löschen,
'Daten vom Bus lesen.
D.1
Programmbeispiele
D-6