VB写OPC客户端

VB写OPC客户端！（1）~~~~~
2008-01-18 13:06
今天在找OPC客户端，试下自己的OPC服务器是不是好用！~结果搜到这个咯，就拿来给大家看看！~
至此：OPC连接就成功了，我们可以对OPC进行读与写的操作了。

VB写OPC客户端！（2）~~~~~
2008-01-18 13:07
VB写OPC客户端！（3）~~~~~ 2008-01-18 13:09
VB写OPC客户端！（4）~~~~~
2008-01-18 13:09
这是一个拔号完毕后返回的数据进行OPC传递的程序。

包含解包过程，
Private Sub showSuccess(msg As String)
Dim location As String
Dim nowTime As String
Dim logStr As String
Dim Value() As String
Dim ii, temp As Integer
Dim isPack As Boolean
Dim sHead, sDelimited, sTail As String
location = xProfile.GetValue(WatchPoint(nowRunID), "LOCATION")
nowTime = Now
logStr = "拔" & location & "取数成功" & msg
xLog1.log logStr
logStr = " " & msg
xLog2.log logStr '记录数据
'数据上传
'如果有包结构,则显示包结构,
isPack = xProfile.GetValue(WatchPoint(nowRunID), "ISRECHEAD")
If WatchPointRBegin(nowRunID) < 0 Then Exit Sub
If isPack Then
sHead = xProfile.GetValue(WatchPoint(nowRunID), "RECHEAD")
sDelimited = xProfile.GetValue(WatchPoint(nowRunID), "RECDELIMITER")
2008-01-22 11:35
今天又一个要合作下的公司的一个软件员问我VB怎么操作EXCEL,帮他找了点资料就顺便发出来了!~
3、在程序中操作EXCEL表常用命令：
关于VB与EXCEL之间的操作(2)
2008-01-22 11:36
二、 EXCEL的宏功能：
EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。

其中，EXCEL 有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。

它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。

但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和
xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。

三、 VB与EXCEL的相互勾通：
充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：
在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。

VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL 对象正在运行，应该禁止其它程序的运行。

如果此标志文件不存在，表明EXCEL 对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。

四、举例
1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Ｃommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。

然后在其中输入
2、在Ｄ盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：
4、运行VB 程序，点击EXCEL 按钮可以打开EXCEL 系统，打开EXCEL 系统后，VB 程序和EXCEL 分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB 程序中重复点击EXCEL 按钮时会提示EXCEL 已打开。

如果在EXCEL 中关闭EXCEL 后再点EXCEL 按钮，则会重新打开EXCEL 。

而无论EXCEL 打开与否，通过VB 程序均可关闭EXCEL 。

这样就实现了VB 与EXCEL 的无缝连接。

AB PLC
通过OPC 方式和VB 客户端的通讯 收藏帖子 举报本帖 1楼 姜寒伟
发新帖
回复
删除 编辑
姜寒伟 查看档案 加为好友
1、授权
AB PLC 通过 OPC 方式和 第三方软件进行通讯，必须要先经过授权。

在当前使用的电脑上安装了AB PLC 相关的软件后，可以在如下图所示的菜单路径下找到“Move Activation – 32 Bit”的菜单项。

此主题相关图片如下，点击图片看大图：
点击运行会弹出如下对话框：
此主题相关图片如下，点击图片看大图：
现在将授权软盘插入到软驱，点击“OK”按钮将授权文件拷贝到电脑硬盘上，如果授权成功，会弹出如下对话框，以确认RSLINX.EXE应用软件已经授权成功。

此主题相关图片如下，点击图片看大图：
2、RSLinx.EXE软件的设置。

在设置好RSLinx.exe应用软件的授权后，运行RSLogix 500软件，设置好AB PLC 的串口通讯参数或网口通讯参数，下载到PLC。

测试运行确保PLC参数设置正确，PLC能和编程软件已经能够正确通讯。

然后运行RSLinx.软件，选择Communictions-RSWho菜单项，如果有能和当前上位机正常通讯的PLC将会显示在如下的窗体列表里：
此主题相关图片如下，点击图片看大图：
在列表里选中要通讯的PLC，选择Station – Data Monitor的菜单项，检查是否已经能够将数据正确采集上来。

此主题相关图片如下，点击图片看大图：
3、OPC服务器的配置
在确认RSLinx软件已经能够正确和PLC进行通讯后，就可以开始配置OPC服务器了。

首先必须先打开一个DDE/OPC工程，可以通过选取File – Open Project选项，来通过“Open DDE Projiect”对话框，选取打开一个已经建立好的DDE工程。

此主题相关图片如下，点击图片看大图：
如果还没有建立过DDE/OPC工程，则会弹出如下对框，要求用户输入要建立的工程名，这样建立好的工程名就添加到了工程列表框中。

此主题相关图片如下，点击图片看大图：
打开一个OPC工程后，就可以正式开始配置OPC服务器了，通过选取
DDE/OPC-Topic configuration菜单项，建立一个OPC服务主题。

在弹出的如下窗体中，选取要配置成OPC服务器的对应选项，点击“New”按钮，编辑一个OPC 服务器主题名称（可取任意名称）。

此主题相关图片如下，点击图片看大图：
切换到“Data Collection”页，通过Processer Type下拉框，选择正确的PLC 的处理器类型。

此主题相关图片如下，点击图片看大图：
切换到“Advanced Communication”页，通过Comunication Driver下拉框，选择和PLC的通讯方式。

此主题相关图片如下，点击图片看大图：
设置好OPC服务器后，点击“Done”按钮，确认关闭窗口。

配置好一个服务器后，在如下图的列表中选定刚才配置过的PLC选项，选取
Eidt-Copy DDE/OPC Link菜单项，打开Copy DDE/OPC Link窗口可以查看已经正确配置好的OPC数据项。

此主题相关图片如下，点击图片看大图：
目前为止OPC Server已经正确配置。

可以通过vb客户端的OPC设备构件，进行数据的连接。

VB客户端连接RSLinx
首先我们为了调试方便，先编写一个PLC程序如下图：
此主题相关图片如下，点击图片看大图：
将程序下载进PLC中并让PLC在运行状态。

VB客户端是通过KEPServerEx这个服务器端的动态链接库编写的，所以在运行vb 客户端程序前，必须安装KEPServerEx服务器端，使vb能够调用它所提供的DLL。

安装KEPServerEx服务端如下：
安装完毕后，运行vb工程文件如图：
编译程序并运行：
此主题相关图片如下，点击图片看大图：
打开后程序运行如下：
点击List OPC Server列出所有OPC Server并选择RSLinx OPC Server，点击Connect连接RSLinx服务器：
在Add Group to OPC Server框中加入Group Name组名 1、更新数据速率等选项后，点击Add Group，如下图
这时就可以添加标签了，标签对应着OPC Server的路径，路径可以由RSLinx中的，copy DDE/OPC LINK中看到。

添加好后如下图：
此主题相关图片如下，点击图片看大图：
这样就可以通过vb客户端软件上的 Current value读到这个变量的值，通过Write value来写这个变量。