5-26
3550 LCR Meter Instruction Manual Programming and Interfacing
RS-232C
Sample programs for RS-232C
SAMPLE2.BAS
1000 REM sample2.bas
1010 OPEN "COM:N81" AS #1 : CLS
1020 KAN = 0
1030 ON COM GOSUB *RECIEVE
1040 COM ON
1050 *LABEL
1060 GOSUB *WAIT10
1070 IF KAN = 0 THEN GOTO *LABEL
1080 '
1090 GOSUB *WAIT10
1110 *LABEL2
1120 GOSUB *WAIT10
1130 PRINT#1,"PAN2 E3 O1 FA1 FB7"
1140 GOSUB *WAIT10
1150 FOR J=100 TO 10000 STEP 100
1160 K= LEN(STR$(J))
1170 A$=MID$(STR$(J),2,K-1)
1180 PRINT#1,"FRE"+A$+" T0"
1190 F = 1
1200 GOSUB *WAIT10
1210 IF F=1 THEN GOTO 1200
1220 NEXT J
1230 PRINT "end"
1235 COM OFF
1240 END
1250 '
1260 *RECIEVE
1280 IF LOC(1) <> 0 THEN GOTO 1300
1290 GOTO 1390
1300 GOSUB *WAIT10
1320 D$ =INPUT$(LOC(1),#1):PRINT D$
1330 D$=LEFT$(D$,6):F = 0
1340 IF D$ = "3550" THEN GOTO 1360
1350 GOTO 1390
1360 PRINT#1,"E3 REN O1"
1380 KAN = 1:GOSUB *WAIT10
1390 COM ON: RETURN
1400 *WAIT10
1410 FOR I=0 TO 1000:NEXT I
1420 RETURN
To Next Page
Loading...
