模拟Windows任务管理器CPU使用率的动态折线图-农夫山泉
Delphi的TCanvas类可以实现各种复杂的图形输出功能,基于近期项目的需求,利用它实现了一个很炫的动态折线图(模拟了资源管理器中CPU使用率的折线图),可以直观地展现出数值的实时变化情况。
这段代码里边有几个核心的地方:
- 首先是为了缓解刷新时画布闪烁,利用了双缓冲的原理;
- 其次结合队列,保证了数据的顺序压入;
- 还有就是一些简单的数组算法。
最终的效果如下:

单元代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,Contnrs;
const
{* 网格间隔 *}
GridSpace = ;
{* 移动步长(能够被间隔整除) *}
MoveStep = ;
{* Y轴最大值(最大刻度) *}
MaxY = ;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Image1: TImage;
procedure DrawPL(Shower:TImage);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{* 网格竖线X坐标数组 *}
GridXPArr: array of Integer;
{* 点坐标数组 *}
PointLst: array of TPoint;
{* 数值队列 *}
YPQueue: TQueue;
{* 数值指针 *}
PYValue: PInteger;
{* 网格偏移量 *}
X: Word;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
YValue:Integer;
begin
Randomize;
YValue := Random();
//新Y坐标点按顺序压入队列
New(PYValue);
PYValue^ := YValue;
YPQueue.Push(PYValue);
end;
procedure TForm1.DrawPL(Shower:TImage);
var
Bit: TBitmap;
i: Integer;
PW,PH: Integer;
YValue:Integer;
begin
//偏移量计算
Inc(X);
if X = GridSpace div MoveStep then
X := ;
//初始化画布(双缓冲)
Bit := TBitmap.Create;
try
PW := Shower.Width;
PH := Shower.Height;
Bit.Width := PW;
Bit.Height := PH;
//初始化网格竖线X坐标数组长度为宽/间隔+1
SetLength(GridXPArr,PW div GridSpace + );
with Bit.Canvas do
begin
Brush.Color := clBlack;
Brush.Style := bsSolid;
Rectangle(,,PW,PH);
Pen.Color := $;
//画网格,根据偏移量实现动态效果
for i := to PW div GridSpace + do
begin
GridXPArr[i] := GridSpace * i - X * MoveStep;
MoveTo(GridXPArr[i],);
LineTo(GridXPArr[i],PH);
end;
for i := to PH div GridSpace do
begin
MoveTo(,GridSpace * i);
LineTo(PW,GridSpace * i);
end;
//画折线
Pen.Color := clLime;
YValue := ;
//如果队列中有新的Y坐标点,则输出
if YPQueue.Count > then
begin
PYValue := YPQueue.Pop;
YValue := PYValue^;
Dispose(PYValue);
end;
//画笔移动到起点位置
MoveTo(,PH);
//每执行一次函数,Y坐标向前移动一位,并连线各个点
for i := to Length(PointLst) - do
begin
PointLst[i].Y := PointLst[i + ].Y;
LineTo(PointLst[i+].X,PointLst[i+].Y);
end;
//按比例更新最后一位坐标点
PointLst[Length(PointLst)-].X := PW;
PointLst[Length(PointLst)-].Y := PH - (YValue * PH div MaxY);
//打印信息(可根据需要调整显示位置和内容)
Brush.Style:=bsClear;
Font.Color:=clYellow;
TextOut(,,'数值:'+inttostr(YValue));
end;
Shower.Canvas.Draw(,,Bit);
finally
Bit.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
YPQueue := TQueue.Create;
//初始化坐标点个数为宽/步长+1
SetLength(PointLst,Image1.Width div MoveStep + );
//初始化坐标点为X轴基线位置
for i := to Length(PointLst) - do
begin
PointLst[i].X := i*MoveStep;
PointLst[i].Y := Image1.Height;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
YPQueue.Free;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DrawPL(Image1);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
DrawPL(Image1);
end;
end.
模拟Windows任务管理器CPU使用率的动态折线图-农夫山泉的更多相关文章
- achartengine画出动态折线图
achartengine画出动态折线图的效果最近有个项目需要用到实时曲线图,我也上网搜索了一下,最后还是选择使用achartengine这个现成的东西,毕竟自己再canvas一下实在是太麻烦,而且项目 ...
- 原生JS实现动态折线图
原生JS实现动态折线图 <!DOCTYPE html> <html> <head> <meta charset="utf-8"> & ...
- zabbix监控windows系统CPU使用率
参考网站:https://blog.csdn.net/reblue520/article/details/76287113 Zabbix 自带的模块没有 CPU 使用率(百分比)这个监控项,我们可以通 ...
- 获取Windows操作系统的CPU使用率以及内存使用率
此功能参考了ProcessHacker项目的代码. 声明定义 typedef struct _UINT64_DELTA { ULONG64 Value; ULONG64 Delta; } UINT64 ...
- zabbix 监控windows端cpu使用率百分比
参考网站:http://www.fyluo.com/?post=108 zabbix自带的模版没有CPU使用率(百分比)这个监控项,那么我们可以通过添加计数器的方式实现CPU百分比的监控. 在zabb ...
- 开发成功-cpu-mem监控动态折线图--dom esayui js java
jsp ------------------------------------------------------------------------------------------- ---- ...
- WPF动态折线图
此项目源码下载地址:https://github.com/lizhiqiang0204/WpfDynamicChart 效果图如下: 此项目把折线图制作成了一个控件,在主界面设置好参数直接调用即可,下 ...
- Echarts 动态折线图
<script src="http://echarts.baidu.com/build/dist/echarts-all.js"></script>< ...
- 【转】STM32: 一种计算CPU使用率的方法及其实现原理
1 前言出于性能方面的考虑,有的时候,我们希望知道CPU的使用率为多少,进而判断此CPU的负载情况和对于当前运行环境是否足够“胜任”.本文将介绍一种计算CPU占有率的方法以及其实现原理. 2 移植 ...
随机推荐
- 查看tcp各个连接状态的数量
4. 查看tcp各个连接状态的数量 下面对的 netstat -tan|awk '$1~/tcp/{aa[$NF]++}END{for (h in aa)print h,aa[h]}' SYN_SEN ...
- 多媒体开发之视频格式---1080p逐行和1080i隔行
(1)简介 (2)1080p和1080i的区别 (3) ------------------autho:pkf ----------------------time:2015-1-4 (1)简介 (2 ...
- NYOJ-欧几里得
欧几里得 时间限制:1000 ms | 内存限制:65535 KB 难度:0 描写叙述 已知gcd(a,b)表示a,b的最大公约数. 如今给你一个整数n,你的任务是在区间[1,n)里面找到一个最大 ...
- ios uitableview button 获取cell indexpath.row
在iOS7下面已经无效,因为iOS7的层级关系发生变化 UITableViewCell->UITableViewCellScrollView->UITableViewCellContent ...
- 【BZOJ1345】[Baltic2007]序列问题Sequence 贪心+单调栈
[BZOJ1345][Baltic2007]序列问题Sequence Description 对于一个给定的序列a1, …, an,我们对它进行一个操作reduce(i),该操作将数列中的元素ai和a ...
- shell 字符串处理汇总(查找,替换等等)
字符串: 简称“串”.有限字符的序列.数据元素为字符的线性表,是一种数据的逻辑结构.在计算机中可有不同的存储结构.在串上可进行求子串.插入字符.删除字符.置换字符等运算. 字符: 计算机程序设计及操作 ...
- 怎样过滤跨站恶意脚本攻击(XSS)
什么是XSS? XSS(Cross Site Scripting),即跨站脚本攻击,是一种常见于web application中的计算机安全漏洞.XSS通过在用户端注入恶意的可运行脚本,若服务器端对用 ...
- 学习Sharding JDBC 从入门到出门-1
感觉大神已经写好了,自己膜拜下下, 送上大神地址:http://www.cnblogs.com/zhongxinWang/p/4262650.html 这篇博客主要是理论的说明了什么是分库分表,路由等 ...
- 关于iOS的手势UIGestureRecognizer问题
typedef NS_ENUM(NSInteger, UIGestureRecognizerState) { UIGestureRecognizerStatePossible, // 尚未识别是何种手 ...
- Delphi 64与32位的差异
Delphi 64与32位的差异 最近,Delphi推出了64位预览版本, 我做为一个忠实的Delphier, 看到这消息后,第一时间学习,并写下这个做为以后的参考资料. 相同点: 在Delphi ...