.版本 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) ' 调试输出 (格宽) 绘画 ()