易语言画板画CPU折线图源码

.版本 2

.程序集 窗口程序集_主窗口
.程序集变量 CPU记录, 整数型, , "0"
.程序集变量 格宽, 整数型

.子程序 _主窗口_创建完毕

CPU记录 ＝ { 0 }  ' 开始为0

.子程序 _时钟1_周期事件
.局部变量 cpu, 整数型

cpu ＝ 系统_取CPU占用率 ()
标题 ＝ 到文本 (cpu)
加入成员 (CPU记录, cpu)
绘画 ()

.子程序 绘画
.局部变量 画点数, 整数型
.局部变量 i, 整数型
.局部变量 百分之一的高度, 整数型
.局部变量 当前点, 整数型

画点数 ＝ 画板1.宽度 ÷ 格宽 － 1
百分之一的高度 ＝ 画板1.高度 ÷ 100
画板1.清除 (, , , )


.变量循环首 (取数组成员数 (CPU记录), 选择 (取数组成员数 (CPU记录) － 画点数 ＞ 0, 取数组成员数 (CPU记录) － 画点数, 1), -1, i)
    .如果真 (i ＋ 1 ≤ 取数组成员数 (CPU记录))
        ' 调试输出 (画板1.画板宽度 － 当前点 × 20 － 10, 百分之一的高度 × CPU记录 [i], 画板1.画板宽度 － 当前点 × 20 － 30, 百分之一的高度 × CPU记录 [i ＋ 1])
        ' 调试输出 (百分之一的高度 × CPU记录 [i])

        ' 画板1.画椭圆 (画板1.画板宽度 － (当前点 ＋ 1) × 格宽 － 2, －(百分之一的高度 × CPU记录 [i] － 画板1.画板高度) － 2, 画板1.画板宽度 － (当前点 ＋ 1) × 格宽 ＋ 2, －(百分之一的高度 × CPU记录 [i] － 画板1.画板高度) ＋ 2)  '不好看

        画板1.画直线 (画板1.画板宽度 － (当前点 ＋ 1) × 格宽, －(百分之一的高度 × CPU记录 [i] － 画板1.画板高度), 画板1.画板宽度 － 当前点 × 格宽, －(百分之一的高度 × CPU记录 [i ＋ 1] － 画板1.画板高度))

    .如果真结束
    当前点 ＝ 当前点 ＋ 1
.变量循环尾 ()
' 调试输出 (“----------------------------------------------------------------------------------------------------”)

.子程序 _主窗口_尺寸被改变

画板1.移动 (0, 0, 主窗口.取用户区宽度 (), 主窗口.取用户区高度 ())
格宽 ＝ 选择 (画板1.画板宽度 ÷ 20 ＞ 10, 10, 画板1.画板宽度 ÷ 20)
' 调试输出 (格宽)
绘画 ()

@[不速之客]