Delphi编程实现远程数据波形显示的方法.doc

Computer Knowledge And Technology 电 脑 知 识 与 技 术2008 年 第 4 卷 第 6 期 （总 第 33 期 ）图 1 数 据 显 示 效 果E-mail: Tel:+86-551-5690963 5690964ISSN 1009-3044Computer Knowledge And Technology 电 脑 知 识 与 技 术Vol.4,No.6,November 2008, pp.1386-1387，1392Delphi 编程实现远程数据波形显示的方法龚娟，王欢燕，言海燕，薛志良（湖南铁道职业技术学院 ，湖 南 株 洲 412001）摘 要 ：该 文 介 绍 了 在 Delphi 中通过网络传输下位机采集的 数 据 ，使 用 IXYPlot 控件将数据实时以直观的工控波形界面进行显示的 方 法 ，并结合应用实例给出了数据显示的应用程序 。关 键 词 ：Delphi；实 时 数 据 ；波 形 ；显 示中 图 分 类 号 ：TP312文 献 标 识 码 ：A文 章 编 号 ：1009-3044(2008)33-1386-02The Method of Realizing Remote Data Wave Display by Delphi ProgrammingGONG Juan, WANG Huan-yan, YAN Hai-yan, XUE Zhi-liang(Hunan Railway Profess Ional Technology College, Zhuzhou 412001, China)Abstract: This paper presents the method that the internet transmits the data collected by the controller system in Delphi, and the IXPlot Controls display the real -time data by intuitionistic monitor and control interface. This paper exemplifies the data displaying application program.Key words: Delphi; real-time data; wave; display1 引言在自动化控制应用中 ，经常要对系统中各类设备进行控 制 和 诊 断 ，因此我们要组成微机为上位机而单片机等为下位机的控制 网 络 。 在通常的控制应用中 ，我们通过下位机采集并传送控制设备的状态信息如电流 、电 压 、压力等等并以数字的形式实时显示 。 但 是 ，随着自动化控制应用的发展和深入 ，很多应用需要将采集检测到 的离散的数据绘制成波形 ，用来对数据进行追踪记录和比较 。 如何通过简单高效的方法方便快捷的将采集到的离散数据传输到上位机并绘 制 成 波 形 呢 ？ 本文给出了利用 IXYPlot 控 件 将 通 过 网 络传输采集的离散数据绘制成波形的方法 ，并 给 出 了 在 Delphi 环境下利用该控件将离散数据以波形形式实时显示的应用实例 。2 实时数据的采集传输和显示方法在 应 用 系 统 中 ，为了减少布线充分利用网络系统优势 ，通常采用下位机传感器 、IO 通道等对模拟数据 、数 字 量数据进行实时采 集 。 采集到的数据由下位机根据协议的要求 进行编码处理后通过网络发送给上位机 ，上位机接收到下位机传来的数据后同样根据 通讯协议对接收到的数据进行解码 ，并将解码后的数据送给显示系统 ，根据相应设置进行数据的显示 。在数据显示中我们设定纵坐标和横坐标 分别代表两个不同的量 ，显示出的波形则记录了数据在随横坐标变化过程中的变化情 况 ，从而由各离散数据绘制出相应的波形 。 根据应用的需要我们可以在一个界面上同时记录多路数据 ，各路数据的波形以不同颜色 进 行 区 分 ，各路数据的位置可以随意设定 ，数据显示效果如图 1 所 示 ：通过以上分析说明我们可以利用系统下位机就近对数据 进 行 采 集 ，利用网络进行数据的传输 ，利用控件的编程和设计对数据 进 行 显 示 处 理 ，简单而高效的实现了将检测的离散数据以波形的方式显示 。3 数据显示应用实例下面通过一个具体实例来说明在 Delphi6.0 中实现工控数据显示的方法 。收 稿 日 期 ：2008-07-25作 者 简 介 ：龚 娟 （1978-），女 ，湖 南 汨 罗 人 ，讲 师 ，硕 士 ，主 要 研 究 方 向 ：软 件 工 程 、网 络 技 术 ；王 欢 燕 （1979-），硕 士 ，主 要 研 究 方 向 ：软图 2 界 面 设 计 图1) 界 面 设 计 ：打开一个新的工程 ，在窗体上安排一个 iXYPlot 控 件 ，将 其 Align 属 性 设 为 alClient，并设置好相关其它属性 ，最后完成界面设计 如 图 2 所 示 。2) 程 序 如 下 ：varMain_FM: TMain_FM; Drawgraph,DrawGraphID implementation$R *.dfm/波 形 显 示 线 程 ；Function F_DrawGraphVar:Thandle;:Longint;TempB1,temp2,temp3:Byte;BeginIF (Main_Fm.GET_SwitchLed.Active)ThenBegin/显 示 按 钮 激 活If main_fm.xvaluemain_fm.X_span then /满 一 屏 后 ，横 坐 标 右 移main_fm.iXYPlot.XAxis0.Min :=main_fm.iXYPlot.XAxis0.Min+Main_fm.X_add;main_fm.iXYPlot.Channel0.AddXY(main_fm.xvalue,Sin(0 )*Main_fm.SP1_para0+Trunc(Main_fm. SP1_para1); /绘制第一通道的波形 （直 线 ）main_fm.iXYPlot.Channel1.AddXY(main_fm.xvalue,Sin(main_fm.Xvalue )*Main_fm.SP2_para0+Trunc(Main_fm.SP2_para1); / 绘 制 第 2 通 道 的 波 形 （正 弦 波 ）main_fm.iXYPlot.Channel2.AddXY(main_fm.xvalue,cos(main_fm.Xvalue)*Main_fm.SP3_para0+Trunc(Main_fm.SP3_para1) ; / 绘 制 第 3 通 道 的 波 形 （余 弦 波 ）/ 绘 制 第 4 通 道 的main_fm.iXYPlot.Channel3.AddXY(main_fm.xvalue,Cos(0)*Main_fm.Curr_para0+Trunc(Main_fm.Curr_para1);波 形 （直 线 ）main_fm.iXYPlot.Channel4.AddXY(main_fm.xvalue,0*Main_fm.Acc_para0+Trunc(Main_fm.Acc_para1); /绘 制 第 5 通 道 的 波 形 （直 线 ）main_fm.iXYPlot.Channel5.AddXY(main_fm.xvalue,Sin(main_fm.Xvalue )*Main_fm.Daf_para0+T runc(Main_fm.Daf_para1); /绘 制 第 6 通 道 的 波 形 （正 弦 波 ） main_fm.xvalue:=main_fm.xvalue+Main_fm.X_add;/设置横坐标移动的变化 End; End;procedure TMain_FM.GET_SwitchLedClick(Sender: TObject);beginIF Not GET_SWITCHLED.Active ThenBegin/判断显示按钮没有被激活 GET_SWITCHLED.CaptionFont.Color:=clLime; /改变显示字体颜色 Main_fm.iXYPlot.ClearAllData ;Main_Fm.Xvalue :=0; Main_Fm.Time50MS.Enabled:=True; EndElseBegin/清除原有的显示数据 ，为新数据显示做好准备 /设置横坐标初时值 /激 活 定 时 器GET_SWITCHLED.CaptionFont.Color:=clRed; /更改显示按钮字体 Main_Fm.Time50MS.Enabled:=False;End;/关 闭 定 时 器 ；（下 转 第 1392 页 ）2008 年 第 4 卷 第 6 期 （总 第 33 期 ）Computer Knowledge And Technology 电 脑 知 识 与 技 术Bash 支 持 for 循 环 ，tcsh 也 支 持 ，但 关 键 字 是 foreach。 下面两循环语句 作 用 相 同 ，将主目录下的所有的 txt 文 件 备 份 ，文 件 名 后 面 加 “_bak”作 为 备 份 文 件 名 （见 表 16）。另 外 ，tcsh 支 持 goto 和 repeat 语 句 ，bash 不 支 持 。 例 如 ，repeat 5 uname就 是 执 行 5 次 uname 命 令 。9 信号处理Bash 用 trap 命令捕捉信号以及采取相应的处理动作 ， 语 法 格 式 为 trap command-list signal。 Tcsh 相 应 的 命 令 为 onintr， 语 法 格 式 为 onintr -| label，此 命 令 控 制 tcsh 在 被 中 断 时 的 动 作 ：不 带 任 何 参 数 ，将 采 取 默 认 的 动 作 ，即 中 断 shell，回到脚本开始运行的地方 ；如 果 带 -参 数 ,则 忽 略 中 断 ； 如 果 用 label 参 数 ，tcsh 将 执 行 goto label， 即 执 行 label 标 号 后 面 的 命 令 。 下面两段脚本的作用相同 ，每 2 秒 打 印 一 次 “Program is running”，当 输 入 Ctrl-C 时 ，打 印 “Interrupt”并 终 止 运 行 （见 表 17）。10 结束语Bash 与 tcsh 都拥有各自的内置命令和变量 ，二 者 间 不 是 一 一 对 应 的 ， 有些能够找到对应的命令或变量 ，有 些 则 不 能 ，从前面的内容可以发现这 一 点 ，再 例 如 ，bash 支 持 函 数 和 select 语 句 ，tcsh 不 支 持 。表 16表 17以 上 讲 述 了 bash 与 tcsh 的 主 要 不 同 之 处 ，所举的例子大多点到为止 ，但对这二者的主要区别是一个很好的总结 ，为 掌 握 了 其中 一 种 shell 想使用另一种的用户提供了便利 ，也为已经熟悉了这两种 shell，仍时常弄混的用户提供了帮助 。参考文献 ：1 邢 国 庆.UNIX 从 入 门 到 精 通 （普 及 版 ）M.北 京:电子工业出版社,2006. 2 孟 庆 昌,牛 欣 源. Linux 教 程M.2 版.北 京:电子工业出版社,2007.3 Quigley E.Linux Shell 实 例 精 解M.吴 雨 浓,译.北 京:中国电力出版社,2002.（上 接 第 1387 页 ）end;procedure TMain_FM.Time50MSTimer(Sender: TObject);begin/定时调用显示刷新程序 F_DrawGraph;end;procedure TMain_FM.FormShow(Sender: TObject);beginMain_fm.X_span :=10;Main_fm.X_add:=0.01; Main_fm.SP1_para0 :=12; Main_fm.SP1_para1 :=110; Main_fm.SP2_para0 :=20;Main_fm.SP2_para1 :=90;Main_fm.SP3_para0 :=20; Main_fm.SP3_para1 :=70; Main_fm.Curr_para0 :=0;Main_fm.Curr_para1 :=90; Main_fm.Acc_para0 :=3; Main_fm.Acc_para1 :=70; Main_fm.Daf_para0 :=35; Main_fm.Daf_para1 :=35; end;4 结束语/设定显示区域一屏能够显示的横坐标的最大值 /设定横坐标没刷新周期变化的增量 /设定通道的数据放大比例 /设定通道数据显示纵坐标的基准位置 /设定通道的数据放大比例 /设定通道数据显示纵坐标的基准位置 /设定通道的数据放大比例 /设定通道数据显示纵坐标的基准位置 /设定通道的数据放大比例 /设定通道数据显示纵坐标的基准位置 /设定通道的数据放大比例 /设定通道数据显示纵坐标的基准位置