单片机应用中AD转换器件的选择.pdf

电子工程师　　　　　　　　　　　　计 算 机 应 用 　　　　　　　　　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 实现上下位 法示例。 机的串口通信 ,然后 ,使用 MCGS 的 OL E 自动化实现 Dim DatObj As Object 　/ / 定义 DatObj 为对象 Private Sub Form-Load ( ) 对 MCGS 实时数据库的数据操作 , 从而最终实现 　On Error Resume Next MCGS 组态软件下嵌入式串口通信。使用这种设计方 ( ) 法 ,作者编写了一个受 MCGS 控制的精溜塔液位循环 　Set DatObj = GetObject , ”McgsRun. DataCentre” 　If Err Then 检测控制系统 ,并获成功。 ( ) 　　MsgBox ”请先启动 MCGS 运行环境 !”