VB6 读写西门子PLC

1. 先在本地模拟一个PLC

2. 打开PLC工具,操作值

 

vb代码去读取数值,用的是S7协议

 

翻一下之前的代码, 还有一个用Siemens OPC DAAutomation来读写的.

?

1 2 3 4 5 6 7 8 9 10 11 12

'AddServer    Set MyOPCServer = New OPCServer           ' Create OPCServer Object    Call MyOPCServer.Connect("S7200.OPCServer")  ' Disconnect from OPC Server      'AddGroup    Set MyGroups = MyOPCServer.OPCGroups        ' Get OPCGroups Collection Object from MyOPCServer         MyGroups.DefaultGroupIsActive = 500   ' Set Default Group Update Rate to 500 ms    MyGroups.DefaultGroupIsActive = False ' Set Default Group Active State to Inactive    Set MyGroup = MyGroups.add("Group1")   ' Add a new Group to the Group Collection    ' Set Group Properties    MyGroup.IsSubscribed = True

　　查了一下OPC的资料,原来是一个通用的PLC的驱动, 类似数据库的ODBC,

从这个意义上来讲，做MIS时，下面的PLC 种类众多时，用OPC是好的选择, 但只有一两个PLC就没必要了.