Max Machinery 120 FLOW RATE & TOTAL INDICATOR - Manual (Page 29)

120-200-350 © 1993 (Rev 5/97) Max Machinery, Inc. Page 29
MICROSOFT QUICK BASIC PROGRAM
REM EQUIPMENT:
REM COMPUTER WITH A RS-232 STANDARD SERIAL INTERFACE
REM RS-232 TO RS-485 COMMUNICATIONS CONVERTER
REM RS-232 CONFORMING TO EIA RS-232 RS-232D STANDARD
REM RS-485 CONFORMING TO EIA RS-485 STANDARD, DIFFERENTIAL,
REM HALF DUPLEX, MULTI-DROP PROTOCOL REQUIRING A TOTAL OF
REM TWO WIRES.
REM THIS PROGRAM IS IN MICROSOFT QUICK-BASIC
REM THE SERIAL INTERFACE PROGRAMMING TECHNIQUE IS SIMILAR TO
REM MOST GENERAL I/O APPLICATIONS, WITH THE EXCEPTION OF THE
REM RS-232 TO RS-485 COMMUNICATIONS CONVERTER. THE DIRECTION
REM IS CONTROLLED BY THE RTS SIGNAL.
COLOR 15, 9
CLS
KEY(1) ON
COMPORT$ = “COM1:”: PARITY$ = “E”: BAUD$ = “9600”: HEADER$ = “>01”: BITS$
= “7”
PT = &H3FC: PT1 = &H3FD
REM init communication variable
COMM$ = COMPORT$ + BAUD$ + “,” + PARITY$ + “,” + BITS$ + “,,RS”
DO
GOSUB START
LOOP UNTIL SELECT$ = “Q”
CLS
PRINT “ ENDING MAX MACHINERY INC. 120 METER SAMPLE PROGRAM”
END
START:
CLOSE : CLS : LOCATE , , 0
PRINT “ MAX MACHINERY INC. 120 METER SAMPLE PROGRAM”
PRINT : PRINT “ COMM PORT = “; COMPORT$;
PRINT “ BAUD RATE = “; BAUD$; “ PARITY = “; PARITY$; “ UNIT NUMBER = “;
RIGHT$(HEADER$, 2)
PRINT : PRINT “ 1 = SELECT COMMUNICATION PORT”
PRINT “ 2 = RUN COMMUNICATIONS”
PRINT “ Q = QUIT”
PRINT : PRINT “ MAKE A SELECTION - “: PRINT : SELECT$ = INPUT$(1)
SELECT$ = UCASE$(SEND$)
IF SELECT$ = “Q” THEN RETURN
SELECTION = VAL(SELECT$)
REM*****KEY CHECK*****
IF SELECTION = 0 OR SELECTION > 2 THEN GOTO START
INITFLAG = 1
EXITFLAG = 0
ON SELECTION GOSUB PORT, SENDCOMM
INITFLAG = 0
DO
IF EXITFLAG = 0 THEN
GOSUB SENDCOMM
END IF
LOOP UNTIL EXITFLAG = 1
RETURN
PORT:
EXITFLAG = 1
CLOSE
PRINT “ SELECT COMMUNICATION PORT”
MICROSOFT QUICK BASIC PROGRAM