文件名称:
物联网应用系统课设-智能化工厂危险源监控系统.pdf
开发工具:
文件大小: 683kb
下载次数: 0
上传时间: 2019-09-04
详细说明:安徽工业大学物联网应用系统课程设计,智能化工厂危险源监控系统,Unity写的一个程序,只有文档pdf。传感器数据库
围 control
sensor
字段名称
数据类型
datetime
日期/时间
temperature
数字
温度浮点
humidity
数字
湿度百分比
windspeed
数字
风速浮点
winddirection短文本
风向文本
H2S
数字
H2S浮点
coa⊥gas
数字
煤气浮点
speedofflow
数字
2.系统设计
(1).程序功能模块图;
(2).功能描述
实现坐在办公室能够查看工厂内的所有情况
实现坐在办公室能够查看设备情况:
实现系统能够自动根据各项数据给出报警信息:
3.系统实现
包括界面和操作说明
1.通过 unI ty模拟一个工厂的运行。其中包括有温度、湿度、风速、风向、H2S浓度等数据的检
测,并按·定的频率写入数据库中
2.主要的软件监控界面
snare
Manag
的工
文件(F编相(视图(帮助)控制
温度
湿度
风速风向
H2S
+++
控制
+++++↓
⊥⊥
⊥⊥
当前时刻温度:3500
当前煤气浓度过高
实时显示当前的坏境温度、湿度。当超过某项超过警告值时,会字体变红进行显示。
当前时刻温度:12.00
当前环境湿度过高
20AE
当前时刻温度:3000
当前环境风速过高
当前煤气浓度过高
2.设备控制界面,可以通过软件进行开关阀门,调节流量大小
设备控制
阀门开关
开
「关
流速控制:
Static
大
4.系统代码实现
void FActory ManagementView:: Draw(CDC* pDC
p=m queue. front:
//CFont font
/font. CreatePointFont(300,T("宋体"));
CString str
Pen black pen
black Pen CreatePen (PS SOLID, 2, RGB(0,0, 0
switch (m type
case temperature:
Grid(pDC)
pDC->SelectObject(&black Pen)
str
50
DC->TextOut W(45+30* 19, 30, str)
if (m count data <-20)
pDC->MoveTo(50+30 *(20-m count data),300-p->data. temperature
25/5.0
str. Format(T("当前时刻温度:%.2f"),p->data. temperature)
pDC->TextOutW(50, 330, str
D>next
p
int i- m count data-1
while (p)
pDC->LineTo(50+(20-1)* 30, 300-p->data. temperature N: 25/5.0)
str. Format(T("当前时刻温度:%.2f"),p->data. temperature)
pDC->TextOut W(50, 330, str
p p->next,
else
pDC->Move To(50, 300- p->data. temperature 25/5.0)
str.上 ormat(T("当前吋刻温度:%.2f"), p->data. temperature
pDC->TextOutW(50, 330, str)
p=p>next
for (int i=1: i< 20: i++)
DC->LineTo(50+30 *i,(300-p->data. temperature 25/5.0))
str. Format(T("当前时刻温度:%.2f"),p->data. tcmperature)
pDC->T'extOutW (50, 330, str)
pp>next
break
case humidity
Grid(pDC)
pDC- >SelectObject(&black Pen)
tr="100%″
pDC->TextOutW (45+30** 19, 30, str)
if (m count data <= 20)
pDC>MoveTo(50+ 30 *(20-m count data), 300 p>data. humidity 25
str. Format.(T("当前时刻湿度:%2.2f"),p->data. humidity*100
str t
pDC->Text OutW(50, 330, str
D>next
p
int i- m count data-1
while (p)
pDC->LineTo(50+(20-1) 30, 300- p->data. humidity x 25/0.1)
str. Format(T("当前时刻湿度:%2.2f"),p>data. humidity*100)
tr+="%
pDC->Textout W(50, 330, str)
pDC'->MoveTo(50, 300
data humid
str. Format(T("当前时刻湿度:%2.2f"),p->data. humidity*100)
Str
pDC->TextOutW(50, 330, str)
for (int i
i<20;i++)
pDC>LineTo (50+ 30 *k i, 300- p>data. humidity k 25/0.1)
str. Forma(T("当前时刻湿度:%2.2f"),p>data. humidity*100)
DC->TextOut W (50, 330, str)
p=p->I
break
case win
Grid(pdc)
DC->SelectOb ject(&black Pen)
str
15
pDC- >TextOutW(45+ 30 *k 19, 30, str)
f (m count data <=20)
pDC-》 MoveTo(50+30来(20- m count data),300-p->data. windspeed来25
/1.5)
str. Format(T("当前吋刻风速:%.2f"),p-data. windspeed)
pDC->TextOutW(50, 330, str)
if (p>data windspeed ! =0)
str. Format(T("当前时刻风向:‰s
,p->data winddirection);
str. Format(T("当前时刻风向:无风
)
pDC->TextOutW(50, 360, str)
p= p->next
int i =m count data -1
hile (p)
pDC >LineTo(50+(20 i)*30, 300 p>data windspeed *k 25/1.5)
str. Format(T("当前时刻风速:%.2f"),p->data. windspeed);
DC->TextOut W(50, 330, str)
if (p->data windspeed -0
str. Format(T("当前时刻风向:%s"),p-data. winddircction);
else
str. Format(T("当前时刻风向:无风"))
pDC >TextOutW(50, 360, str)
p->next:
else
pDC->MoveTo(50, 300- p->data windspeed 25/1.5)
str. FOrmat(T("当前时刻风速:%.2f"),p>data. windspeed)
pDC->TextOutW(50, 330, str)
f (p->data. windspeed !=0)
str. Format(T("当前时刻风向:‰s"),p->data. winddirection)
C⊥SC
str. Format(T("当前时刻风向:无风
DDC-TextOutW(50, 360, str)
p= p->next:
(inti=1;i<20;i++)
pDC >LineTo(50+ 30 *k i, 300 p>data windspeed *k 25/1.5)
str. Format(T("当前时刻风速:‰.2f"),p->data. windspeed);
pDC >TextOutW(50, 330, str)
if (p->data windspeed ! -0)
str. Format(T("当前时刻风向:%s"),p->data. winddirection)
I se
str. Format(T("当前时刻风向:无风
pDC->TextOutW(50, 360, str)
p- p
break
case H2s
Grid(pDC
pDC->SelectOb ject(&black Pen
tr="500
pDC->TextOut W(45+ 30 * 19, 30, str)
f (
nt data <= 20)
pDC->MoveTo(50+ 30 *(20-m count data), 300-p->data H2S *0.5)
str. Format(T("当前时刻Ⅲ2S浓度:%.2f"),p)data.2S);
pDC->TextOutW(50, 330, str)
p= p->next
int 1-m
while (p)
pDC- > Lincto(50+(20-i)*30,300-p->data.H2S*0.5)
str. Format(T("当前时刻H2S浓度:%.2f"),p-data.H2S);
oDC->TextOutW(50, 330, str)
p-p->next
CISC
pDC-> MoveTo(50, 300- p->data H2S *0.5)
str. Format(T("当前时刻I2S浓度:%.2f", p>data.2S);
pDC->TextOutW(50, 330, str)
p= p->next
20;i
DC Line To(50+ 30 k i, 300 p>data 112S x 0. 5)
str. Format(T("当前时刻H2S浓度:%.2f"),p->data.H2S);
pDC >TextOutW(50, 330, str
p-p/ne
break
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.