Minebea CSD-814B - 13−3−2. Sample Program for Command Mode

165
13−3−2. Sample program for Command mode
1000 '
1010 '---------------------------------------------
1020 'CSD−814B Sample program for RS−232C Interface.
1030 'Minebea Co., Ltd. Measuring Components Div.
1040 '---------------------------------------------
1050 '
1060 'This sample is to be used for Command mode.
1070 CLS
1080 '----------<Command Definitions>------------
1090 OPTION BASE 1
1100 DIM TXD$(10)
1110 TXD$(1) = “R020” : ’
1120 TXD$(2) = “R021” : ’
1130 TXD$(3) = “R022” : ’
1140 TXD$(4) = “R030” : ’
1150 TXD$(5) = “R031” : ’
1160 TXD$(6) = “R032” : ’
1170 TXD$(7) = “R033” : ’
1180 TXD$(8) = “W051” : ’
1190 TXD$(9) = “W052” : ’
1200 '
1210 '----------<Port Declaration>--------------
1220 OPEN “COM : 071NN” AS #1
1230 CLS
1240 '----------<Port Declaration>--------------
1250 OPEN “COM : 071NN” AS #1
1260 '
1270 PRINT #1, TXD$(2) : ’Reading−out net weight.
1280 LINE INPUT #1, B$
1290 E$ = MID$(B$, 1, 1)
1300 IF E$ = “E” THEN 1270 : ’If return is ERROR, Comand is transferred again.
1310 W$ = MID$(B$, 5, 8) : PRINT “Net Weight = “ ; W$
1320 '