QuadTech 1865, Инструкция по эксплуатации, Страница: 66 / 87

Page 66 of 87 Operation
2.7.4 Sample Program for IO Tech GPIB card
OPEN "\dev\ieeeout" FOR OUTPUT AS #1
IOCTL #1, "BREAK"
PRINT #1, "RESET"
OPEN "\dev\ieeein" FOR INPUT AS #2
PRINT #1, "fill error"
PRINT #1, "remote 04"
PRINT #1, "local lockout"
id$ = space$(30) : c$=space$(15)
PRINT #1, "output 04;idn?"
PRINT #1, "enter 04"
FOR i = 1 TO 3000: NEXT i
INPUT #2, id$
PRINT "Company identification is "; id$
INPUT #2, id$
PRINT "Instrument identification is "; id$
INPUT #2, id$
PRINT "Serial number is "; id$
INPUT #2, id$
PRINT "Software revision is "; id$
PRINT #1, "output 04;syst:Dcal?"
PRINT #1, "enter 04"
INPUT #2, c$
PRINT "This unit was calibrated on "; c$
PRINT #1, "output 04;conf:volt 100"
PRINT #1, "output 04;conf:lim 9.97e5"
PRINT #1, "output 04;conf:disp r"
PRINT #1, "spoll"
' an error will produce a SRQ
INPUT #2, y
IF y THEN
PRINT #1, "spoll 04"
INPUT #2, x : PRINT "spoll 04 = "; x
END IF
PRINT #1, "output 04;MEAS:RES"
y = 0
WHILE y = 0
'SRQ at end of measurement
PRINT #1, "spoll"