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

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

2、20b = b + 1ReDim Preserve p(b)ReDim Preserve q(b)p(b) = txt1q(b) = txt2shpblue.Height = txt1 * 9shpblue.Top = 3555 + 2700 - txt1 * 9If b Mod 50 = 0 And b >= 50 Thenpic1.Cls'生成随机数Elsepic1.Line (80 * (b Mod 50 - 1), 3000 - p(b - 1) * 10)-(80 * (b Mod 50), 3000 - p(b) * 10),&HFF'画对应曲线pic

3、1.Line (80 * (b Mod 50 - 1), 3000 - q(b - 1) * 10)-(80 * (b Mod 50), 3000 - q(b) * 10), &HFF0000End IfEnd SubPrivate Sub Timer2_Timer()If Val(txt1) > Val(frm2.txt3) Then lbl3.Caption = "液体超上限" Else lbl3.Caption = ""'出现闪烁的提示If Val(txt2) > Val(frm2.txt4) Then lbl4.Cap

4、tion = "温度超上限" Else lbl4.Caption = ""lbl3.Visible = Not lbl3.Visiblelbl4.Visible = Not lbl4.VisibleEnd Sub对于数据的保存是课本上的内容，具体代码如下：Private Sub cmd2_Click()Open "d:data.txt" For Output As #2Print #2, " 时间 (s), 温度 (), 液体 (cm)"Close #2For m = 1 To bOpen "D:data

5、.txt" For Append As #3Write #3, m, p(m), q(m)Close #3'保存数据NextEnd Sub本题有两个窗口，第二个窗口主要是对数据的修改，界面如图：可对数据进行保存，代码如下：Private Sub cmd4_Click()m = Val(txt3.Text)n = Val(txt4.Text)Open "d:bjz.txt" For Output As #1'保存报警值Print #1, mPrint #1, nClose #1frm2.Hide'画直线四总结本题仅作为我另外一个题目的补充，原因在于我那个5 星级的题目不是很成功。在