Fluid Components International GF90_GF92 - Manual (Page 50)

FLUID COMPONENTS INTERNATIONAL LLC http://www.fluidcomponents.com
GF Series Flow Meter Models GF90/GF92 46 Doc. No. 06EN003229 Rev. H
' Serial Communication example
' Fluid Components Intl
' This program places the flowmeter into normal
' operation and displays the current flow rate and
' temperature.
DEFINT A-Z
ON ERROR GOTO error.trap
COLOR 7, 1 ' Set screen color.
CLS
Quit$ = CHR$(0) + CHRS$(16) ' Value returned by INKEY$
' when ALT+q is pressed.
' Set up screen and turn cursor off.
LOCATE 24, 1, 0
PRINT STRING$(80, "_");
LOCATE 25, 1
PRINT TAB(30); "Press ALT+q to quit";
VIEW PRINT 1 TO 23 ' Print between lines 1 & 23.
' Open communications (9600 baud, no parity, 8-bit data,
' 1 stop bit, 256-byte input buffer):
OPEN "COM1:9600,N,8,1,RS,CS,DS,CD,OP10000,RB2000" FOR RANDOM AS #1 LEN =512
PRINT#1, "H"; ' Send a HOME command. (Send
' another also.)
x! = TIMER ' Wait for response. (A long
DO UNTIL TIMER - x! 3 ' wait is not necessary after
LOOP ' most commands.)
PRINT #1, "H"; ' Send another HOME command
x! = TIMER ' Wait again
DO UNTIL TIMER - x! 3
LOOP
PRINT #1, "1"; ' Normal Operation
DO ' Main communications loop.
KeyInput$ = INKEY$ ' Check the keyboard.
IF KeyInput$ = Quit$ THEN ' Exit the loop if the user
EXIT DO ' PRESSED alt+q.
END IF
GFINPUT$ = "" ' Empty the two working
moreGFInput$ = "" 'strings
Figure 31A - Series Serial Communication Code Example