Programming Examples

200 ‘

210 ‘ ==== CAPTURE PROFILE =====

220 ‘

230 PRINT “Profiling”

240 ‘

250 FOR I=0 TO 999

260 ‘ —— Set arming delay time --

270WRT$ = “:ARM:DEL” + STR$(ARMDELAY)

280CALL IBWRT(CNT%, WRT$)

290

300—— Measure and read result --

310WRT$ = “READ?”

320CALL IBWRT(CNT%, WRT$)

330MSG$ = SPACE$(255)

340CALL IBRD(CNT%, MSG$)

350

360—— Write arming delay time and result to file --

370PRINT#1, STR$(ARMDELAY), LEFT$(MSG$, INSTR(MSG$, CHR$(10)))

380

390—— Increase arming delay --

400ARMDELAY = ARMDELAY + .0000001

410NEXT I

420

430WRT$ = “:DISP:ENAB ON”

440CALL IBWRT(CNT%, WRT$)

450

460CLOSE 1

470END

4-6 GW-Basic for National Instruments PC-IIA, Setting Up the Interface

Page 46
Image 46
Fluke PM6685R, PM6681R manual 270 WRT$ = Armdel + STR$ARMDELAY Call IBWRTCNT%, WRT$, Call IBRDCNT%, MSG$