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 Else pic1.Line (80 * (b Mod 50 - 1), 3000 - p(b - 1) * 10)-(80 * (b Mod 50), 3000 - p(b) * 10), &HFF '画对应曲线 pic1.Line (80 * (b Mod 50 - 1), 3000 - q(b - 1) * 10)-(80 * (b Mod 50), 3000 - q(b) * 10), &HFF0000 End If End Sub Private Sub Timer2_Timer() If Val(txt1) > Val(frm2.txt3) Then lbl3.Caption = "液体超上限" Else lbl3.Caption = "" '出现闪烁的提示 If Val(txt2) > Val(frm2.txt4) Then lbl4.Caption = "温度超上限" Else lbl4.Caption = "" lbl3.Visible = Not lbl3.Visible lbl4.Visible = Not lbl4.Visible End Sub 对于数据的保存是课本上的内容，具体代码如下： Private Sub cmd2_Click() Open "d:\data.txt" For Output As #2 '保存数据 Print #2, "时间(s), 温度(℃), 液体(cm)" Close #2 For m = 1 To b Open "D:\data.txt" For Append As #3 Write #3, m, p(m), q(m) Close #3 Next End Sub 本题有两个窗口，第二个窗口主要是对数据的修改，界面如图： 可对数据进行保存，代码如下： Private Sub cmd4_Click() m = Val(txt3.Text) n = Val(txt4.Text) Open "d:\bjz.txt" For Output As #1 '保存报警值 Print #1, m Print #1, n Close #1 frm2.Hide frm1.linred.Y1 = 3000 - Val(txt3) * 10 '画直线 frm1.linred.Y2 = 3000 - Val(txt3) * 10 frm1.linblue.Y1 = 3000 - Val(txt4) * 10 frm1.linblue.Y2 = 3000 - Val(txt4) * 10 四．总结 本题仅作为我另外一个题目的补充，原因在于我那个5星级的题目不是很成功。在本题的制作过程中，是相当顺利的，唯一的一点问题是关于图形绘制，虽然开始不怎么熟练，经过查书解决了问题，可以说这个程序我自认做的十分完美，希望可以派上用场。