文档介绍：2
2
2
2
电子工程师计算机应用 V ol . 29 No. 11 2003
使用范围:只用于运行环境,组态环境中无效。 Dim Name2 As String
语法形式: SetValueFromName ( Name as String , Dim MCGSWord1 As Variant
Value as Variant) as Long。 Dim MCGSWord2 As Variant
Name1 = ”Name1”
参数说明: Name ,字符数,数据对象的名称; Val
Name2 = ”Name2”
ue ,Variant 型,存放要写入的数据对象的当前值。
DatObj. GetValueFromName Name1 ,MCGSWord1
方法 2 : GetValueFromName
/ / 获取 MCGS 中的 Name1 的值
用途根据数据对象的名称读取数据对象的当前
: Data = MCGSWord
值。 MCGSWord = Data2
使用范围:只用于运行环境,组态环境中无效。 DatObj. SetValueFromName Name2 ,MCGSWord2
语法形式: GetValueFromName ( Name as String , / / 写入 Data2 值
Value as Variant) as Long。⋯⋯
参数说明:Name , 字符数,数据对象的名称; Val End Function
ue , Variant 型,存放读取的数据对象的当前值。 4 结束语
下面的程序是读写 MCGS 实时数据库的两个方
本程序的设计思想是首先使用实现上下位
法示例。: , VB
机的串口通信然后使用的自动化实现
Dim DatObj As Object / / 定义 DatObj 为对象, , MCGS OL E
Private Sub Form-Load( ) 对 MCGS 实时数据库的数据操作, 从而最终实现
On Error Resume Next MCGS 组态软件下嵌入式串口通信。使用这种设计方
Set DatObj = GetObject ( ,”McgsRun. DataCentre”) 法,作者编写了一个受 MCGS 控制的精溜塔液位循环
If Err Then 检测控制系统,并获成功。
MsgBox(”请先启动 MCGS 运行环境!”)
参考文献
End

End If 1 Microsoft Corporation. 中文 Visual Basic 5. 0 程序员指南. 微
End Sub 软中国有限公司译. 北京:科学出版社龙门书局,1997
从的实时数据库中读取名为的数据给
/ / MCGS , Namel 2 李玉东,李正,李雷. Visual Basic 6. 0 中文版控件大全.
。把中的写入的实时数据库中
Data1 VB Data2 MCGS 北京:电子工业出版社,2000
的数据。
Name2 3 张常年,郭书军,左歧. 计算机通讯与工业控制. 北京:化
( )
Private Sub Read-Wri