| |
|---|---|
| (点击题目可以在互联网中搜索该题目的相关内容) 日期：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格式文件梯形图编码 下一篇: 现场总线技术及其新进展 |