![Fuji Electric FRENIC-VG Series Скачать руководство пользователя страница 52](http://html1.mh-extra.com/html/fuji-electric/frenic-vg-series/frenic-vg-series_user-manual_2341868052.webp)
5-32
5.2.7.4 Program
example
This program is written in Microsoft QuickBASIC (MS-DOS QBasic), and runs in accordance with
Fuji general-purpose inverter protocol.
100
'FGI-Bus Sample Program(MS-DOS QBasic)
110 '
120
OPEN "COM1:38400,E,8,1" FOR RANDOM AS #1
'ComPort:BaudRate,Parity,DataBits,StopBits
130 soh$ = CHR$(1)
'FunctionCode H34, H36, H35, H37
140
etx$ = CHR$(3)
150
enq$ = CHR$(5)
160
ack$ = CHR$(6)
170
nak$ = CHR$(&H15)
180
esc$ = CHR$(&H1B)
190 CLS
200 '
1000 PRINT "Select Operation 1:Read,2:Write"
1010 key$ = INKEY$
1020 IF key$ = "1" THEN 2000
1030 IF key$ = "2" THEN 3000
1040 GOTO
1010
1050 '
2000 '==== Read(F03) ====
'Refarence User's Manual 6-19
2010 cmd$ = soh$
'SOH
2020 cmd$ = cmd$ + "01"
'Address(01 - 31) FunctionCode: H31
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:1500r/m) ====
'Refarence User's Manual 6-19
3010 cmd$ = soh$ 'SOH
3020 cmd$ = cmd$ + "01"
'Address(01 - 31) FunctionCode: H31
3030 cmd$ = cmd$ + enq$
'ENQ
3040 cmd$ = cmd$ + "W"
'Command(R,W,A,E)
3050 cmd$ = cmd$ + "F03"
'Code(F00...)
3060 cmd$ = cmd$ + " 05DC"
'Data(0000 - FFFF)
3070 cmd$ = cmd$ + etx$
'ETX
3080 '
4000 '==== Send ====
4010 buf$ = cmd$
4020 GOSUB
calcbcc
4030 cmd$ = cmd$ + bcc$
'Add BCC
4040 '
4050 PRINT
#1,
cmd$
'Send
4060 '
5000 '==== Receive ====
5010 recv$ = INPUT$(1, #1)
'Receive
5020 IF recv$ = soh$ THEN answer$ = ""
5030 answer$ = answer$ + recv$
5040 IF recv$ <> etx$ THEN 5010
5050 answer$ = answer$ + INPUT$(2, #1)
5060 PRINT "Received Data:"; answer$
5070 '
5080 PRINT "Hit any key (ESC -> End)"
5090 key$ = INKEY$
5100 IF key$ = "" THEN 5090
5110 IF key$ <> esc$ THEN 1000
5120 CLOSE
#1
5130 END
5140 '
6000 calcbcc:
6010 b = 0
6020 c = 2
6030 char$ = MID$(buf$, c, 1)
6040 b = b + ASC(char$)
'Add
6050 c = c + 1
6060 IF char$ <> etx$ THEN 6030
6070 b = b AND &HFF
6080 bin = INT(b / 16)
6090 GOSUB bintoasc
'BCC1(8bit High)Character
6100 bcc$ = ascii$
6110 bin = b MOD 16
6120 GOSUB bintoasc
'BCC2(8bit Low)Character
6130 bcc$ = bcc$ + ascii$
'BCC1+2(Character)
6140 RETURN
6150 '
7000 bintoasc: 'Digit"0 - 15" to Character"0 - F"
7010 IF bin < 10 THEN ascii$ = CHR$(ASC("0") + bin) ELSE ascii$ = CHR$(ASC("A") + bin - 10)
7020 RETURN
Содержание FRENIC-VG Series
Страница 1: ...For the STACK type User s Manual User s Manual Option Edition 24A7 E 0045 3 ...
Страница 2: ......
Страница 3: ...High Performance Vector Control Inverter User s Manual Option Edition ...
Страница 155: ...6 5 SX Bus Interface Card 6 79 Chap 6 CONTROL OPTIONS Figure 6 5 5 ...
Страница 156: ...6 80 Basic Connection Diagram Figure 6 5 6 ...
Страница 203: ...6 6 High Speed Serial Communication Capable Terminal Block 6 127 Chap 6 CONTROL OPTIONS Figure 6 6 3 ...
Страница 234: ...6 158 6 7 3 External dimension drawing 17 Unit mm Figure 6 7 5 Option PCB Outline Drawing Tightening torque 0 4 N m ...
Страница 344: ......
Страница 346: ...For the STACK type User s Manual User s Manual Option Edition 24A7 E 0045 3 ...