Mitsubishi A1SD51S, Руководство по программированию

Страница: 129 / 688

6 - 11 6 - 11
MELSEC-Q
6 I/O Processing of Data Files
Example
1 ' Register data in a random file
2 '
10 OPEN "R-TEST.DAT" AS #1 : 'Generates R-TEST.DAT file and names it as
file number 1
20 FIELD #1,8 AS D$,30 AS H$,2 AS K$,4 AS W$ : 'Assigns the file buffer
30 R = 0
40 R = R+1 : 'Specifies the record number
50 INPUT "Date:";D1$
60 LINE INPUT "Item Name:";H1$
70 INPUT "Quantity:";K1
80 INPUT "Rate(%):";W1
90 LSET D$=D1$ : 'Writes data entered in line 50 into file buffer
100 LSET H$=H1$ : 'Writes data entered in line 60 into file buffer
110 LSET K$=MKI$(K1) : 'Writes data entered in line 70 into file buffer
120 LSET W$=MKS$(W1) : 'Writes data entered in line 80 into file buffer
130 PUT #1,R
140 INPUT "Continue? (Y/N)";Y$
150 IF Y$="Y" OR Y$="y" GOTO 40 : 'Repeats data input
160 CLOSE #1 : 'Closes the file
170 END
1 ' Read data from the random file written above
2 '
10 OPEN "R-TEST.DAT" AS #1 : 'Opens R-TEST.DAT file and names it as file
number 1
20 FIELD #1,8 AS D$, 30 AS H$, 2 AS K$, 4 AS W$ : 'Assigns the file buffer
30 FOR R=1 TO LOF(1) : 'Repeats at the last of random file (value
shown by the LOF function)
40 GET #1,R : 'Reads data from the random file
50 D1$=D$:H1$=H$ : 'Reads data from the file buffer
60 K=CVI(K$)
70 W=CVS(W$)
80 PRINT D$,H$;K;"quantity",W;"%" : 'Displays the read data
90 PRINT
100 NEXT R
110 CLOSE #1 : 'Closes file
120 END