Bird-technologies 6091P Instrukcja Użytkownika Pobierz pdf (Strona 59)

Sample Test

Programs

The following sample programs illustrate GPIB command Structure and data format

for operation of the Calorimeter in the remote mode.

Remote Operating Procedures

National GPIB-PCII:

10 REM INCLUDE LINES 20 THROUGH 40 (SUPPLIED WITH THE NATIONAL CONTROLLER)

20 CLEAR ,60000! : IBNIT1=60000! : IBINT2=IBINT1+3 : BLOAD "bib.m", IBINT1

30 CALL IBINIT1(IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, IBPPC, IBBNA, IBONL, INRSC,

IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, IBWRTF, IBTRAP,

IBDEV, IBLN)

40 CALL IBINT2(IBGTS, IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA,

IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, IBWRTIA, IBSTA%, IBERR%,

IBCNT%)

50 REM CLEAR SCREEN

60 CLS

70 PRINT "TYPE END TO QUIT PROGRAM"

80 REM DEFINE DEVICE AND BOARD PARAMETERS

90 BI%=0:PAD%=24;SAD%=0:TMO%=13:EOT%=1:EOS%=&H40a:BRD%=0

100 CALL IBDEV(BI%,PAD%,SAD%,TMO%,EOT%,EOS%,BRD%)

110 REM SEND INTERFACE CLEAR

120 CALL IBCLR (BRD0%)

130 REM SEND COMMAND TO DISABLE TERMINATORS

140 CMD$="YN":CALL IBWRT(BRD%,CMD$)

150 REM ENTER COMMAND STRING

160 INPUT "COMMAND STRING";CMD$

170 CMD$="END" THEN 260

180 REM WRITE COMMAND STRING TO DEVICE

190 CALL IBWRT(BRD%,CMD$)

200 REM DEFINE READ STRING AND READ DATA

210 RD$=SPACE$(36)

220 CALL IBRD(BRD%,RD$)

230 REM PRINT DATA AND LOOP TO COMMAND STRING INPUT

240 PRINT RD$

250 GOTO 160

260 END

1 2 ... 54 55 56 57 58 59 60 61

Brak uwag

Bird-technologies 6091P Instrukcja Użytkownika Strona 59