夜间天气现象判断辅助软件的设计.docVIP

夜间天气现象判断辅助软件的设计 　　摘 要：随着地面气象业务改革的迅猛发展，地面气象观测业务调整涉及到观测、传输、资料、预报和服务等各个业务环节，改变了传统的业务工作模式，传统的人工观测项目已逐渐被自动化测量仪器所替代，大大的提高工作效率的同时，也减轻了地面气象观测员的工作量。本文运用计算机语言程序，对自动化的观测数据进行调取和分析，为观测员对气象观测资料做出质控时提供了高效准确的依据，有力地提高了工作效率的同时，也大大的降低了错情率。 　　关键词：夜间天气现象;控件;设计 　　一、新建项目并添加控件 　　1.VB2012，创建一个新的Windows窗体应用程序，命名为夜间现象辅助。 　　2.将“解决方案资源管理器”中的“Form1.vb”重命名为“辅助.vb”。 　　3.在窗体上添加一个“Listview控件”，添加两个“Button控件”，四个“Label控件”，一个“Textbox控件”及 一个“DateTimePicker控件”。 　　二、编写程序代码 　　1.添加公用成员变量 　　Public Class 辅助 　　 Public LocationNumber As String 　　 Public LongZpath As String 　　 Public LongZdirectory As String 　　其中，LocationNumber变量用来存储和显示区站号; LongZpath变量用来存储长Z文件所在的路径的;LongZdirectory变量用来存储长Z文件所在路径下的文件名的名称。 　　2.添加Load方法 　　Private Sub 辅助_Load（sender As Object， e As EventArgs） Handles Me.Load 　　 dtpDay.CustomFormat = “yyyy年MM月dd日” 　　 lblDesign.Text = “作者：广东省英德市气象局 吴勇” 　　 lblWelcome.Text = “欢迎使用” 　　 LongZpath = “D：＼ISOS＼MOI＼ZBak＼” 　　For Each LongZdirectory As String In My.Computer.FileSystem.GetFiles（LongZpath） 　　 LocationNumber = LongZdirectory.Substring（18， 5） 　　 txtLocationNumber.Text = LocationNumber 　　 Exit For 　　 Next 　　End Sub; 　　3.添加ClearList方法 　　Private Sub ClearList（） 　　 lvwtianqi.Items.Clear（） 　　End Sub; 　　4. 添加按钮的单击事件 　　（1）添加成员变量 　　Private Sub btnCheck_Click（sender As Object， e As EventArgs） Handles btnCheck.Click 　　 Dim Zname（23） As String 　　 Dim Ztxt（23） As String 　　 Dim VV（23） As String 　　 Dim ZF（23） As String 　　 Dim HH（23） As String 　　 Dim RR（23） As String 　　 Dim MinRR（124） As String 　　 Dim SumRR As Single 　　 Dim strYestoday As String = Format（dtpDay.Value.AddDays（-1）， “yyyyMMdd”）; 　　（2）调用ClearList（）方法 　　ClearList（） 　　在2.2定义的ClearList（）方法在此处被调用，虽然只有一句代码，但对于用户的体验是尤为重要的，其目的是每点击一次查询按钮，无论日期结果如何，首先执行的是清除Listview.Items里面的数据，确保每次只显示一个昨日夜间21时到今天白天07时的数据及判别。 　　（3）逻辑封装 　　Try...catch 　　接下来要将长Z文件的完整内容及各段内容分别读入的之前所定义的数组变量当中，因为这是文件读取操作，为了防止可能发生的任何IO异常，所以将代码全部逻辑封装在了Try...Catch代码块中，一旦代码运行出错，就可以返回错误信息。 　　（4） For...Next循环获取数据并输出结果 　　For h As Integer = 13 To 23; 　　Zname（h）