Fluke 2620A User Manual page 81

500 PRINT #1, "FUNC " + STR$(I) + "," + CMD$
510 GOSUB 800
520 NEXT I
530 '
540 LOCATE 23,1
550 PRINT "Measuring " + CMD$ + "
560 '
570 FOR I = 1 TO 3
580 PRINT #1, "*TRG"
590 GOSUB 800
595 PRINT #1, "SCAN_TIME? : GOSUB 800 ' Get scan time stamp
597 LINE INPUT #1, RESULTS$
598 PRINT #2, RESULT$
600 FOR J = 1 TO NUMBEROFCHANS ' Request scan data
610 PRINT #1, "LAST? " + STR$(J) ' Request channel data
612 GOSUB 800
620 INPUT #1, RESULT$
640 LOCATE J+3, 25 : PRINT "Chan " + STR$(J) + ": ";
650 PRINT RESULT$
660 PRINT #2, RESULT$ + ",";
670 NEXT J
680 PRINT #2, ""
690 NEXT I
700 WEND
710 '
720 ' Subroutine: response
730 ' Checks prompt for errors
740 ' The possible command responses are:
750 ' "=> (CR) (LF)" (command successful)
760 ' "?> (CR) (LF)" (command syntax error)
770 ' "!> (CR) (LF)" (Command execution error)
780 '
800 PROMPT$ = INPUT$(4, #1)
810 IF INSTR(1, PROMPT$, "=>" <> 0 THEN RETURN
820 IF INSTR(1, PROMPT$, "?>" <> 0 THEN PRINT "Command Syntax Error!!"
830 IF INSTR(1, PROMPT$, "!>" <> 0 THEN PRINT "Command Execution Error!!"
840 PRINT "Program execution halted due to communication errors."
850 END
" ' Print to screen
' Scan 3 times
' Start a single
' Get prompt
' save time stamp in data file
' Get prompt
' Get channel result
' Print results to screen
' Print results to file
' Get prompt
' Command successful
Figure 4-2. Sample Program (cont)
Using the Computer Interface
Using the IEEE-488 Interface
4
4-11