曲线实时检测CPU内存

也可以自己调整刷新速度很好的例子，大家可以学习一下。
' 采用即擦即画的办法，避免闪烁，这样整个画板只有一小块区域在重画，感觉就不闪烁了。
画板1.清除 (0, 0, x ＋ 1, )
.计次循环首 (400 － 1, i)
画板1.清除 (i × x ＋ 1, 0, x ＋ 1, ) ' 只清除很窄的一块画板区域
' 画表格
画板1.画笔颜色 ＝ #蓝色
.计次循环首 (9, j)
.如果真 (i ％ 5 ＝ 1 或 j ＝ 5)
画板1.画直线 (i × x, j ÷ 10 × 画板1.高度, (i ＋ 1) × x, j ÷ 10 × 画板1.高度)
.如果真结束

.计次循环尾 ()
' 画CPU曲线
画板1.画笔颜色 ＝ #红色
画板1.画直线 (i × x, (100 － cpu曲线 [i]) × y, (i ＋ 1) × x, (100 － cpu曲线 [i ＋ 1]) × y)
' 画内存曲线
画板1.画笔颜色 ＝ #绿色
画板1.画直线 (i × x, (100 － 内存曲线 [i]) × y, (i ＋ 1) × x, (100 － 内存曲线 [i ＋ 1]) × y)
.计次循环尾 ()