Inhaltsverzeichnis
Werbung
Programmbeispiele
Betrieb des Generators im IEC-Bus-Controller-Mode
--------------------- Initialisierungen ----------------------------------
' ACHTUNG: Hier die eigenen Adressen angeben!!
pcadr% = 0
gen_adr% = 28
CALL IBFIND("gpib0", pc)
CALL IBPAD(pc, pcadr%)
CALL IBFIND("dev1", generator)
CALL IBPAD(generator, gen_adr%)
------------------------ Hauptprogramm ------------------------------------
Befehl$ = "sour:corr:coll"
a$ = "*pcb " + STR$(pcadr%)
CALL IBWRT(generator, a$)
CALL IBWRT(generator, Befehl$)
CALL IBPCT(generator)
' ---
Warten auf Rückgabe der Kontrolle
MASK% = &H4020
CALL IBWAIT(brd%, MASK%)
IF IBSTA% AND &H4000 THEN
PRINT "Timeout; Kontrolle nicht wieder erhalten"
END
ELSE
PRINT "Kontrolle wieder übernommen"
END IF
1134.9108.11
' IEC-Bus-Adresse des PCs angeben !
' IEC-Bus-Adresse des SMR angeben
' IEC-Bus-Adresse des PCs setzen
' SMR unter Device1 ansprechbar
' SCPI-Befehl für die automatische UCOR
' sagt dem SMR, daß er nachher die
' Kontrolle an Adresse pcadr%
' zurückgeben soll
' Ausgabe des eigentlichen Befehls
' Übergabe der Kontrolle an den SMR
' CIC oder Timeout
7.6
R&S SMR
D-1
Werbung
Inhaltsverzeichnis
