mensor PCS 400 - Sample Program

SAMPLE PROGRAM
‘**************************************************************************************
‘ GENERAL PROGRAM DESCRIPTION
‘ This is a sample program in Microsoft QuickBasic which demonstrates
‘ some of the functions of the PCS 400 IEEE commands. The PCS 400 should
‘ be set to address 3. This program uses the National Instruments GPIB drivers
‘**************************************************************************************
CLS
‘ INITIALIZE EQUIPMENT
‘ ASSUMES PCS 400 IS SET TO ADDRESS 3
CALL IBFIND(“DEV3", BRD3%)
‘ THIS PART OF THE PROGRAM READS
‘ THE SERIAL NUMBER OF THE PCS400
‘ AND PRINTS IT TO THE SCREEN.
CALL IBWRT(BRD3%, “_PCS4 ID?” + CHR$(10))
RD$ = SPACE$(33)
CALL IBRD(BRD3%, RD$)
ID$ = MID$(RD$, 2, 27)
PRINT “ ”
PRINT “ ”
PRINT “ ”
PRINT “BELOW IS THE MENSOR MODEL, SERIAL # AND SOFTWARE VERSION”
PRINT “ ”
PRINT ID$
‘ THIS SECTION WILL ALLOW THE USER TO
‘ ENTER A CONTROL PRESSURE
‘ CHANGES THE UNITS TO PSI
CALL IBWRT(BRD3%, “_PCS4 UNIT 01" + CHR$(10))
‘ THIS COMMAND VENTS THE PCS400
CALL IBWRT(BRD3%, “_PCS4 FUNC VENT” + CHR$(10))
‘ PROMPTS USER FOR CONTROL PRESSURE
PRINT “ENTER THE DESIRED CONTROL PRESSURE”
PRINT “CAUTION! DO NOT EXCEED THE FULL SCALE OF THE INSTRUMENT ”
PRINT “ ”
INPUT “ENTER PRESSURE THEN PRESS RETURN ”, CONTROL!
CONTROL$ = STR$(CONTROL!)
‘ THIS COMMAND SENDS THE PCS400 INTO
‘ CONTROL AT A PRESSURE POINT
‘ (WHICH IS THE VARIABLE CONTROL$)
‘ ENTERED IN BY THE USER.
CALL IBWRT(BRD3%, “_PCS4 FUNC CTRL” + CONTROL$ + CHR$(10))
‘ ONE COULD HAVE ALSO SET THE CONTROL MODE TO A SPECIFIED
‘ VALUE BY DOING THE FOLLOWING:
‘ CALL IBWRT (BRD3%,"_PCS4 FUNC CTRL 1.00" + CHR$(10)
‘ THIS TELLS THE PCS400 TO CONTROL AT 1.00 PSI
APPENDIX PCS 400
9-8 www.mensor.com