西门子6FC5410-0AY01-0AA1

六盘水西门子PLC中国授权代理商

----------------------------------------------------------------------------------

凡在本公司购买的产品，保证全新，假一罚十，可签订正式销售合同，本公司主要经营S7-200,S7-300，S7-1200，S7-400 PLC模块，触摸屏，通讯电缆，编程电缆，DP接头，LOGO,模快.SMART模块,软启动器,伺服电机,变频器等产品,西门子保内全新原装产品‘质保一年。一年内因产品质量问题免费更换新产品；不收取任何费。

六盘水西门子PLC中国授权代理商

我公司对网上交易的客户流程如下几点：

一、产品报价

我们在收到客户给出型号、参数后，会在短时间内给您的型号、参数，进行报价，并配合客户工程师确认参数无误：是否可以安装，兼容等项目，确保万无一失。

二、结算付款

请按照我司提供的付款方式支付费用，并尽可能通知我们，以便我们及时将货品寄送给您。

三、产品运输

默认为快递方式运输（德邦），在发货后会委派专人协助跟踪，将货运单号给客户，以便客户及时查收，（说明：打包时会用气泡垫或者海绵之类的东西，把货物包裹好，以防损坏。）

四、保修服务

我们会根据西门子原厂保修标准执行，对所售的货品保修一年，以及在货品一周后，进行回，及时跟踪设备运行状态，以便我们更好的为您提供优质的服务。

西门子竭诚为您服务

产品品牌：siemens/西门子 产品规格：全新原装

产品质量：质量保证 产品价格：价格优势

VB与西门子S7－300的OPC通信

一、通过STEP7软件建立一个新项目OPC,在项目中添加SIMATIC 300站和一个PC 站，其中PLC站中*四个槽安装的CP343模块。PC站的**个槽 为OPC SERVER ,*三个槽为 IE GENERAL，然后在NETPRO下配置PLC和PC站的网络连接：（注意：是在PC站上新建的网络连接，连接类型选的S7连接）

二、通过station configurator软件 配置本机的PC站（要和STEP7中配置的相同），然后把PLC和PC站都下载下去（注意：下载PC站的时候要把S7ONLINE （STEP7）--->；PC internal(local)）。

三、打开OPC Scout,（Start>；SIMATIC>；SIMATICNet>；OPC Scout）， 双击&ldquo；OPC

SimaticNet&rdquo；在随之弹出的&ldquo；ADD Group&rdquo；对话框中输入组名，本例命名为&ldquo；OPC&rdquo；。

    点击OK 确认 ；双击已添加的连接组（OPC），即弹出&ldquo；OPC Navigator&rdquo；对话框，此窗口中显示 所有的连接协议。双击&ldquo；S7&rdquo；，在PC Station 组态NetPro 中所建的连接名会被显示（S7 connection_1）。双击此连接，即可出现有可能被访问的对象树（objects tree），在PLC

CPU 中已存在的DB 块也会出现以上完成的OPC SERVER部分的配置。

四、用VB编写了OPC客户端应用程序。主要程序代码如下:

在VB中引在VB中还要引用 siemens opc daautomation 2.0

(1) 连接OPC服务器

Dim WithEvents MyOPCServer As OPCServer ‘定义服务器对象变量MyOPCServer

Dim WithEvents MyOPCGroup As OPCGroup ‘定义OPC组对象变量MyOPCGroup

Set MyOPCServer = New OPCServer

MyOPCServer.Connect " OPC.SimaticNET" ‘连接SIMATICNET 的OPC服务器

(2) 添加OPC组对象

Set MyOPCGroup=MyOPCServer.OPCGroups.Add("Group1")

‘添加OPC组对象

MyOPCGroup.IsSubscribed= True

‘设置该组数据为后台刷新

MyOPCGroup.IsActive = True

‘设置该组为激活状态

MyOPCGroup.UpdateRate=1000

‘设置数据刷新时间为1000

(3) 添加数据项

Dim abItemIDs() As String ‘项标识符

Dim abClientHandles() As Long ‘客户端句柄

Dim abServerHandles() As Long ‘服务器端句柄

Dim abErrors() As Long

Dim i As Long

ItemCount=3

abItemIDs(1) = " S7:[S7 connection_1]IB1"

abItemIDs(2) = " S7:[S7 connection_1]MB1"

abItemIDs(3) = " S7:[S7 connection_1]QB1"

for i=1 t0 3

abClientHandles(i) = i ‘给客户端句柄赋值

Next

MyOPCGroup.OPCItems.AddItems ItemCount, abItemIDs, abClientHandles, abServerHandles, abErrors ‘添加数据项操作

(4) 同步数据读写

OPC数据存取有同步方式和异步方式两种。异步读写数据复杂，需要与事件结合使用，与同步相比速度慢但准确性高。同步读写数据简单，直接使用OPCItem的方法即可。

Dim One As OPCItem

Dim Index As Long

‘Index为标签顺序号

Dim OneRead As String

Dim Xie As String

Set One = MyOPCGroup.OPCItems(Index)

One.Read OPCCache

OneRead = One.Value ‘读数据

MyOPCGroup.SyncWrite ItemCount, ServerHandles, valuess, Errors ‘同步写数据

MyOPCGroup.SyncRead OPCCache, ItemCount, ServerHandles, ReadValue, Errors ‘同步读数据

One.Write (Xie) ‘写数据

    若只读取数据，可以使用DataChange事件，当控制器中所要访问的数据一旦发生改变时将会触发该事件，并将该数据自动读到TxtValue文本框。

Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date) ‘自动刷新数据

Dim i As Long

For i = 1 To NumItems

txtValue(ClientHandles(i)) = ItemValues(i) ‘获取项的值

txtTime(ClientHandles(i)) = TimeStamps(i) ‘获取项的时间戳

txtQuantity(ClientHandles(i))=GetQualityString(Qualities(i)) ‘获取项的品质

Next i

End Sub

(5) 断开OPC服务器

MyOPCServer.OPCGroups.RemoveAll ‘移除所有OPC Group，空出资源

Set MyOPCGroup = Nothing

MyOPCServer.Disconnect ‘断开连接