您现在的位置是：新闻
小爆破安全计算程序
2018-09-17 08:58新闻
简介软件系统设计分析 拆除爆破设计中，爆破安全验算是最重要的工作环节之一。主要由于爆破危害具有一定的不可预测性，而且爆破安全验算复杂、计算工作量大，加上各种客观条件的影响，爆破安全验算很难达到理想的效果。 本次设计以拱桥拆除为基础，利用VB程序设计...
软件系统设计分析
拆除爆破设计中，爆破安全验算是最重要的工作环节之一。主要由于爆破危害具有一定的不可预测性，而且爆破安全验算复杂、计算工作量大，加上各种客观条件的影响，爆破安全验算很难达到理想的效果。
本次设计以拱桥拆除为基础，利用VB程序设计软件，对拱桥拆除爆破常见的爆破安全危害进行安全验算，计算出各种爆破安全参数。
一、系统设计原理
由于爆破环境的不同，需要验算的项目也不同。复杂环境下进行桥梁拆除爆破需要验算的有：爆破震动安全验算、爆破冲击波安全验算、爆破飞石距离安全验算、涌浪分析等。使用者可根据需要验算单独某项或多项。
软件的工作结构流程图如下：
二、软件功能介绍
（一）、启动画面
启动画面窗体主要作用是显示软件名称、作者信息。使用了VB中的定时控件（Timer）让窗体在规定时间内（2500ms）自动跳转到主面板，用户也可以通过单击事件（click）直接进入主面板。
用户单击窗体或者2500ms后，程序调用了Unload 语句从内存中卸载启动窗体以节省内存，然后打开主面板。
（二）、主面板
主面板是爆破安全验证系统中使用最多的窗体，所有安全验算功能的进入口集成于此，使用者可根据需要点击相应按钮，即可进入相应的选项。
各命令按钮所依旧使用Unload命令卸载掉主面板，然后使用Show命令显示下一级窗口。使用Unload命令而不用Hide命令，其优点是Unload命令将卸载掉窗体，节省系统所占用的内存，从而提高系统的运行速度。
用户也可用Alt加命令按钮上的响应字母执行该命令，如Alt+q可退出系统。另外按Esc亦可退出系统。下一级的子窗口均有此功能。
（三）、爆破震动
爆破震动安全验算包括了爆破震动安全距离、爆破质点振速、最大起爆药量三个验算项目。用户选择相应的验算项目后，系统会自动显示该项目的验算公式、所需数据等。输入数据完毕后，单击“计算”按钮即可进行该项目的验算。如果数据有误或数据不全，系统会报错并做相应提示，如下图。
由于爆破震动安全验算所需要的数据较多，软件设计时所建立的对象也较多，使用的命令也是较为复杂。为了方便程序后期的调试，软件编码时，使用了较为方便阅读的If…Then…Else单行选择结构和If…Then…EndIf多行选择结构，以方便程序后期调试。其选择结构流程图如下：
为了防止溢出错误，需强制要求输入的数据一定为数字，程序使用了如下代码来实现这个功能：
Private Sub TextR_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >=Asc(0) And KeyAscii <= Asc(9) Or KeyAscii = 8 Or KeyAscii = 46) Then
MsgBox “您输入的不是数字，请输入数字”，，”错误”
KeyAscii = 0
End If
End Sub
其原理就是将输入的数据的ASC码限制在0~9以及回车键、小数点键之内。如果不是数字，将会弹出对话框进行提示。
（四）、爆破冲击波
爆破冲击波需要验算的有两个项目：冲击波超压值、安全距离。用户选择所需验算的项目后，输入数据即可进行相应验算。
由于冲击波超压值一般较小，而VB默认不能显示小数点前面的0，所以使用Format语气格式化数据，其格式如下：
Format(表达式，[格式字符串])
（五）、爆破飞石、涌浪分析
设计方法及所用代码与前面窗体大同小异，用户只需输入相应数据即可进行验算。
拆除爆破设计中，爆破安全验算是最重要的工作环节之一。主要由于爆破危害具有一定的不可预测性，而且爆破安全验算复杂、计算工作量大，加上各种客观条件的影响，爆破安全验算很难达到理想的效果。
本次设计以拱桥拆除为基础，利用VB程序设计软件，对拱桥拆除爆破常见的爆破安全危害进行安全验算，计算出各种爆破安全参数。
一、系统设计原理
由于爆破环境的不同，需要验算的项目也不同。复杂环境下进行桥梁拆除爆破需要验算的有：爆破震动安全验算、爆破冲击波安全验算、爆破飞石距离安全验算、涌浪分析等。使用者可根据需要验算单独某项或多项。
软件的工作结构流程图如下：
二、软件功能介绍
（一）、启动画面
启动画面窗体主要作用是显示软件名称、作者信息。使用了VB中的定时控件（Timer）让窗体在规定时间内（2500ms）自动跳转到主面板，用户也可以通过单击事件（click）直接进入主面板。
用户单击窗体或者2500ms后，程序调用了Unload 语句从内存中卸载启动窗体以节省内存，然后打开主面板。
（二）、主面板
主面板是爆破安全验证系统中使用最多的窗体，所有安全验算功能的进入口集成于此，使用者可根据需要点击相应按钮，即可进入相应的选项。
各命令按钮所依旧使用Unload命令卸载掉主面板，然后使用Show命令显示下一级窗口。使用Unload命令而不用Hide命令，其优点是Unload命令将卸载掉窗体，节省系统所占用的内存，从而提高系统的运行速度。
用户也可用Alt加命令按钮上的响应字母执行该命令，如Alt+q可退出系统。另外按Esc亦可退出系统。下一级的子窗口均有此功能。
（三）、爆破震动
爆破震动安全验算包括了爆破震动安全距离、爆破质点振速、最大起爆药量三个验算项目。用户选择相应的验算项目后，系统会自动显示该项目的验算公式、所需数据等。输入数据完毕后，单击“计算”按钮即可进行该项目的验算。如果数据有误或数据不全，系统会报错并做相应提示，如下图。
由于爆破震动安全验算所需要的数据较多，软件设计时所建立的对象也较多，使用的命令也是较为复杂。为了方便程序后期的调试，软件编码时，使用了较为方便阅读的If…Then…Else单行选择结构和If…Then…EndIf多行选择结构，以方便程序后期调试。其选择结构流程图如下：
为了防止溢出错误，需强制要求输入的数据一定为数字，程序使用了如下代码来实现这个功能：
Private Sub TextR_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >=Asc(0) And KeyAscii <= Asc(9) Or KeyAscii = 8 Or KeyAscii = 46) Then
MsgBox “您输入的不是数字，请输入数字”，，”错误”
KeyAscii = 0
End If
End Sub
其原理就是将输入的数据的ASC码限制在0~9以及回车键、小数点键之内。如果不是数字，将会弹出对话框进行提示。
（四）、爆破冲击波
爆破冲击波需要验算的有两个项目：冲击波超压值、安全距离。用户选择所需验算的项目后，输入数据即可进行相应验算。
由于冲击波超压值一般较小，而VB默认不能显示小数点前面的0，所以使用Format语气格式化数据，其格式如下：
Format(表达式，[格式字符串])
（五）、爆破飞石、涌浪分析
设计方法及所用代码与前面窗体大同小异，用户只需输入相应数据即可进行验算。
Tags：爆破,安全,计算,程序,软件系统,设计,分析,拆除,爆破,安
相关文章
点击排行
黄岛“街头美容师”的一天