资源目录
压缩包内文档预览：(预览前20页/共61页)
编号：512409
类型：共享资源
大小：167.03KB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
6
积分
- 关 键 词：
-
毕业设计
- 资源描述：
-
MCGS数据采集单片机数据传送的设计资料,毕业设计
- 内容简介：
-
1 目 录 摘要 4 引言 4 1、信达广场工程设计介绍 5 1.1 工程数据采集显示全过程 5 1.2 本设计数据采集传输过程 5 2、 MCGS 概述 5 2.1 VB程序目 6 2.2 VB程序流程图 6 2.3 单片机串行通信概述 7 3、本设计有关原理图及主要芯片 9 3.1 上位机原理图和 PCB 板图 9 3.2 上位机汇编设计程序和流程图 11 3.3 LM7805 13 3.4 MAX202 13 3.5 74ALS244 14 3.6 P89LPC93 15 nts 2 4、调试过程中遇到的问题及解决 15 5、致谢词 16 6、参考文献 17 7、附录 23 7.1附录一：传送数据给下位机的程序（模块一） 18 7.2 附录二：从服务器中采集数据程序（类模块程序） 21 7.3 附录三：测试及初始化设备程序 26 7.3.1 窗体一 26 7.3.2 窗体二 29 7.3.3 窗体三 34 7.3.4 窗体四 37 7.3.5 程序模块 42 7.4 附录四：上位机汇编程序 46 7.5 附录五：英文资料及中文翻译 55 nts 3 设计标题 摘要 在信达广场大楼建设工程中，由于楼房建设规模庞大，为实现楼房的有效管理与监控，这就要求设计一个楼房信息的监控与显示系统。该设计通过 OPC 协议和 MCGS,把父设备和服务器相连，采集楼房的温度等数据信息。再通过调用 MCGS 系统中的程序模块，使用 MCGS 的自定义设备传输数据。然后，父设备把数据传给子设备。子设备和父设备是通过RS-232 相连，与 子设备进行串行数据通信。子设备根据接收到的数据通过模拟显示屏显示，实现楼房的有效监控，最终实现楼房数据采集的自动化。 关键词 MCGS、数据采集、单片机、串行通信、 RS-232 Abstract In the project of XinDa Square, because the buildings scale is huge, for valid management that realizes building with monitor and control, this will need to design a system for the control and manifestation of the buildings information. Through the OPC agreement and the MCGS, the father equipments and the server are connected with each other, so it can realizes data acquisition of the building. The design use MCGS procedure in the system mold piece and definition equipments delivers the data. Then, the father equipments pass the data to sub- equipments. The Sub- equipments and the father equipments are connected by the RS-232 with each other .It can realizes the serial data communication between the father equipments and sub-equipments. According to the data received, the sub- equipments indicate the data on the screen. That realizes the building supervises and control effectively. Finally, the system realizes the automation of the building data collect. key words MCGS、 data acquisition 、 signal Chip Microcomputer、 Serial Communication、 RS-232 1 引言 nts 4 随着电子技术的迅猛发展，单片机技术不断成熟，并已广泛应用于军事、工业、通讯、家用电器、智能玩具、智能仪表等领域。单片机的使用使产品功能、精度和质量大幅度提高，而电路设计更简单、故障率低、可靠性高而且成本低廉。 在当今的单片机运用系统中，由于单片机具有处理数据快优点，在很多的运用系统中，只用到一片单片机来处理各种各样的数据。在生产过程和日常生活中各种信号的采集、处理和输出显示以成为最重要且最普遍的项目技术之一。随着科学技术的进步，人们住房条件的改善，楼宇规模不断扩大，楼层监控系统部分的设计至关重要，它关系到整个楼宇的运行状况乃至安全。 1. 信达广场工程设计介绍 1 1 工程数据采集显示全过程 信达广场的模拟数字监控系统，采用 OPC 协议与服务器相连，将各楼层数据信息从服务器中取出后，利用 MCGS 系统发送上位机。上位机将数据打包后按地址传送给下位机。下位机通过驱动红、绿灯和数码管将数据所表示的信息在显示屏上显示出来。 2 2 本设计数据采集传输过程 首先对传输设备进行初始化，例如设置串口线状态，以及传输设备属性。数据由 MCGS通过 OPC 协议从服务器中取出后，先将数据打包，再传给上位机，MCGS每次发 50个数据，在一秒内判断接收是否正确，如不正确则重发，上位机收到数据后再将数据以包的形式传给下位机，每包中包含一个地址，四个数据。 2 MCGS概述 服务器 OPC 协议 MCGS RS-232 上位机 下位机 数 码管或灯 nts 5 计算机技术和网络技术的飞速发展，为工业自动化开辟了广阔的发展空间，用户可以方便快捷地组建优质高效的监控系统，并且通过采用远程监控及诊断等先进技术，使 系统更加安全可靠，在这方面， MCGS 工控组态软件提供强有力的软件支持。 MCGS 全中文工业自动化控制组态软件（以下简称MCGS 工控组态软件或 MCGS）为用户建立全新的过程测控系统提供了一整套解决方案。 MCGS 工控组态软件是一套 32 位工控组态软件，可稳定运行于Windows95/98/NT 操作系统，集动画显示、流程控制、数据采集、设备控制与输出、网络数据传输、双机热备、工程报表、数据与曲线等诸多强大功能于一身，并支持国内外众多数据采集与输出设备，广泛应用于石油、电力、化工、钢铁、矿山、冶金、机械、纺织、航天、建 筑、材料、制冷、交通、通讯、食品、制造与加工业、水处理、环保、智能楼宇、实验室等多种工程领域 。MCGSWW 服务器版本，集工业现场的集散控制和各类历史、实时数据及相关曲线的 WWW 发布于一体，可以解决整个企业的 Internet/Intranet 方案，随时随地掌握工业现场运营状态，了解所需的各项信息，大幅度提高工作效率。 2.1 VB程序目的 采集数据程序（附录一 1.2 ） 程序目的：将数据通过 OPC协议从服务器中采集出来后，再将其打包传送给上位机。对于设备的初始化和各属性参量也在该程序中设置。 传送 数据程序（附录一 1.1 ） 程序目的： 1、定义设备名称。 2、将读数据的命令通过串口发送出去，接收发回来的数据，再将数据包发给下位机，并判断下位机是否正确接收，否则从发。发送时对数据并对其采用和校验。 设置数据采集的界面程序（附录二） 程序目的：设置 MCGS的参数界面，可在该界面中设置 MCGS的各种通信参数，调用 MCGS的帮助系统。 整个程序的工程文件最后生成 .dll文件嵌入 MCGS工控组太软件系统的自定义设备中 ,调用该设备对服务器进行数据采集 ,再将采集到的数据与上位机进行串行通信。 nts 6 2.2 程序流程图 N Y N Y 2.3 单片机串行通信概述 对硬件进行初始化 数据进行校验后打包 传送给上位机 开始 是否正确接收完毕 根据设定的 周期采集数据 是否在 MCGS 环境 nts 7 计算机的数据传送有两种方式：并行数据传送和串行数据传送。并行数据传送的特点是：各数据位同时传送，传送速度快、效率高。但并行数据传送有多少数据位就需多少根数据线，传送成本高。串行数据传送的特点是：数据传送按位顺序进行，最少只需一根传输线即可完成，成本低但速度慢。我们采用串行通信方式。在串行通信中，格式位的发送和接收分别由发送时钟脉冲和接收时钟脉冲进行定时控制。因为计算机中使用的数据都是并行数据，所以串行通信需要进行数据转换。数据转换的实现由通用异步接收发送器（ UART）完成。 通用异步串 行接收器和转发器 (UART) 是一个高度灵活的串行通讯设备。主要特点为： 1） 全双工操作 ( 独立的串行接收和发送寄存器 ) 2） 高精度的波特率发生器 3） 支持 5, 6, 7, 8, 或 9 个数据位和 1 个或 2 个停止位 4） 帧错误检测 5） 多处理器通讯模式 涉及的控制寄存器： 1） 串行控制寄存器 SCON 位地址 9FH 9EH 9DH 9CH 9BH 9AH 99H 98H 位符号 SM0 SM1 SM2 REN TB8 RB8 TI RI SM0、 SM1=01 串行口工作方式选择位； SM2 多机通信控制位； REN 允许接收位； TB8 发送数据位 8； RB8 接收数据位 8； TI 发送中断标志； RI 接 收中断标志 电源控制寄存器 PCON 位 序 B7 B6 B5 B4 B3 B2 B1 B0 位符号 SMOD / / / GF1 GF0 PD ID 在我们的使用中，该寄存器中除最高位之外，其他位都没有定义。最高位（ SMOD）是串行口波特率的倍增位。在该系统中 ,为减少误差我们采用了波nts 8 特率倍增。 中断允许寄存器 IE 位地址 0AFH 0AEH 0ADH 0ACH 0ABH 0AAH 0A9H 0A8H 位符号 EA / / ES ET1 EX1 ET0 EX0 其中 EA 中断允许总控制位； ES 串行中断允许位。 定时器的工作方式控制寄存器 TMOD 位 序 B7 B6 B5 B4 B3 B2 B1 B0 位符号 GATE C / T M1 M0 GATE C / T M1 M0 高半字节定义定时器 /计数器 1，低半字节定义定时器 /计数器 0。 GATE 门控位； C/ T 定时方式或计数方式选择位； M1、 M0 工作方式选择位。 程序设计过程中，我们设定初始值为定时 器 1工作方式 2，中断总允许，禁止串行中断，波特率倍频，波特率设定为 9600bps，串行工作方式 1并允许通信。 从上位机发送数据给下位机时，采用的是 7个口 COM同时发送，采用串行通信。 7个口每个口有 16个栈。 3. 本设计有关原理图及主要芯片 3.1 上位机原理图和 PCB板图 上位机电路板作用：通过 RS-232接口与 PC机进行数据通信接收数据；与下位机进行串行数据通信，把数据传送给下位机显示。 上位机原理图 nts 9 R 115. 1K + 3. 3VI C A / P 2. 728I C B / P 2. 01P 2. 12P 0. 03P 1. 74P 1. 65P 1. 5/ R S T6V S S7P 3. 1/ X T A L 18P 3. 0/ X T A L 29I N T 1/ P 1. 410I N T 0/ P 1. 311P 1. 212P 2. 213P 2. 314P 2. 415P 2. 516P 1. 1/ R X D17P 1. 0/ T X D18P 0. 719P 0. 620VDD21P 0. 522P 0. 4/ A D 1323P 0. 3/ A D 1224P 0. 2/ A D 1125P 0. 1/ A D 1026P 2. 627U2P 87 L P C 93 5R 221KV i n1GND2+ 5V3U17805C3104C4104C2100uFC1100uFV C C D1 D2 + 3. 3VC5104R3100R21001234Y112MGND+ 3. 3VC 1+1V+2C 1-3C 2+4C 2-5V-6T 2O U T7R 2I N8R 2O U T9T 2I N10T 1I N11R 1O U T12R 1I N13T 1O U T14U3M A X 20 2C61uFC81uFC71uFC91uFGNDV C CGNDR1100R4100P 20P 21P 22P 23P 24P 25P 26P 27V C C12J29V162738495J1D B 9R62KR52KH1TDH2RDnts 10 12J3C O M 112J4C O M 2GND GND12J5C O M 3GND12J6C O M 4GND12J7C O M 5GND12J8C O M 6GND12J9C O M 7GND1A 121A 241A 361A 482A 1112A 2132A 3152A 4171Y 1181Y 2161Y 3141Y 4122Y 192Y 272Y 352Y 431G12G19U474 A L S 24 4P 20P 21P 22P 23P 24P 25P 26上位机 PCB图 3.2 上位机汇编程序流程图： nts 11 测停止位 开 始 串口初始化，设置波特率，数据线状态 设置停止标志位，接收数据索引值 测停止位，判断是否接收完数据 选取 COM 口，设置站号 发送数据 是否发送完毕 nts 12 上位机汇编程序（附录三）目的：从 MCGS 中接收数据，再把数据打包传输给指定的设备和从站。在数据处理完后，通知主设备接收成功。 3.3 UA7805C介绍： V i n1GND2+ 5V3U17805C3104 C4104C2100uFC1100uFV C C D1 D2 + 3.3VC510412J29V. .该器件为一电压转换器件，将九伏电压变为五伏。输入电压为 7 到 25伏，输出为 4.8到 5.2V 该芯片在电路中的作用是提高电路的可靠性，避免由于外界电网 电压不稳导致输入电压不稳而对单片机产生损坏。 . 3.4 MAX202介绍： 测停止位，从主设备接受数据 回应主设备数据处理发送完毕 nts 13 1A 121A 241A 361A 482A 1112A 2132A 3152A 4171Y 1181Y 2161Y 3141Y 4122Y 192Y 272Y 352Y 431G12G19U474 A L S 24 4P 20P 21P 22P 23P 24P 25P 26这是一个 +5v 供电、多通道 RS-232 驱动器 /接受器。在 max202 内部可将+5v转换为 +10v（空载），为 RS-232驱动器提供工作电压。第一个转换器利用电容 C1 将 +5V 输入加倍，得到（ V+输出端） C3 上的 +10V；第二个转换器利用电容 C2将 +10V转换为（ V-输出端） C4上的 -10V。可以从 +10V (V+)和 -10V (V-)输出端获取少量的电源功率，为外部电路供电 。 3.5 74ALS244介绍： 该芯片内部含有 2个 4位的三太缓冲 器，它在电路中的功能是进行单片机的 I/O扩展，解决输出数据锁存，并达到当输入设备被选通时，使数据源能与数据总线直接连通；而当输入设备处于非选通状态时，则把数据源与数据总线隔离，缓冲器输出呈高阻抗状态。 三太控制信号 输入 . .输出 . nts 14 3.6 P89LPC93： 单片机 P89LPC93接收 MCGS传来的数据，内存为 512字节。 4、调试过程中遇到的问题及解决方案 在调试上位机与下位机进行串行数据通信时，开始忽略了波特率的设定，上位机与下位机的波特率不一致，导致通信不 能进行，修改波特率后正常，但误差较大。后来，通过倍频的方法减小了误差。当把数据传送给下位机时，下位机 P0口数据不能显示，经查阅资料发现下位机 P0口无带载能力，我们最后给 P0口加上拉电阻解决了这个问题。 nts 15 5、致谢词 为期两个月的毕业设计就要结束了，这将是我永生难忘的宝贵经历。本次毕业设计期间我翻阅了大量相关的文献资料和书籍，不仅加强了我的专业知识水平，更开拓了我的视野。 我做的毕业设计是信达广场数据采集工程的硬件及软件设计。在宋老师的耐心指导下一些同学的帮助下，我们首先设计方案，经过多次比较后， 选择了以上所述系统，这次工作中涉及很多电子集成电路、 PCB 板制作和单片机方面的知识以及电路的实际焊接。为此，我查阅了很多相关资料，使我对专业知识有了更清楚的认识，通过实际操作锻炼了我的动手能力。期间，与同伴们的共同合作也是一笔财富，提高了我们的合作精神。本次毕业设计使我受益非浅。 最后，再次感谢宋老师的悉心指导以及在此期间同学们的大力帮助。由于时间有限，如有错误，望予以原谅。 设计者：熊恒 2005-6-10 nts 16 参考文献 1、朱大奇等 . 单片机原理串口及应用 . 南京：南京大学出版社， 2003 2、宗光华等 . 多单片机系统应用技术 . 北京：国防工业大学出版社， 2003 3、张伟等 . 单片机原理及应用 . 北京 .：机械工业出版社， 2002 4、李广第等 .单片机基础 . 北京：北京航空航天大学出版社， 2001 5、张树兵等 . Visual Basic 6.0 程序设计教程 .北京：清华大学出版社，2002 6、夏路易等 . 电路原理图与电路板设计教程 . 北京：北京希望电 子出版社， 2003 7、何立民等 . 单片机应用技术选编 . 北京：北京航空航天大学出版社， 1998 8、康华光等 . 电子技术基础 . 北京：高等教育出版社， 2002 9、 Intel: Microcontroller Handbook,1988 10、 M.D.Beer: Microcomputer Interfacing,1985 nts 17 7、附录 7.1 附录一：传送数据给下位机的程序（ 模块一） Option Explicit Public Declare Function WinHelp Lib user32 Alias WinHelpA (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long Public Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) Public Declare Function GetTickCount Lib kernel32 () As Long * 标识不同 PLC 继电器区的符号 Public Const gc_DeviceName = 数字显示屏 Public Const gc_DeviceHelpName = Adam4050.hlp * 设备驱动中常用的常量定义 Public Const mc_OperateSuccess = 0 * 函数调用成功 Public Const mc_OperateFail = -1 * 函数调用失败 Public Function FetchDataFormComm(ByVal lngCheckFlag As Long, objCommParent As Object, strCommOrder As String, strReturnData As String) As Long * 函数目的 : 将读数据的命令通过串口发送出去，接收 PLC发回来的数据 * 参数意义 : lngReadFlag - 读还是写命令， 0 是读； 1是写 * objCommParent - 串口父设备对象 * bytCommOrder() - 下发的命令 * strReturnData - 返回命令 * 函数返回 : 0 - 成功； -1 - 失败 Dim lngIndex As Long * 循环索引变量 Dim lngReadLen As Long * 实际读 回来的数据的字节个数 Dim lngReturn As Long * 函数返回 Dim bytOutput(0 To 2047) As Byte * 发送和接收数据缓冲区， nts 18 * 加校验 Call AddSum(strCommOrder, 0, lngCheckFlag) For lngIndex = 1 To Len(strCommOrder) bytOutput(lngIndex - 1) = (Mid(strCommOrder, lngIndex, 1) bytOutput(lngIndex - 1) = Asc(Mid(strCommOrder, lngIndex, 1) Next lngIndex Debug.Print 下发的命令是 : + strCommOrder * 按是读还是写，协议格式，通信返回值不同 lngReadLen = objCommPoutindat(bytOutput(), Len(strCommOrder), 0, 0, 13, 1000) * 如果没有读到数据就出错退出 If lngReadLen 0 Then GoTo PROC_ERR Debug.Print 读回来的数据是 : + strReturnData PROC_EXIT: FetchDataFormComm = mc_OperateSuccess Exit Function PROC_ERR: FetchDataFormComm = mc_OperateFail End Function Public Function AddSum(strCommOrder As String, lngCheckDir As Long, lngCheckFlag As Long) As Long nts 19 * 函数目的： 加校验 * 参数意义： strSend - 命令字符串 * lngStartPos - 校验开始位置 * EnlngEndPos -校验结束位置 * 函数返回： 0 - 成功； -1 - 失败 Dim lngIndex As Long * 循环索引变量 Dim lngSum As Long * 校验和 Select Case lngCheckDir Case 0 If lngCheckFlag = 1 Then lngSum = 0 For lngIndex = 1 To Len(strCommOrder) lngSum = lngSum + Asc(Mid(strCommOrder, lngIndex, 1) Next lngIndex lngSum = lngSum Mod 256 strCommOrder = strCommOrder + Right(00 + Hex(lngSum), 2) End If strCommOrder = strCommOrder + Chr(13) Case 1 If lngCheckFlag = 1 Then lngSum = 0 For lngIndex = 1 To Len(strCommOrder) - 3 lngSum = lngSum + Asc(Mid(strCommOrder, lngIndex, 1) Next lngIndex lngSum = lngSum Mod 256 If Mid(strCommOrder, lngIndex, 2) 0 Then GoTo PROC_EXIT For lngIndex = 0 To 6 nts 22 asngDataValue(lngIndex + 1) = (Val(&h + Mid$(strReturnData, 4, 2) And (2 lngIndex) (2 lngIndex) Next lngIndex strCommOrder = # + Right(00 + Hex(g_lngDeviceAddress), 2) + 00 For lngIndex = 1 To 50 99 lngDo = lngDo Or (asngDataValue(lngIndex) * (2 lngIndex) + 8 strCommOrder = strCommOrder + Right(00 + Hex(asngDataValue(lngIndex), 2) 以 8位二进制传输 Next lngIndex strCommOrder = strCommOrder + Right(00 + Hex(lngDo), 2) lngReturn = FetchDataFormComm(m_lngCheckFlag, m_objCommParent, strCommOrder, strReturnData) If lngReturn 0 - 设备初始化失败 g_lngDeviceAddress = 1 End Function _ Public Function InitDevSet(objMcgsSave As Object, objMcgsData As Object) As Long * 函数目的 : MCGS 运行环境中调用，当用户打开属性页调用本接口，进行必要的初始化工作 * 参数意义 : objMcgsSave - MCGS 存盘数据库对象 * objMcgsData - MCGS实时数据库对象 * 函数返回 : InitDevSet=0 - 设备初始化成功 * InitDevSet=-1 - 设备初始化失败 End Function _ 读取设备通道数据的类型和设备通道类型说明 Public Function GetChlType(alngChlDataType As Variant, astrChlExplain As Variant) As Long * 函数目的 : MCGS 运行环境中调用， Mcgs调用本接口读取设备各通道的数据类型和通道内容的文字描述， * 在设备属性设置窗口的通道连接属性页中所显示的内容均来自本接口 * 参数意义 : alngChlDataType - Long型数组，存储各通道的数据类型 * astrChlExplain - String 型数组，存储各通道内容的文字描述 * 函数返回 : GetChlType = 0 - 调用成功 * GetChlType 1 Then m_lngParFlag = 1 QueryObj m_objMcgsData, m_objCommParent, g_audtParObjPro(), g_audtParEnumPro() m_objCommParent.InitNewDev m_objMcgsSave GetObjProperty m_objMcgsData, m_objCommParent, g_audtParObjPro() End If Set frmPage = New frmTestParent Set frmPage.g_objMcgsData = m_objMcgsData Set frmPage.g_objDevObj = m_objCommParent Set frmPage.g_objMcgsSave = m_objMcgsSave frmPage.Show 1 SetObjProperty m_objMcgsData, m_objCommParent, g_audtParObjPro() GetObjProperty m_objMcgsData, m_objCommParent, g_audtParObjPro() End Sub Private Sub cmdSetDevPro_Click() On Error Resume Next Set m_objDevObj = New clsDevObj If m_lngDevFlag 1 Then m_lngDevFlag = 1 QueryObj m_objMcgsData, m_objDevObj, g_audtDevObjPro(), g_audtDevEnumPro() m_objDevObj.InitNewDev m_objMcgsSave m_objDevObj.InitDevSet m_objMcgsSave, m_objMcgsData GetObjProperty m_objMcgsData, m_objDevObj, g_audtDevObjPro() End If SetObjProperty m_objMcgsData, m_objDevObj, g_audtDevObjPro() Set m_objMcgsData.ParentDev = m_objCommParent Set m_objMcgsSave.ParentDev = m_objCommParent lngIndex = m_objCommParent.InitDevRun(m_objMcgsSave, m_objMcgsData) lngIndex = m_objDevObj.InitDevRun(m_objMcgsSave, m_objMcgsData) If lngIndex 0 Then MsgBox 创建 MCGS对象失败 !请先启动 MCGS组态环境 ., 48, 注 意 End End If Set m_objMcgsData = GetObject(, McgsRun.DataCentre) If Err Then Set m_objMcgsData = DatSetObj Set m_objMcgsSave = m_objMcgsData.SvrPackage End Sub Private Sub Form_Unload(Cancel As Integer) Set m_objCommParent = Nothing End Sub 7.3.2 窗体二 Option Explicit Public g_objMcgsSave As Object Public g_objMcgsData As Object Public g_objDevObj As Object nts 29 Public g_lngReturn As Long Private Sub cmdCancel_Click() g_lngReturn = 0 Unload Me End Sub Private Sub cmdOK_Click() Dim lngIndex As Long Dim lngIndex1 As Long Dim lngIndex2 As Long Dim strMsg As String Dim strMsgg As String g_lngReturn = 1 For lngIndex = 1 To UBound(g_audtParObjPro) strMsg = Trim$(grdEditGrid.TextMatrix(lngIndex + 2, 2) Select Case g_audtParObjPro(lngIndex).lngType Case -100 To 0 lngIndex1 = Abs(g_audtParObjPro(lngIndex).lngType) For lngIndex2 = 1 To UBound(g_audtParEnumPro(lngIndex1).vntValue) strMsgg = Format$(g_audtParEnumPro(lngIndex1).vntValue(lngIndex2), 0) + - + g_audtParEnumPro(lngIndex1).strName(lngIndex2) If strMsgg = strMsg Then g_audtParObjPro(lngIndex).vntValue = Format$(g_audtParEnumPro(lngIndex1).vntValue(lngIndex2), 0) End If Next lngIndex2 Case Else g_audtParObjPro(lngIndex).vntValue = strMsg If g_audtParObjPro(lngIndex).strName = DevBaseIO Then g_audtParObjPro(lngIndex).vntValue = Format$(Val(&H + strMsg) End If End Select nts 30 Next lngIndex Unload Me End Sub Private Sub Form_Load() InitGrid End Sub Sub InitGrid() Dim lngIndex As Long Dim lngIndex1 As Long Dim lngIndex2 As Long Dim strMsg As String With grdEditGrid .Rows = UBound(g_audtParObjPro) + 3 For lngIndex = 1 To .Rows - 1 .RowHeight(lngIndex) = 320 .TextMatrix(lngIndex, 0) = Format$(lngIndex, 0) Next lngIndex .RowHeight(0) = 480 .TextMatrix(0, 0) = 序号 .TextMatrix(0, 1) = 设备属性名 .TextMatrix(0, 2) = 设备属性值 .TextMatrix(0, 3) = 设备属性说明 For lngIndex = 0 To 3 .FixedAlignment(lngIndex) = 4 .ColAlignment(lngIndex) = 1 Next lngIndex .ColAlignment(0) = 4 .ColWidth(0) = 600 .ColWidth(1) = 1600 .ColWidth(2) = 2200 .ColWidth(3) = 3200 .col = 2: .row = 1 End With nts 31 grdEditGrid.TextMatrix(1, 1) = 设备帮助 grdEditGrid.TextMatrix(2, 1) = 内部属性 grdEditGrid.TextMatrix(1, 3) = 查看设备在线帮助 grdEditGrid.TextMatrix(2, 3) = 设置设备内部属性 For lngIndex = 1 To UBound(g_audtParObjPro) grdEditGrid.TextMatrix(lngIndex + 2, 1) = g_audtParObjPro(lngIndex).strName grdEditGrid.TextMatrix(lngIndex + 2, 3) = g_audtParObjPro(lngIndex).strNote Select Case g_audtParObjPro(lngIndex).lngType Case -100 To 0 lngIndex1 = Abs(g_audtParObjPro(lngIndex).lngType) strMsg = For lngIndex2 = 1 To UBound(g_audtParEnumPro(lngIndex1).vntValue) If g_audtParEnumPro(lngIndex1).vntValue(lngIndex2) = Val(g_audtParObjPro(lngIndex).vntValue) Then strMsg = Format$(g_audtParEnumPro(lngIndex1).vntValue(lngIndex2), 0) + - + g_audtParEnumPro(lngIndex1).strName(lngIndex2) End If Next lngIndex2 grdEditGrid.TextMatrix(lngIndex + 2, 2) = strMsg Case Else grdEditGrid.TextMatrix(lngIndex + 2, 2) = g_audtParObjPro(lngIndex).vntValue If g_audtParObjPro(lngIndex).strName = DevBaseIO Then grdEditGrid.TextMatrix(lngIndex + 2, 2) = Hex$(Val(g_audtParObjPro(lngIndex).vntValue) End If End Select Next lngIndex End Sub Private Sub grdEditGrid_CmdClick(ByVal row As Long, ByVal col As Long) nts 32 If row = 1 Then g_objDevObj.GetDevHelp If row = 2 Then g_objDevObj.SetDevPage g_objMcgsSave End Sub Private Sub grdEditGrid_EnterCell() grdEditGrid.col = 2 grdEditGrid.CellBackColor = &H8000000D grdEditGrid.CellForeColor = &HFFFFFF End Sub Private Sub grdEditGrid_LeaveCell() grdEditGrid.CellBackColor = 0 grdEditGrid.CellForeColor = 0 End Sub Private Sub grdEditGrid_RowColChange(ByVal row As Long, ByVal col As Long, Flag As Long, Dat As Variant) Dim lngIndex As Long Dim lngIndex1 As Long Dim lngIndex2 As Long Select Case row Case 1, 2: Flag = 2 Case Else lngIndex = row - 2: lngIndex1 = g_audtParObjPro(lngIndex).lngType If lngIndex1 0 Then grdEditGrid.TextMatrix(lngIndex + 1, 3) = Format$(asngDatValue(lngIndex), ) Next lngIndex End Sub 读取输出通道的数据 Sub GetOutDat() Dim lngIndex As Long For lngIndex = 0 T
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号