开发工具:
文件大小: 904kb
下载次数: 0
上传时间: 2012-08-03
详细说明： 温度采集代码 上位机部分源程序： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, ExtCtrls, RzBorder, StrUtils, StdCtrls, RzLabel, iComponent, iVCLComponent, iCustomComponent, iPlotComponent, iPlot, RzButton, iPlotChannel, RzPanel, Mask, RzEdit; type TForm1 = class(TForm) iPlot1: TiPlot; RzPanel1: TRzPanel; RzLEDDisplay1: TRzLEDDisplay; RzLabel1: TRzLabel; RzLabel2: TRzLabel; RzPanel2: TRzPanel; RzLabel3: TRzLabel; ComPort1: TComP ort; procedure ComPort1RxFlag(Sender: TObject); procedure iplot_init(); procedure FormCreate(Sender: TObject); procedure COMM_init(); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; px:word; implementation {$R *.dfm} //**************************************************************************** //---窗体创建过程--- //**************************************************************************** procedure TForm1.FormCreate(Sender: TObject); begin COMM_init(); // 串口控件的初始化 iplot_init(); // 曲线图的初始化 end; //**************************************************************************** //---串口接收到标志字节产生中断--- //**************************************************************************** procedure TForm1.ComPort1RxFlag(Sender: TObject); var str:string; begin // 以字符串的形式从串口读取数据 ComPort1.ReadStr(str,33); // 去掉数据帧的头和尾直接显示 RzLEDDisplay1.Caption:='+'+MidStr(str,2,5); // 在曲线图上绘一个点 iPlot1.Channel[0].AddXY(px,StrToFloat(RzLEDDisplay1.Caption)); iPlot1.Channel[1].AddXY(px,0); // 跟随绘制0刻度线 iPlot1.Channel[2].AddXY(px,iPlot1.Channel[0].GetYMax); iPlot1.Channel[3].AddXY(px,iPlot1.Channel[0].GetYMin); px:=px+1; end; //**************************************************************************** //---初始化曲线图--- //**************************************************************************** procedure TForm1.iplot_init(); begin iPlot1.RemoveAllChannels; // 移除所有通道 iPlot1.RemoveAllXAxes; // 移除所有X轴 iPlot1.TitleText:='实时温度曲线'; // 设置曲线图的标题 //iPlot1.TitleVisible := False; // 不显示曲线图标题 iPlot1.YAxis[0].Span := 100; // 设置Y轴的显示范围 iPlot1.YAxis[0].Min:=-15; // 设置Y轴的起始值 iPlot1.YAxis[0].Title:='温度值(℃)'; // Y轴名称 iPlot1.YAxis[0].TitleShow:=True; //---配置温度曲线--------------------------------------------------- iPlot1.AddChannel; // 添加一个曲线 iPlot1.Channel[0].TitleText := '温度'; // 设置曲线的名称 iPlot1.Channel[0].Color := clRed; // 设置曲线的颜色 // 曲线插值,加上下面这一句显示的曲线不会有棱角 iPlot1.Channel[0].InterpolationStyle := ipistCubicSpline; iPlot1.Channel[0].TraceLineWidth := 2; // 曲线显示的宽度 iPlot1.AddXAxis; // 添加一个X轴 iPlot1.XAxis[0].Title:='采样时间(S)'; // X轴名称 iPlot1.XAxis[0].TitleShow:=True; iPlot1.XAxis[0].Span := 200; // X轴显示范围 iPlot1.Channel[0].XAxisName := iPlot1.XAxis[0].Name; iPlot1.XAxis[0].LabelsFont.Color := clRed; // 标签字体颜色 //---配置0刻度线--------------------------------------------------- iPlot1.AddChannel; // 添加一个曲线 iPlot1.Channel[1].TitleText := '0刻度'; // 设置曲线的名称 iPlot1.Channel[1].Color := clYellow; // 设置曲线的颜色 iPlot1.Channel[1].TraceLineWidth := 2; // 曲线显示的宽度 iPlot1.Channel[1].XAxisName := iPlot1.XAxis[0].Name; //---配置峰值跟踪显示线--------------------------------------------------- iPlot1.AddChannel; // 添加一个曲线 iPlot1.Channel[2].TitleText := '峰值跟踪'; // 设置曲线的名称 iPlot1.Channel[2].Color := clBlue; // 设置曲线的颜色 iPlot1.Channel[2].TraceLineWidth := 2; // 曲线显示的宽度 iPlot1.Channel[2].XAxisName := iPlot1.XAxis[0].Name; //---配置谷值跟踪显示线--------------------------------------------------- iPlot1.AddChannel; // 添加一个曲线 iPlot1.Channel[3].TitleText := '谷值跟踪'; // 设置曲线的名称 iPlot1.Channel[3].Color := clLime; // 设置曲线的颜色 iPlot1.Channel[3].TraceLineWidth := 2; // 曲线显示的宽度 iPlot1.Channel[3].XAxisName := iPlot1.XAxis[0].Name; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
