基于visual basic瓦斯报警监控系统Word下载.docx
- 文档编号:17615536
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:18
- 大小:524.65KB
基于visual basic瓦斯报警监控系统Word下载.docx
《基于visual basic瓦斯报警监控系统Word下载.docx》由会员分享,可在线阅读,更多相关《基于visual basic瓦斯报警监控系统Word下载.docx(18页珍藏版)》请在冰豆网上搜索。
1.1系统概述4
1.2组成及各模块功能4
1.3运行环境4
2系统设计4
2.1设计思想4
2.2流程图4
3系统实现5
3.1源代码5
3.1.1用户登录5
3.1.2用户注册6
3.1.3用户密码修改6
3.1.4绘制实时动态曲线6
3.1.5datagrid控件和数据库6
3.2界面抓图和系统使用6
3.2.1开始界面6
3.2.2用户登录界面6
3.2.3用户注册界面6
3.2.4用户密码修改界面6
3.2.5动态数据曲线界面6
3.2.6采用datagrid控件显示数据6
3.2.7报表打印6
4总结6
5参考文献6
5.1《visualbasic程序设计》(第二版),王学军张玉梅中国铁道出版社6
5.2《VisualBasic6.0绘制实时曲线》,编程爱好者博客http:
//6
1系统功能需求分析
1.1系统概述
瓦斯监控系统基于visualbasic语言设计,是集数据提取,数据描绘,数据处理,数据实现于一体的监控瓦斯浓度的系统,并能实现瓦斯浓度超标报警的功能。
系统引入了vb的基本功能及模块,成功运用access数据库和datareport报表。
1.2组成及各模块功能
Access实现了数据的存储、提取功能,构成了该系统的核心部分,用户的管理和瓦斯浓度的监测都用到了该组件。
Vb庞大的控件和模块为该系统提供了支持,datareport实现了报表的打印,使得瓦斯浓度数据更加直观的展现并能够打印。
1.3运行环境
该系统既可以在visualbasic程序中运行,也可以转换成exe格式,能够在任意环境下不需安装运行。
2系统设计
2.1设计思想
近几年瓦斯事故频繁发生,而基于visualbasic语言能够实现瓦斯浓度的监控。
2.2流程图
瓦斯报警监控系统
用户管理
数据处理
数据库
用户删除
用户密码修改
用户登录
报表制作
实时曲线绘制
随即函数
监控报警
数据获取
数据打印
用户注册
3系统实现
3.1源代码
3.1.1用户登录
与数据库链接,实现了用户名和密码的验证登陆
DimtrytimesAsInteger
PrivateSubCommand1_Click()
IfText1.Text="
"
OrText2.Text="
Then
MsgBox"
用户名或密码不能为空,请重新输入!
vbOKOnly+vbExclamation,"
警告"
Text1.SetFocus
Else
Adodc1.RecordSource="
select*from用户表where用户名='
&
Text1.Text&
"
'
and密码='
Text2.Text&
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
用户名或密码输入错误,请重新输入!
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
trytimes=trytimes+1
Iftrytimes>
=3Then
您已经三次尝试本系统,均不成功,系统将关闭"
UnloadMe
EndIf
Me.Hide
Form6.Show
EndSub
PrivateSubCommand2_Click()
End
PrivateSubCommand3_Click()
Form2.Show
Form2.Text1.SetFocus
PrivateSubCommand4_Click()
Form3.Show
PrivateSubTimer1_Timer()
PrivateSubCommand5_Click()
Me.Hide
Form6.Show
3.1.2用户注册
采用数据库实现了用户的注册
请输入用户名!
信息提示"
IfNotAdodc1.Recordset.EOFThen
用户名已存在,请重新输入用户名!
Text1.Text="
:
Text2.Text="
Text3.Text="
IfText2.Text<
>
Text3.TextThen
两次输入密码不一样,请确认!
Text2.SetFocus
select*from用户表"
WithAdodc1.Recordset
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("
用户名"
)=Text1.Text
密码"
)=Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Close
EndWith
添加用户成功!
添加用户"
Form1.Show
EndSub
3.1.3用户密码修改
数据库的应用实现了用户密码的修改
IfText1.Text="
Else
Text4.Text="
IfText3.Text<
Text4.TextThen
密码输入不正确,请确认"
Text3.SetFocus
)=Text3.Text
密码修改成功!
密码修改"
EndIf
3.1.4绘制实时动态曲线
采用数据库,picturebox控件,line方法实现实时动态曲线的描绘,采用随机函数模拟瓦斯浓度
OptionExplicit
DimDataFromComAsInteger'
从串口读过来的实时值
DimDataFromComLastAsInteger'
上次的串口值
DimTimeCountAsInteger
DimaAsInteger'
DimbAsInteger'
DimcAsInteger
DimdAsInteger'
DimeAsInteger'
DimfAsInteger
PrivateSubPicScale(picXAsPictureBox)'
调整图像框的坐标系
picX.Scale(0,picX.ScaleHeight)-(picX.ScaleWidth,-picX.ScaleHeight)
PrivateSubPicMidleLine(picXAsPictureBox)'
在图像框中画一条中线
picX.Line(0,0)-(picX.ScaleWidth,0),vbGreen'
画出中线
PrivateSubDrawRealLine(picXAsPictureBox,TIMECOUNTXAsInteger,DataFromComXAsInteger,DataFromComLastXAsInteger,axAsInteger,bxAsInteger,cxAsInteger,dxAsInteger,exAsInteger,fxAsInteger)
IfTIMECOUNTX>
=0Then
picX.Line((TIMECOUNTX-1)*10,DataFromComLastX)-(TIMECOUNTX*10,DataFromComX),vbWhite
Ifax>
picX.Line((ax-1)*10,cx)-(ax*10,bx),vbRed
Ifdx>
picX.Line((dx-1)*10,fx)-(dx*10,ex),vbYellow
UnloadMe
Form4.Show
Form1.Show
endSub
PrivateSubPic_Click()
DataFromComLast=DataFromCom
c=b
f=e
Randomize
DataFromCom=3000*Rnd+1000
b=3000*Rnd+1000
e=3000*Rnd+1000
IfDataFromCom>
3900Then
MsgBox"
一区瓦斯浓度超标,请采取措施"
vbOKOnly,"
Ifb>
二区瓦斯浓度超标,请采取措施"
Ife>
三区瓦斯浓度超标,请采取措施"
a=a+5
d=d+5
TimeCount=TimeCount+5
DrawRealLinePic,TimeCount,DataFromCom,DataFromComLast,a,b,c,d,e,f'
画出实时的曲线
PrivateSubTimer2_Timer()
Label3.Caption=Hour(Now)&
Minute(Now)&
Second(Now)
PrivateSubTimer3_Timer()
select*from瓦斯浓度表where监测点='
select*from瓦斯浓度表where时间='
Hour(Now)&
Second(Now)&
select*from瓦斯浓度表where瓦斯浓度='
DataFromCom&
”
select*from瓦斯浓度表"
时间"
)=Hour(Now)&
监测点"
瓦斯浓度"
)=DataFromCom
PrivateSubTimer4_Timer()
Adodc1.RecordSource="
b&
)=b
PrivateSubTimer5_Timer()
Text3.Text&
e&
)=e
3.1.5datagrid控件和数据库
DataReport1.Show
3.2界面抓图和系统使用
3.2.1开始界面
使用photoshop图片处理软件制作
3.2.2用户登录界面
登录界面由用户名、密码、登录按钮、退出按钮、注册按钮、修改密码按钮组成。
登录时写入用户名和密码单击登录按钮进行登录,修改密码和注册新用户直接按相应的按钮。
3.2.3用户注册界面
注册界面由用户名、密码、确认密码组成,注册用户是输入用户名和密码,确认密码和密码要相同,然后单击注册。
3.2.4用户密码修改界面
用户密码修改界面由用户名、原密码、密码、确认密码、确认键组成。
输入用户名和原来密码,再输入新密码,单击确认键。
3.2.5动态数据曲线界面
动态函数曲线界面由picturesbox控件、打印报表、返回键组成。
在picturesbox中以实时动态函数曲线的形式展示了瓦斯浓度。
独有的监控系统让使用者轻松发现瓦斯浓度超标情况,采取有效措施。
单击打印报表键能够实现瓦斯浓度数据的打印。
3.2.6采用datagrid控件显示数据
在瓦斯浓度表上清晰的显示出来各个监测点在各个时间的瓦斯浓度,为报表的打印做好了基础。
单击打印报表即可进行报表的打印。
3.2.7报表打印
datareport控件和dataenvironment控件的结合,实现报表打印,相应数据清晰显示。
关闭报表时只需关闭报表窗口即可。
4总结
选题时,瓦斯报警监控系统让我眼睛一亮,这是一个具有超级现实意义的系统,有很强的实用型,引起了我的兴趣,毫不犹豫的选择了它。
咋一接触,发现它并没有开始想象的让人心动,它的核心需要数据库知识,需要报表打印,这都是从来没有学过的,而最为困难的是实现数据已动态曲线形式体现。
我暗自为自己的选择后悔,但他的困难又激发了我征服她它的欲望,对他的的编程就如同是一条荆棘之路。
每一点都需要学习因为从未接触过数据库、报表、实时曲线,从头开始。
年前学弟基础也有部分遗忘,让我的编程难上加难。
让我一度不知所措、急躁不安。
前几天仅仅完成了用户的管理部分,后面的硬骨头毫无进展。
仅仅实时动态曲线的知识就让我查阅了两天。
初步学会了line方法和picturebox控件的使用。
我班的国伟一步一步脚踏实地地做,不会的就查书,在我之前就做好了用户管理的数据库,让我新生敬意,也让我很是惭愧,感觉自己太不用功了。
第一次阶段性检查,我做的不好,成绩不高,我暗下决心一定要努力做的尽可能完美,取得一个较好的成绩。
因此我采用了不同于其他两个同学的动态实时曲线。
15号下午,我完成了程序的设计,对自己的设计颇为满意。
很不幸,晚上我选的那台机器竟然有病毒,1k快捷方式病毒把我的文件都给变成快捷方式了。
我满怀信心的用1k快捷杀毒软件查杀了我的U盘,但是我的大部分文件都被删除了,设计的程序就在其中。
我顿时紧张起来,这可是我花了9天时间做的啊,最重要的是老师还要检查,而我第一阶段检查的成绩很差。
我尝试着在网络上查找一些可以恢复文件的方法,最终我用金山U盘专杀把我的文件给修复了,不过是下午之
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于visual basic瓦斯报警监控系统 基于 visual basic 瓦斯 报警 监控 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)