Inhaltsverzeichnis
Werbung
7.7 Programmbeispiele (Q-Basic)
7.7.1 Fernbedienung über Schnittstelle GPIB
100 REM
*****************************************************
110 REM BEISPIEL IN Q-BASIC FÜR DAS RLC 300
120 REM MIT GPIB-KARTE AT-GPIB/TNT UND SOFTWARE NI-488.2
(NI)
130 REM Die GPIB-Adresse ist auf 7 eingestellt.
140 REM Geräteeinstellungen - Ausgangsfrequenz: 10 kHz
150 REM
160 REM
170 REM
180 REM Vereine diesen Code mit DECL.BAS (bei NI-488.2)
190 REM
*****************************************************
200 CLS
210 REM *** Schnittstelle AT-GPIB/TNT konfigurieren ***
220 DIM ADDRLIST%(31):ADDRLIST%(0)=7:ADDRLIST%(1)=NOADDR%
230 BDINDEX%=0:PAD%=7
240 CALL SENDIFC (BDINDEX%)
250 REM
260 REM *** RLC 300 konfigurieren ***
270 CALL ENABLEREMOTE (BDINDEX%,ADDRLIST%(0))
280 CALL DEVCLEAR(BDINDEX%,PAD%)
290 WRT$="*RST;*CLS"
300 CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)
310 REM
320 REM *** Messignal einstellen (Frequenz, Pegel) ***
330 WRT$="FREQ 10000;LEVEL_LOW"
340 CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)
350 REM
360 REM *** Betriebsart einstellen ***
370 WRT$="MODE_CD;MON_VI"
380 CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)
390 REM
400 REM *** Messungen starten ***
410 WRT$="*TRG;C?;D?;MON_V?;MON_I?"
420 CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)
430 REM
440 REM *** Ergebnis empfangen ***
450 RD$=SPACE$(100)
460 CALL RECEIVE (BDINDEX%,PAD%,RD$,STOPEND%)
470 CLS:PRINT "Ergebnis: ",RD$
480 REM
490 REM *** Lokale Bedienung des RLC 300 einstellen ***
500 WRT$="*RST;*OPC?"
510 CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)
520 RD$=SPACE$(20)
530 CALL RECEIVE (BDINDEX%,PAD%,RD$,STOPEND%)
540 REM
550 CALL ENABLELOCAL (BDINDEX%,ADDRLIST%(0))
560 REM
- Ausgangspegel:
- Parameteranzeige: C-D
- Monitorfunktion:
77
LOW
V-I
Gebrauchsanweisung RLC 300
6/98
Werbung
Inhaltsverzeichnis
