The "channel code" can be used by the computer for identification, and the "optional" CR LF for
acknowledgement of the data block received. See also fig. B2 for more information.
B.5
DEMONSTRATION PROGRAMS
The printed demonstration programs were written on a PX4 Epson hand held computer and IBM PC in
the BASIC language, to give the user more information on how to handle the serial data output.
B.5.1
demo 1
10
REM
20
:
30
:
40
:
50
REM demo BD 11E/12E RS232 data transmission
60
REM receive data from channels 1 and 2
70
REM display values and draw curves
80
:
90
:
100
110
REM enable input, set baudrate and clear screen
120
OPEN "i", #1"com0: (e) ": DEFINT P,G,V,X,Y
125
PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:YV=200:XV=200: GOTO 340
130
:
140
REM wait for code "Y"
150
IF INPUT$(1,#1)<>"Y" THEN 150
160
RETURN
170
:
180
REM wait for code "Z"
190
IF INPUT$(1,#1)<>"Z" THEN 190
200
RETURN
210
:
220
REM get pen position value
230
G=VAL(INPUT$(4,#1)):RETURN
240
:
250
REM scaling
260
P=-G*.037+235.5:RETURN
270
:
280
REM draw line
290
PSET(VP,Y-1): LINE-(P,Y):VP=P:RETURN
300
:
310
:
320
:
330
REM
340
GOSUB
Y=Y+1:VP=YV:GOSUB 290:YV=P
350
GOSUB
290:XV=P
360
GOSUB 190:IF Y=63 THEN Y=55:PRINT"Y";GX;TAB(8);"Z";GY: PSET(83,Y)
370
GOSUB 150:PSET(84,Y):GOTO 340
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Instruction manual BD 11/11E / 12/12E
demo 1 (PX4)
main program
190:GOSUB 230:GY=G:GOSUB 260:GOSUB190:
150:GOSUB 230:GX=G:GOSUB 260:GOSUB 150:VP=XV: GOSUB
Kipp & Zonen B.V.
33