VB与MCGS实现数据交换 点击：5737 | 回复：29
发表于：2004-05-10 09:06:00
5楼
邮件已经发出，是通过OLE自动化,mcgs和vb进行数据交互的工程样例和vb源代码。
请到此网址, 免费下载:
http://www.hmitech.com/support/McgsFunctionExamples/index.htm
Mcgs和Vb间进行数据交换的工程样例1:
通过DDE进行数据的交换
DDE数据交换概念 DDE数据交换MCGS例程 DDE数据交换VB例程
---------------------以下信息来自《mcgs高级开发指南》，如果大家有发行的光盘，安装高级开发包后，就可以看到：
通过OLE自动化和其它应用程序交互
MCGS组态软件本身的自动化功能可以帮助用户在其它应用程序中很方便地操纵MCGS组态软件的运行。比如说，用户可以在一个程序里指挥MCGS运行环境打开某个窗口、执行某个策略、或者向某个设备发出命令等等。基本上，在MCGS组态软件中用户脚本程序可以完成的功能也都可以通过MCGS组态软件的自动化功能来完成。
MCGS把其核心作为一个对象包装起来，把MCGS的大多数功能作为对象的属性和方法暴露出来，使其它的应用程序通过OLE自动化来操作MCGS，在Visual Baisc、Excel、Access和、Delphi中都可以通过OLE自动化来取得MCGS实时数据库对象，编程操作MCGS提供的属性和方法。
发表于：2004-05-18 10:38:00
10楼
在Visual Basic中操作MCGS:
假定MCGS运行环境正在运行一个工程，且该工程有20个数值型数据对象，其名称为Dat01到Dat20。要求用VB编制一个应用程序，该程序的界面如下图所示，按“从MCGS读数据”按钮时，能把MCGS中Dat01到Dat10的值读回显示在左列文本框内，按“向MCGS写数据”按钮时，能把右列文本框内输入的数据写到MCGS的Dat11到Dat20数据对象中。
Dim DatObj As Object
Private Sub Form_Load()
On Error Resume Next
Set DatObj = GetObject(, "McgsRun.DataCentre")
If Err Then
MsgBox ("请先启动MCGS运行环境!")
End
End If
End Sub
Private Sub Cmd_Read_Click()
Dim msg As String, tt As Variant
For i = 1 To 10
msg = "Dat" + Format$(i, "00")
DatObj.GetValueFormName msg, tt
Txt(i) = Format$(tt)
Next i
End Sub
Private Sub Cmd_Wirte_Click()
Dim msg As String, tt As Variant
For i = 1 To 10
msg = "Dat" + Format$(i, "00")
tt = Val(Txt(i + 10))
DatObj.SetValueFormName msg, tt
Next i
End Sub
在Assess、Excel中都有对应的VB程序可以编程，实现对MCGS的各种操作，其方法和在Visual Basic中基本相同，可参考上面的代码进行。
GetValueFormName,SetValueFormName
注意这两个方法名字写错了,要把form 改为from.
一个小小的发现,还请mcgs在5.6版把它改过来!!
发表于：2004-05-27 13:40:00
11楼
非常简单的dde连接模式：
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Text1.LinkTopic = "McgsRun|DataCentre"
Text1.LinkItem = "Data1"
Text1.LinkMode = 1
End Sub
Private Sub Text1_LinkError(LinkErr As Integer)
MsgBox "Please run the McgsRun.exe"
End Sub
Private Sub Text1_LinkNotify()
MsgBox "Please run the McgsRun.exe"
End Sub
热门招聘
相关主题
- 求助：WinCC运行系统许可证过...
[12696] - 求SIMADYN D 软件说明书[2442]
- TRACE MODE®的设备支持[2987]
- 求助 SIMATIC Prosave V9.0...[2181]
- ODBC数据库函数的使用[2189]
- 232串口与485串口通信程序有...[2100]
- 一个圆“指示灯”在WINCC下如何...[4744]
- PLC编程实例[13876]
- OPC Client开发体会（转自我的...[2282]
- 如何打开后缀为EXB的文件[2944]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
