Programming Examples

430 CALL IBRD (CNT%, MSG$)

440 PRINT “MINIMUM =”; LEFT$(MSG$, IBCNT%)

450 ‘

460 ‘ —— Mean ——

470 WRT$ = “:CALC:AVER:TYPE MEAN; :CALC:IMM?”

480 CALL IBWRT (CNT%, WRT$)

490 MSG$ = SPACE$(255)

500 CALL IBRD (CNT%, MSG$)

510 PRINT “MEAN =”; LEFT$(MSG$, IBCNT%)

520 ‘

530 ‘ —— Standard deviation ——

540 WRT$ = “:CALC:AVER:TYPE SDEV; :CALC:IMM?”

550 CALL IBWRT (CNT%, WRT$)

560 MSG$ = SPACE$(255)

570 CALL IBRD (CNT%, MSG$)

580 PRINT “STANDARD DEVIATION =”; LEFT$(MSG$, IBCNT%) 590 END

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

Page 52
Image 52
Fluke PM6681R Call Ibrd CNT%, MSG$ Print Minimum = LEFT$MSG$, IBCNT%, Call Ibrd CNT%, MSG$ Print Mean = LEFT$MSG$, IBCNT%