12. Sample basic program
(for reference only, note : baud rate 1400 in older system , 2800 in newer
systems)
10 ’ THIS PROGRAM IS CALLED “MANUAL SCAN”
20 ’ THE RS232 PORT OF THE IL1700 IS USED TO SEND DATA INTO A
30 ’ COMMUNICATIONS PORT ON AN IBM COMPATIBLE COMPUTER
40 ’ YOU WILL REQUIRE A COMUNICATION MODEM CABLE SPECIFIC TO YOUR
50 ’ COMPUTER. IF YOU PURCHASE THE WRONG CABLE YOUR COMPUTER WI
LL
60 ’ NOT RECEIVE DATA FROM THE IL1700.
100 ’
101 ‘TO USE THIS PROGRAM:
102: STEP 1: CONNECT RS232 CABLE TO IL1700 AND COMPUTER
103 ‘ STEP 2: CONNECT DETECTOR TO REAR OF IL1700
104 ‘ STEP 3: SET PRINTER/COMPUTER SWITCH ON REAR OF IL1700 TO “PRINTER”
10
5 ‘ SEE “REAR PANEL” SECTION IN QUICK START GUIDE, IN IL1700 MANUAL
106 ‘ STEP 4: PLACE DISK IN DRIVE “A” OF COMPUTER
107 ‘ STEP 5: LOAD PROGRAM, RUN IT AND FOLLOW DIRECTIONS ON SCREEN
110 CLEAR
120 CLS:CLOSE
130 DIM A (200)
140 DIM A$(200)
150 X=0
151
‘ REMARKS
160 ‘ 170
-350 PRINTS TITLE, MENU SELECTIONS AND ALLOWS USER TO MAKE SELECTION.
161 ‘ ENTER KEY READS DATA, R KEY REPLACES LAST VALUE, Q QUITS.
162 ‘
170 LOCATE 1, 32:PRINT “IL1700 RS232 PROGRAM”
180 LOCATE 2, 40:PRINT“MENU”
190 LOCATE 3, 20:
PRINT“ENTER KEY: TAKES PRESENT READING FROM IL1700”
200 LOCATE 4, 20:PRINT“R: REDO: REPLACES LAST READING WITH CURRENT READING”
210 LOCATE 5, 20:PRINT”Q: QUITS: ENDS PROGRAM. READINGS ARE STORED
230 REM BEGINNING OF LOOP TO ENTER DATA CHECKS INPUT FOR ENTER, R OR Q
240 LOCATE 10,1 :PRINT “HIT ENTER KEY, R, OR Q TO QUIT”
250 LOCATE 18, 50:PRINT:“LAST VALUE STORED: “
260 LOCATE 19, 53:PRINT”
270 LOCATE 19, 50:PRINT A(X)
280 LOCATE 17, 71:PRINT“MEMORY”
290 LOCATE 18, 70:PRINT: “LOCATION”
300 LOCATE 19, 72:PRINT X
310 SELECT$=INPUT$(1)
320 LOCATE 11, 1:PRINT”
330 IF ASC(SELECT$)=81 OR ASC(SELECT$)=113 THEN GOTO 490
340 IF ASC(SELECT$)=13 THEN GOTO 370
350 IF ASC(SELECT$)=82 OR ASC(SELECT$)=114 THEN GOTO 440
370 X=X+1
371 ‘REMARKS
372 ‘ THE NEXT 4 LINES O
PEN COMMUNICATION PORT TO RECEIVE DATA
373 ‘ CONVERT DATA TO NUMERICAL VALUE AND STORES THE
374 ‘ NUMBER IN AN ARRAY CALLED A(X)
375 ‘
380 ‘ OPEN “com1:1200,n,8,2” AS #1
390 LINE INPUT #1, A$(X)
400 A(X)=VAL(A$(X))
420 CLOSE #1
430 GOTO 240
431 ‘REMARK
4
32 ‘THE NEXT 4 LINES REPLACE PREVIOUSLY STORED DATA IN CASE THE
433 ‘ WRONG VALUE WAS ENTERED
440 IF X<1 THEN LOCATE 11, 1 :PRINT “YOU CANNOT CHANGE A PREVOUS VALUE YET!”:GOTO 240 REM CANNOT CHANGE
READING
UNTIL A READING IS STORED
450 LOCATE 11,1 :PRINT
“YOU ARE REPLACING THE VALUE IN MEM. LOC. “;X;” WITH PRESENT IL1700 READING:”
460 X=X=1
470 GOTO 310
471 ‘REMARK
480 ‘THE REMAINING LINES ASK THE USER IF THEY WANT TO QUIT
481 ‘ IF YES, ALL DATA VALUES ARE STORED ON THE DISK IN DRIVE A
482 ‘ UNDER THE NAM
E _DATA, IN ASCII FORMAT
483 ‘
490 LOCATE 11, 1:PRINT “ARE YOU SURE YOU WANT TO QUIT (y/n)”
495 SELECT$=INPUT$(1)
500 IF ASC(SELECT$) <>121 AND ASC(SELECT$)<>89 THEN LOCATE 11, 1: PRINT” “ GOTO 240
501 OPEN “A:_DATE: FOR OUTPUT AS #2
502 FOR Y=1 TO X
503 PRINT#2, A(Y)
504 NEXT Y
505 CLOSE #2: CLS:PRINT”ALL DATA HAS BEEN STORED IN DATA FILE CALLED ‘_DATA’ ”
510 IF ASC(SELECT$) <>121 AND ASC(SELECT$)<>89 THEN LOCATE 11, 1:PRINT “ “ GOTO240
520 CLOSE #2
530 END
代理美国International Light辐照计http://www.testeb.com/yiqi/ilt/zhaoduji.html 深圳市格信达科技 电话18823303057 QQ：2104028976
