VB程序集模拟监控程序VB课程设计报告——模拟监控程序.docVIP

课程设计报告——模拟监控程序 班级 学号：0501510207 姓名：王天硕 题目要求 本题目要求编制一个模拟监控程序，模拟监测一个反应釜中的液面和温度变化情况。温度和液位的采样值由计算机随机生成。 二．使用的知识点有 1．绘图。2．颜色。3．多模块设计。4．定时器控件。5．文本文件读取。6．动态数组。7．随机值生成。 三．编写过程 作为一个2星级的题目，本题的难度不大，在编写的过程中基本上没遇到什么困难。主界面如图： 本题使用计时器事件是一个重点，具体代码如下： Private Sub Timer1_Timer() txt1 = Rnd * 201 + 100 生成随机数 txt2 = Rnd * 101 + 20 b = b + 1 ReDim Preserve p(b) ReDim Preserve q(b) p(b) = txt1 q(b) = txt2 shpblue.Height = txt1 * 9 shpblue.Top = 3555 + 2700 - txt1 * 9 If b Mod 50 = 0 And b = 50 Then pic1.Cls E