- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
课程设计报告——模拟监控程序
班级 学号: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星级的题目不是很成功。在本题的制作过程中,是相当顺利的,唯一的一点问题是关于图形绘制,虽然开始不怎么熟练,经过查书解决了问题,可以说这个程序我自认做的十分完美,希望可以派上用场。
您可能关注的文档
- 高斯讲座和教你怎样分析NBO输出文件.pdf
- 有关CQA和CPP的资源10.浅谈质量源于设计-新华研究院人员撰写.doc
- 装修资料装修流程装修顺序.doc
- 抛丸机安全操作规程.doc
- 第五版现场用表B类表文件夹B.1.4工程质量报验表.doc
- 各科专业题园林专业园林艺术与设计原理试卷.doc
- 管理学管理学试题+答案管理学(A卷).doc
- 方差分析-学员数据分析方差分析-学员数据分析.docx
- 2018年山东餐饮业发展调查报告.docx
- DB36T 1964-2024 新型冠状病毒基因溯源技术规范.docx
- DB36T 1956-2024 养老机构老年人自带药品管理规范.docx
- DB36T 1960-2024 早稻早播气象服务规范.docx
- DB36T 1962-2024 螺情消长评估技术规范.docx
- DB36T 1963-2024 麻疹风疹网络实验室管理规范.docx
- DB36T 1965-2024 工程项目血吸虫病卫生学评估规范.docx
- DB36T 1966-2024 移动方舱PCR实验室管理规范.docx
- DB36T 1970-2024 小蚕人工饲料饲育技术规程.docx
- DB36T 1972-2024 薏米栽培技术规程.docx
- DB36T 1973-2024 脐橙副产物袋装微贮技术规程.docx
- DB36T 1974-2024 酒糟与甜叶菊渣混合袋装微贮技术规程.docx
文档评论(0)