关于组态王同VB间的DDE连接

1、关于组态王同 VB 间的 DDE 连接 以下通过一个用 VB 编写的简单的记时器程序来说明组态王同 VB 间的 DDE 连接。 一 VB 作为服务器向组态王提供数据VB 程序1 运行 Visual Basic ，新建工程文件 vbddesvr.vbp 。将窗体 Form1 的 LinkMode 属性设 置为 1, LinkTopic 属性设置为 FormTopic (任意名称均可) 。2. 在窗体Forml中，放入两个文本框，其文本框Name属性分别命名为 TxtRegister (用于向组态王提供计数器)和 TxtInterval (用于设置计数器频率) 。3. 在窗体 Form1 中，放入

2、一个 Timer 控件 Timer1 。4. 输入如下代码：Private Sub Form_Load()TxtRegister.Text = 0Timer1.Interval = 200TxtInterval.Text = 200' 初期设定End SubPrivate Sub Timer1_Timer()TxtRegister.Text = CStr(CInt(TxtRegister.Text) + 1)If CInt(TxtRegister.Text) >= 1000 ThenTxtRegister.Text = 0End If' 计数器记到 1000 时，重新从

3、0 开始End SubPrivate Sub TxtInterval_Change()Timer1.Enabled = FalseTxtRegister.Text = 0Timer1.Interval = CInt(TxtInterval.Text) '设定计数频率Timer1.Enabled = TrueEnd Sub5. 生成 vbddesvr.exe 文件组态王设定1 .在“组态王”中定义 DDE设备在工程浏览器中，从左边的工程目录显示区中选择“设备DDE”，然后在右边的内容显示区中双击“新建”图标，则弹出“设备配置向导”，按向导逐步配置 DDE设备的各项。配置结果如下：定义I/

4、O变量时要使用定义的连接对象名“VBDDESVR(也就是连接设备名)，在数据交换方式一项，选择“标准WINDOWDDE交换”。(关于高速块交换方式的VB编程较为复杂，需要组态王的服务程序开发包)。2 .在工程浏览器中定义新变量，设为vb_register ，连接设备为 VBDDESVR项目名为服务器程序中提供数据的控件名，此处是文本框Txtregister , “变量属性”对话框如下：同样定义新变量 vb-interval, 项目名设为 Txtinterval。3.在开发画面上放入一个文本对象“#”，以“模拟值输出”和“模拟值输入”的画连接 vb-interval。先运行vbddesvr.ex

5、e,再运行组太王后，适当调节两个画面的大小和位置，显示如下:也组态王运行系统1- 口|其|圜面特殊调试关于记数器364计数器036记数频率200记数频率0200组太王的计数器的数值随着右面 VB程序的计数器的数值不断变化而变化。同样，在左面的计数器和记数频率中写入适当数值，可以对右面VB程序的计数器初值和频率进行设定。组态王作为服务器向 VB提供数据(1)提供从DDE设备采集来的数据当在组态王中安装一个DDE设备时，这个 DDE设备是作为服务器向组态王提供数据的，而当其他客户程序需要同样数据时，即可向这个DDE设备源程序索取，亦可向组态王索取。当向组态王索取时，组态王成为服务器。仍然以上面的例

6、子来说明这一过程。新建工程文件 vbddeclnt.vbp ,在窗体Forml中，放入两个文本框，其Name属性分别命名为TxtRgFrmV(用于向组态王索取计数器数据)和TxtlntIFrmV (索取计数器频率)<输入如下代码：Private Sub Form_Load()TxtRgFrm V.Lin kTopic = "view|tag name" '设定连接程序名和题目名TxtRgFrmV.Li nkltem = "TxtRegister"'设定连接项目名TxtRgFrmV.Li nkMode = 1'设定连接方式（1

7、：自动）TxtI ntlFrm V.Lin kTopic = "view|tag name"TxtI ntlFrmV.Li nkltem = "TxtI nterval"TxtI ntlFrmV.Li nkMode = 1End Sub生成 vbddeclnt.exe 后，先运行vbddesvr.exe，再运行组态王运行画面，最后运行vbddecl nt.exe，适当调节三个画面的大小和位置，显示如下：詔组态王运行系统 1XII创面特殊调试关于计数器0070记数频率0200-lalxl-lalxl组态王的数据转送给了vbddeclnt。虽然在 vbddesvr.vbp的代码中，文本框的LinkMode属性设为自动，但如果想从客户程序vbddeclnt来更改服务器组态王的数据源，仍需另外执行linkpoke方法（关于linkpoke方法请参照 VB手册）。（2）“允许DDE连接”选项当组态王连接的是 DDE设备以外的其他设备（如：板卡，串口等）时，在变量定义