Fluke PM6685R, PM6681R manual 200 ‘ 210 ‘ ==== CAPTURE PROFILE ===== 220 ‘ 230 PRINT “Profiling”

Models: PM6685 PM6685R PM6681 PM6681R

1 276
Download 276 pages 1.51 Kb
Page 46
Image 46
200 ‘

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 200 ‘ 210 ‘ ==== CAPTURE PROFILE ===== 220 ‘ 230 PRINT “Profiling”