Fluke PM6685R ユーザーズマニュアル

200 ‘

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

220 ‘

230 PRINT “Profiling”

240 ‘

250 FOR I=0 TO 999

260

‘ —— Set arming delay time --

270

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

280

CALL IBWRT(CNT%, WRT$)

290

‘

300

‘ —— Measure and read result --

310

WRT$ = “READ?”

320

CALL IBWRT(CNT%, WRT$)

330

MSG$ = SPACE$(255)

340

CALL IBRD(CNT%, MSG$)

350

‘

360

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

370

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

CHR$(10)))

380

‘

390

‘ —— Increase arming delay --

400

ARMDELAY = ARMDELAY + .0000001

410 NEXT I

420 ‘

430 WRT$ = “:DISP:ENAB ON”

440 CALL IBWRT(CNT%, WRT$)

450 ‘

460 CLOSE 1

470 END

Programming Examples