技成培训网 技成学习APP 技成工具箱 技成企业服务

欢迎回到技成培训网

技成培训网

电工题库宝典

技成电工课堂

PLC练习题

技成PLC课堂

变频器故障查询

技成PLC学吧

伺服驱动故障查询

技成PLC网校

当前位置:技成首页 > 文章中心 > 技成百科 > s7-200 PCACCESS 与VB的通信

s7-200 PCACCESS 与VB的通信

刘玉蓉 发布于2014-12-12 17:21 777 0 标签:

PC_ACCESS里面有一个与VB通信的例程,里面介绍的不是很详细,现有如下疑问:
1.关于添加ITEM?  添加ITEM是往哪里添加,执行过这个操作以后是添加到PC_ACCESS里了,还是添加到VB里了?
2.VB按钮 cmdAddItem_Click()里代码(图片4)这句话
 Call MyItems.AddItems(2, ItemIDs, ItemClientHandles, MyItemServerHandles, Errors)    怎么理解?  它执行过后产生什么结果?
3.子过程Private Sub MyGroup_DataChange里的代码(图片8)
 TxtDataChange.Text = TxtDataChange.Text + 1   怎么理解?
 For i = 1 To NumItems
        If ClientHandles(i) > 0 And ClientHandles(i) < 3 Then
            " Values -> Values from read complete
            " Qualities -> Qualities of the values
            If Qualities(i) = 192 Then
                txtChangeVal.Item(ClientHandles(i) - 1).Text = ItemValues(i) " Write Value to Text Box
                txtChangeVal.Item(ClientHandles(i) - 1).BackColor = &HFFFFFF
            Else
                txtChangeVal.Item(ClientHandles(i) - 1).Text = GetQualityText(Qualities(i))
                txtChangeVal.Item(ClientHandles(i) - 1).BackColor = &H8080FF
            End If
        Else
            MsgBox "DataChange Item " + Str$(i) + " has invalid Client Handle ", vbCritical
        End If
    Next
Exit Sub


NumItems的值从何而来? ClientHandles(i)的值又从何而来?  我把这个范例的代码看了几十遍,总感觉没看明白,西门子给的注释太简单,给指点下,


图片说明: 1,001   2,004   3,005   4,008   5,002   6,003   7,006   8,007   9,009  

佳答案

1、添加ITEM是往VB中创建的group中添加你要通讯的变量。
2、Call MyItems.AddItems正是完成了往group中添加item的操作,你的程序中是添加了textItem1.text和textItem1.text两个文本框中的变量。
3、DataChange事件是OPC对象的一个事件,当控制器中所要访问的数据一旦发生改变时将会触发该事件,并将该数据自动读到文本框中。
4、NumItems是一个局部变量,表示ITEM的数量。ClientHandles(i)是OPC客户端句柄。
不是注释简单,是你没搞懂OPC和VB。建议你先看看OPC*。

若有收获,就点个赞吧!

文章来源于网络及文献如有侵权请联系站长
分享到:

微信扫一扫分享

阅读与本文标签相同的文章

相关推荐

最新文章 热门文章
最新课程 免费课程
PLC资料下载 电工电气资料下载
应用新秀
变频器故障代码查询APP
伺服故障代码查询APP
技成
手机APP
热门标签