用Visual Basic语言设计地面气象月报辅助审核软件

李文斌，吴振强，史 成，张兴铃，邓 明，刘祖健

(1.广东省四会市气象局，广东 四会 526200;2.广东省高要市气象局，广东 高要 526100;3.广东省信宜市气象局，广东 信宜 525300;4.广东省潮州市气象局，广东 潮州 521021)

1 引言

近年来南方各省包括广东省气象部门一直沿用浙江省气候中心研发的报表审核质控软件，但该软件没有浅、深层地温查异功能，需要通过人工方式利用查图功能逐日逐时地查看地温曲线图是否存在大波动起伏的现象，使得查阅者眼花缭乱，容易出错。从2013年10月16日起，根据中国气象局观测司的要求，全国4个试点省份进行业务改革调整，月报A文件的格式有所改变，原使用的审核软件均不能识别调整后的A文件格式［1］。本辅助审核软件却能定位到新旧A文件的浅、深层地温数据段，快速查找出当中各地温层发生突变的具体时次，直观地显示在屏幕上，防止因人为疏忽等原因漏审导致报表错情的发生。

2 软件功能简介

本软件利用Visual Basic(简称VB)程序设计语言编写而成，是一种功能强大的新一代高级程序设计语言，应用VB可以方便地完成从小型到大型的应用程序、数据库管理系统、多媒体信息处理、Internet应用等各项任务［2］。软件的功能键有4个，分别是40 cm、80 cm、160 cm和320 cm数据查异功能按键，其对应的温度查异临界值分别为0.5℃、0.4℃、0.3℃和 0.2℃，当各层地温的每个正点数据与前一项的差值分别大于4个临界值时，软件就会在带滚动条的文本框里显示“某日某时某层地温具体数据怀疑异常”，且能实现数据跨日连续相减。软件界面的“软件说明”按键用于指出软件的下载联系方式，方便各地气象工作者获得软件使用权，如图1所示。

图1 李氏地面气象月报辅助审核软件

3 软件实现方式

本软件综合运用 VB 块 if、Else IF、For…next及do while等选择循环结构语句，定位到A文件各层地温所在行的数据，逐行读取后把所有数据用去空函数 trim()命令［3］和字符分割函数 split()命令［4］进行处理，将相邻数据逐一相减，若差值超出预设值(0.5、0.4、0.3、0.2)时，则在文本框里显示逐条异常信息。另外，软件设计者把缺测时次的数据“////”作了“0”处理，用整除法巧妙处理了20时为日界的问题，部分代码如下:

……

If i＜23 Then

Text1=Text1＆＂40 cm地温层＂＆(j+1)24+1＆＂日＂＆i+1＆＂时数据＂＆DbMarry1(j+1)＆＂怀疑异常＂＆vbCrLf

ElseIf i=23 Then

Text1=Text1＆＂40 cm地温层＂＆(j+1)24+1＆＂日24时数据＂＆DbMarry1(j+1)＆＂怀疑异常＂＆vbCrLf

End If

End If

i=i+1 If i=24 Then i=0

Next

End Sub

……

4 软件使用实例

以2013年10月进行地面气象业务改革调整的广东省为例，将业务调整前9月份和调整后11月份的A文件进行查异，其中9月2日23时40 cm和11月10日21时的地温数据与前后时次相差大于0.5和0.4℃，如图2所示。

图2 新旧版OSSMO测报软件的A文件

通过辅助审核软件的查异功能键，立刻能查询到出现异常时次的地温数据，见图3。

图3 软件查异结果

从图3可以很清楚地看到某层地温某时刻数据异常的提示信息。

5 结论

李氏地面气象月报辅助审核软件(1.0)能直观明了地查阅出40～320 cm地温出现突变时次的数据，极大方便了测报工作者预审A文件浅、深层地温数据时的工作，该软件已推荐给粤东、粤西及本地区各县台站试用，下一步将征询各试用站点的建议及意见，进一步完善修改软件的使用功能，为将来扩展审核软件的审核范围打下基础。

［1］俞卫平.地面气象观测数据文件和记录簿表格式［M］.北京:气象出版社，2005:34-37.

［2］吴昌平 .Visual Basic 6.0程序设计［M］.北京:人民邮电出版社，2008:1-2.

［3］郑学文.基于常规风速自动化检定模块的皮托管全自动检定程序的设计［J］.广东气象，2013，35(3):74-76.

［4］彭显锋.用VB6.0控制Word创建规范性文档［J］.贵州气象，2008，32(2):40-42.