雷电风险评估软件

成都信息工程学院课程设计报告电子工程学院课程名称：高级程序设计语言A 学生姓名：周陈栋仁学生学号： 2009024066 专业班级：雷电防护科学与技术092班任课教师：林宏刚2013年03 月08 日成绩评定表程序编译和功能演示（30%）编程代码质量（10%）编程水平与程序设计能力（30%）程序设计说明书（论文）撰写质量（30%）总分附件：成绩评价表目录1. 程序设计 (1)2. 程序功能模块详细设计（源代码+程序说明） (3)3. 程序功能演示和测试结果 (10)结论 (13)1. 程序设计1.1程序设计目标参照GB50343-2010《建筑物电子信息系统防雷技术规范》相关公式内容编写，主要用于建筑物电子信息系统雷电防护等级的计算。

1.2 程序运行环境本软件在Visual C++ 6.0环境下运行1.3 程序功能模块设计一、程序功能模块划分1.系统功能模块框图图1 系统功能模块框图2.各功能的具体实现内容菜单栏：(1)文件：打开文件，浏览保存文本文档，方便查询历史信息；保存各项参数及结果于文本文档；退出程序(2)规范：提供与程序相关的规范，进行参考 (3)帮助：程序的使用方法；程序编程说明；关于主界面：(1)参数输入：输入各项参数，并通过点击相应运算按钮进行计算 (2)结果输出：输出防雷装置拦截效率（E ），并显示雷电防护等级 (3)信息提示：若参数输入缺少或错误在提示框内显示提示信息 (4)重置：输入的各项参数全部清楚，恢复到默认状态二、 功能实现流程图雷电防护等级菜单栏 主界面文件 规范 帮助 提示信息 打开 保存 退出输入参数 重置 显示结果运算(N1) 运算(N2)运算(Nc)防护等级使用说明 编程说明 关于图2 系统主功能实现流程图2. 程序功能模块详细设计（源代码+程序说明）2.1客户端三、 数据结构定义1.结构体struct NOne {double K; //校正系数 Kint Td; //年平均雷暴日，根据当地气象台、站资料确定 (d/a)double L; //建筑物的长 L double W; //建筑物的宽 W double H; //建筑物的高 H开始输入N1部分的参数运算(N1)输入N1部分的参数 运算(N2)输入N1部分的参数 运算(Nc)防护等级结束信息提示重置输入清除 恢复默认输入有误提示错误 再次输入double Ng; //建筑物所处地区雷击大地的年平均密度Ng(次/km^2/a)double Ae; //与建筑物截收相同雷击次数的等效面积Ae(km^2)double N1; //建筑物年预计雷击次数 N1(次/a)}nOne;struct NTwo{double ds; //埋地引人线线计算截收面积时的等效宽度。

单位为m，其数值等于土壤电阻率，最大值取500double L1; //低压架空电源电缆double L2; //高压架空电源电缆（至现场变电所）double L3; //低压埋地电源电缆double L4; //高压埋地电源电缆（至现场变电所）double L5; //架空信号线double L6; //埋地信号线double Ae1; //入户设施的有效截收面积 A'e(km^2)double N2; //人户设施年预计雷击次数 N2(次/a)}nTwo;struct NC{double C1; //C1 为信息系统所在建筑物材料结构因子double C2; //C2 为信息系统重要程度因子double C3; //C3 为电子信息系统设备耐冲击类型和抗冲击过电压能力因子double C4; //C4 为电子信息系统设备所在雷电防护区(LPZ)的因子double C5; //C5 为电子信息系统发生雷击事故的后果因子double C6; //C6 为区域雷暴等级因子double Nc; //建筑物电子信息系统设备，因直击雷和雷电电磁脉冲损坏可接受的年平均最大雷击次数最大年平均雷击次数Nc(次/a)}nCe;struct LiPr{double N; //建筑物及人户设施年预计雷击次数(N)double E; //防雷装置拦截效率}lip;2.字符量及全局变量#define PI 3.1415926TCHAR strTime[256]; //x年x月x日 x:x:x3.函数定义1)调用的系统内部的函数函数名功能说明ShellExecute 运行一个外部程序GetDlgItemText 获得与对话框中的控件相关的标题或文本SetDlgItemText 设置对话框中控件的文本和标题GetOpenFileName 用户指定驱动器、目录和文件名、或用户打开文件GetSaveFileName 以便用户指定驱动器、目录和文件名MessageBox 消息提示框sprintf 把格式化的数据写入某个字符串fopen 用来打开一个文件fclose 关闭文件fscanf 从文件格式化读内容fprintf 向文件格式化写内容2)自定义的函数void ButtonN1(HWND hwnd); //IDC_OKN1 运算按钮void ButtonN2(HWND hwnd); //IDC_OKN2 运算按钮void ButtonNc(HWND hwnd); //IDC_OKNc 运算按钮void ButtonLP(HWND hwnd); //IDC_OKLP 雷电防护等级按钮void SetOption(HWND hwnd); //设置下拉列表选项void SetZero(HWND hwnd); //置0，默认void OpenText(HWND hwnd); //打开void SaveText(HWND hwnd); //保存void SaveDate(HWND hwnd, TCHAR filename[MAX_PATH]);//保存数据void CALLBACK MyTimerProc(HWND hwnd, UINT message, UINT iTimerID, DWORD dwTime); //日期时间显示BOOL IsDigit(TCHAR* str); //判断输入是否合法四、算法设计void Main_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify){switch(id)/************************ 文件 ************************/{case ID_MENUITEMOPEN: //打开{OpenText(hwnd);}break;case ID_MENUITEMSAVE: //保存{if(nOne.N1==0 || nTwo.N2 == 0 || nCe.Nc==0 || lip.N== 0) {MessageBox(hwnd, TEXT("参数不完整\r\n请继续输入\r\n谢谢合作"), TEXT("雷电风险评估"),MB_OK|MB_ICONQUESTION);return;}SaveText(hwnd);}break;case ID_MENUITEMCLOSE: //退出{if(IDYES==MessageBox(hwnd, TEXT("确定退出？"), TEXT("雷电风险评估"), MB_YESNO|MB_ICONQUESTION)){EndDialog(hwnd, 0); }}break;/************************ 帮助 ************************/case ID_MENUITEMUSE: //使用说明{ShellExecute(NULL,"open","软件使用说明.doc", NULL , NULL ,SW_SHOWNORMAL);}break;case ID_MENUITEMWRT: //编程说明{ShellExecute(NULL,"open","软件编程说明.doc",NULL,NULL,SW_SHOWNORMAL);}break;case ID_MENUITEMABOUT: //关于{HINSTANCE hInstance = (HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE);DialogBoxParam(hInstance,MAKEINTRESOURCE(IDD_ABOUTDLG),h wnd,AboutDlg_Proc,0);}break;/************************ 规范 ************************ ///新规范case ID_GB34310: //GB50343-2010{ShellExecute(NULL,"open","LPstandard\\GB50343-2010.pdf" ,NULL,NULL,SW_SHOWNORMAL);}break;case ID_GB5710: //GB50057-2010{ShellExecute(NULL,"open","LPstandard\\GB50057-2010.pdf" ,NULL,NULL,SW_SHOWNORMAL);}break;//旧规范case ID_GB34304://GB50343-2004《建筑物电子信息系统防雷技术规范》{ShellExecute(NULL,"open","LPstandard\\GB50343-2004.pdf" ,NULL,NULL,SW_SHOWNORMAL);}break;case ID_GB5794: //GB50057-94(2000) {ShellExecute(NULL,"open","LPstandard\\GB50057-94(2000).pdf ",NULL,NULL,SW_SHOWNORMAL);}break;/************************ 主界面 ************************/case IDC_RS: //重置按钮{if(IDYES==MessageBox(hwnd, TEXT("确定重置？"), TEXT("雷电风险评估"), MB_YESNO|MB_ICONQUESTION)){SetDlgItemText(hwnd, IDC_EDITFN, TEXT("\t欢迎您使用本程序. "));SetZero(hwnd); }}break;case IDC_OKN1: //N1 运算按钮{ButtonN1(hwnd);}break;case IDC_OKN2: //N2 运算按钮{if(nOne.Ng){ButtonN2(hwnd);}else{SetDlgItemText(hwnd, IDC_EDITFN, TEXT("请您输入\r\n\t 年平均雷暴日Td(d/a)\r\n（根据当地气象台、站资料确定）"));MessageBox(hwnd, TEXT("年平均雷暴日Td(d/a)\r\n并点击【运算(N1)】"), TEXT("请输入"),MB_OK|MB_ICONEXCLAMATION);}}break;case IDC_OKNc: //Nc 运算按钮{ButtonNc(hwnd);}break;case IDC_OKLP: //雷电防护等级按钮{if(nOne.N1 == 0 || nTwo.N2 == 0 || nCe.Nc == 0) {MessageBox(hwnd, TEXT("参数不完整\r\n请继续输入\r\n 谢谢合作"), TEXT("雷电风险评估"), MB_OK|MB_ICONQUESTION);}else{ButtonLP(hwnd);}}break;default:break; }}3. 程序功能演示和测试结果一、软件打开页面二、主界面要计算最终的雷电防护等级，主要分为三个部分的计算。