FujiFilm FRENIC5000G11S Series, Technical Information

Page: 122 / 236

2-74
Chapter 2
4. Standard RS-485 Interface
4.11.3 Example of a control program
Sample program of QBasic (for MS-DOS) for reading/writing "F03: Maximum frequency 1" is shown as follows.
[QBasic is in ¥Other¥Oldmsdos¥ in the CD-ROM of Microsoft Windows 95.]
100 'SAMPLE PROGRAM(MS-DOS QBasic)
110 OPEN "COM1:9600,N,8,2" FOR RANDOM AS #1 '8BITS,2BITS,NONE
120 SOH$ = CHR$(&H1) 'ASCII SET
130 ETX$ = CHR$(&H3)
140 ENQ$ = CHR$(&H5)
150 ACK$ = CHR$(&H6)
160 NAK$ = CHR$(&H15)
170 ESC$ = CHR$(&H1B)
180 CLS
1000 PRINT "SELECT OPERATION 1:READ,2:WRITE"
1010 KEY$ = INKEY$: IF KEY$ = "" THEN 1010
1020 IF KEY$ = "2" THEN 3000
1030 '
2000 '==== READ(F03) ====
2010 CMD$ = SOH$ 'SOH
2020 CMD$ = CMD$ + "01" 'ADDRESS(01 - 31)
2030 CMD$ = CMD$ + ENQ$ 'ENQ
2040 CMD$ = CMD$ + "R" 'COMMAND(R,W,A,E)
2050 CMD$ = CMD$ + "F03" 'CODE(F00...)
2060 CMD$ = CMD$ + " 0000" 'DATA(0000 - FFFF)
2070 CMD$ = CMD$ + ETX$ 'ETX
2080 GOTO 4000
2090 '
3000 '==== WRITE(F03:50Hz) ====
3010 CMD$ = SOH$ 'SOH
3020 CMD$ = CMD$ + "01" 'ADDRESS(01 - 31)
3030 CMD$ = CMD$ + ENQ$ 'ENQ
3040 CMD$ = CMD$ + "W" 'COMMAND(R,W,A,E)
3050 CMD$ = CMD$ + "F03" 'CODE(F00...)
3060 CMD$ = CMD$ + " 0032" 'DATA(0000 - FFFF)
3070 CMD$ = CMD$ + ETX$ 'ETX
3080 '
4000 '==== SEND ====
4010 BUF$ = CMD$
4020 GOSUB CALCBCC
4030 CMD$ = CMD$ + BCC$ 'BCC
4040 '
4050 PRINT #1, CMD$ 'SEND
4060 '
4100 '==== RECV ====
4110 RECV$ = INPUT$(1, #1) 'RECV
4120 IF RECV$ = SOH$ THEN ANSWER$ = ""
4130 ANSWER$ = ANSWER$ + RECV$
4140 IF RECV$ <> ETX$ THEN 4110
4150 ANSWER$ = ANSWER$ + INPUT$(2, #1)
4160 PRINT "RECEIVED DATA:"; ANSWER$
4170 '
4180 PRINT "HIT ANY KEY (ESC -> END)"
4190 KEY$ = INKEY$: IF KEY$ = "" THEN 4190
4200 IF KEY$ <> ESC$ THEN 1000
4210 CLOSE #1
4220 END
4230 '
5000 CALCBCC:
5010 B = 0: C = 2
5020 CHAR$ = MID$(BUF$, C, 1)
5030 B = B + ASC(CHAR$) 'ADD
5040 C = C + 1
5050 IF CHAR$ <> ETX$ THEN 5020
5060 B = B AND &HFF
5070 BIN = INT(B / 16): GOSUB BINTOASC: BCC$ = ASCII$ 'BCC1
5080 BIN = B MOD 16: GOSUB BINTOASC: BCC$ = BCC$ + ASCII$ 'BCC2
5090 RETURN
5100 '
5110 BINTOASC:
5120 IF BIN < 10 THEN ASCII$ = CHR$(ASC("0") + BIN) ELSE ASCII$ = CHR$(ASC("A") + BIN - 10)
5130 RETURN
Chapter02J(P44˜74).p65
07.8.9, 12:27 Page 74
Adobe PageMaker 6.5J/PPC