| |
---|---|
(点击题目可以在互联网中搜索该题目的相关内容) 日期:2007-6-12 0:42:35 来源: 作者: 点击: | |
根据微软权威的软件开发指南MSDN(Microsoft Developer Network)的定义,ActiveX是Micrsoft适应组件对象模型(Component Object Model,COM)开发技术提出的。核心COM允许应用程序之间互相通信和使用彼此的功能,组件对象模型起源于面向对象的编程(Object- oriented programming,OOP)的概念,并把这个模型延伸到操作系统,从而方便任何COM程序对象与其他需要的接口的COM对象通讯。 目前,在工业控制FA领域,实现人机交互和数据备份的一般选择工业计算机及组态软件。笔者在南京虹梅居住区中水处理项目管理计算机中,选用了Visal Basic6.0作为开发工具,结合三菱电机发布的MX-Component 控件,方便的实现了计算机与三菱PLC的通讯。由于采用三菱MX-Component 控件方面的文献资料比较少,笔者茁文,希望大家指正。 SW3D5C-ACT-E软件目前版本3.0,支持OS有98,2000,XP等。平台支持VB,VC,VB.NET,VC.NET ,LABVIEW,BC等开发工具。经过安装SW3D5C-ACT-E,系统OCX控件列表内就有相应的驱动OCX: 一 系统组成构架: 中水处理系统组成 系统描述:由上位计算机,1号从站,2号从站。计算机和PLC之间通过RS-232通讯,直接在PLC编程口读取数据。 1号站配置: 电源模块: Q61P-A2 主基板: Q38B CPU模块: Q01CPU CCLINK主站:QJ61BT11 本地输入模块:QX40 本地输出模块:QY40 模拟量模块: Q68ADI 采集PH,浊度等信号 模拟量输出: Q64DA 控制压滤机,风机,提升泵 2号站配置: 电源模块: Q61P-A2 主基板: Q35B CPU模块: Q01CPU CCLINK主站:QJ61BT11 本地输入模块:QX40 本地输出模块:QY40 模拟量模块: Q68ADI 3-12号站 远程输入输出:AJ65SBTB1-16D,AJ65SBTB1-16T 分别采集远程水泵运行状态和监视设备。 系统运行登陆画面 编写登陆程序。 标准语法:Open (Communication line opening) (1) Applicable ACT controls This function is available for all ACT controls. (2) Feature Opens the communication line. (3) Format R R Visual Basic , Visual C++ ,VBA : lRet = object.Open() LonglRetReturned valueOutput VBScript : varRet = object.Open() VARIANTvarRetReturned value (LONG type)Output (4) Explanation The line is connected on the basis of the value set to the property for Open method. (5) Returned value Normal termination: 0 is returned. Abnormal termination: A value other than 0 is returned. (Refer to Chapter 6 ERROR CODES.) 编写程序: Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then '登录失败,退出应用程序 End End If Unload fLogin frmSplash.Show '////////////////////////// Open App.Path & "\wecom.txt" For Append As #1 Print #1, Format(Date) + " " + Format(Time) + "系统开启" '////////////////////////// frmSplash.Refresh Load frmMain IRet = frmMain.Q1.Open '///////////////////////// Print #1, Format(Date) + " " + Format(Time) + "准备与PLC通信" '///////////////////////////// If IRet <> 0 Then Print #1, Format(Date) + " " + Format(Time) + "无法链接到PLC" Close #1 '//////////////////////////// MsgBox "无法链接到PLC,请检查硬件设置!" ex: End End If '/////////////////////////// ' Print #1, Format(Date) + " " + Format(Time) + "与PLC通信成功" Close #1 ' Set db = OpenDatabase(App.Path & "\base.mdb") ' Set res = db.OpenRecordset("xml") ' res.AddNew ' res.Fields(0) = "系统开启时间" + Format(Date) + " " + Format(Time) ' res.Update Set fMainForm = New frmMain Load fMainForm Unload frmSplash fMainForm.Show 运行界面 数据采集,读取位元件,由于采样上来的16个位元件组成一个字读取的,必须在VB程序编写相应的程序,便于在界面反映每个阀门,泵的运行状态。 |
|
上一篇: 三菱PWM格式文件梯形图编码 下一篇: 现场总线技术及其新进展 |