Fluke PM6681R Outdoor Timer User Manual


 
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
4-6 GW-Basic for National Instruments PC-IIA, Setting Up the Interface