Fluke Biomedical Cufflink - Manual (Page 116)

Cufflink
Operators Manual
3-42
10 REM Demonstration program for C u fflinks RS-232 Comm u nications.
20 REM The system u sed for this demonstration has a mo u se on COM1
30 REM so COM2 is u sed.
40 CLOSE #2 ‘Ens u res that #2 file is closed.
50 CLS ’Clears the screen.
60 OPE N “COM2:9600, N , 8 ,1,CDO,CSO,DSO,OPO,RS,TB204 8 ,RB204 8 ” FOR RA N DOM AS #2
70 REM OPE N “COM2:9600, N , 8 ,1,CDO,CSO,DSO,OPO,RS,TB204 8 ,RB204 8 ”
8 0 ‘Opens comm u nications channel 2 in
90 ‘random-access mode at speed of
100 ‘9600 b a u d w ith no parity b it, 8 data b its
110 ‘ and 1 stop b it. The program can no w
120 ‘access channel 2 as file n u m b er 2.
130 ‘____________________
140 CUFFOUT$= “IDE
N T” ‘Displays the c u rrent firm w are v ersion.
150 PRI N T #2, CUFFOUT$ ‘Sends command to the C u fflink.
160 ’
170 I
N DATA$ = I N OUT$(13, #2) ‘Gets ret u rn data from the C u fflink.
1 8 0 REM The ret u rn from the C u fflink is “C u fflink, 3.20, A u sc, P u mp”
190 REM that is 25 characters for the inp u t string. For shorter strings,
200 REM the n u m b er m u st b e smaller and longer strings w ill carry o v er to
210 REM the next inp u t string.
211 REM
220 PRI
N T “Press any key to contin u e”: a$ = I N PUT$(1)
230 PRI N T I N DATA$ ‘Prints data on screen
240 ‘
250 ’____________________
260 ‘The next command sho
w s a MAKEARM command w ith parameters.’
270 ‘
2
8 0 CUFFOUT$ = “MAKEARM HR=60,BP=ADAMS-150/.100,PULSEID=3”
290 PRI N T #2, CUFFOUT$ ‘Sends command to the C u fflink.
300 ’
310 CLOSE #2
320 OPE
N “COM2:9600, N , 8 ,1,CDO,CSO,DSO,OPO,RS,TB204 8 ,RB204 8 ” FOR RA N DOM AS #2
330 REM The t w o pre v io u s lines close and clear the comm u nications bu ffer
340 REM that is u sed. This w ipes extra characters that list options and
350 REM the “*” ret u rns w hen C u fflink recei v es the MAKEARM command.
351 REM
360 PRI
N T “press any key w hen test is completed”: a$ = I N PUT$(1)
370 I N DATA$ = I N PUT$(39,#2) ‘Gets ret u rn data from the C u fflink.
3 8 0 REM Again the length of the ret u rned string affects the Inp u t$.
390 REM If the string is longer than the Inp u t$, the system w ill hang u p.
391 REM
400 PRI
N T I N DATA$
410 PRI N T “Press any key to ret u rn C u fflink to LOCAL” : a$ = I N PUT$(!)
420 CUFFOUT$ = “GOTOLOCAL”
430 PRI
N T #2, CUFFOUT$
440 CLOSE #2
450 E
N D
fcv061.eps
Figure 3-6. A BASIC Program using Analyzer Remote Commands