FINS 帧分为FINS指令帧和FINS响应帧两种形式。指令帧在发送FINS指令时使用,响应帧则在接收到FINS指令后对其返回响应时使用。它们都是由一个 FINS报头(存储传输控制信息)、一个FINS指令域(存储一个FINS指令)以及一个FINS参数/数据域(存储指令参数和发送/响应数据)所组成的。响应帧FINS指令域的内容与所接收到的指令帧的FINS指令域相同。具体结构见图3、图4。
Private Sub Command1_C1ick()FinsMsg1.sendFinsCommand0,19,0,"0101820064000096"End Sub
在"FinsMsg1"中的"OnReceive"事件中添加如下代码:
Private Sub FinsMsg1_OnReceive ()
Dim net As Integer,node As Integer,unit AsInteger
Text1.Text=Fins Msg1.receive Message(net,node,unit,vbString)
End Sub