用Visual Basic語言設(shè)計(jì)地面氣象月報(bào)輔助審核軟件

李文斌，吳振強(qiáng)，史 成，張興鈴，鄧 明，劉祖健

(1.廣東省四會市氣象局，廣東 四會 526200;2.廣東省高要市氣象局，廣東 高要 526100;3.廣東省信宜市氣象局，廣東 信宜 525300;4.廣東省潮州市氣象局，廣東 潮州 521021)

1 引言

近年來南方各省包括廣東省氣象部門一直沿用浙江省氣候中心研發(fā)的報(bào)表審核質(zhì)控軟件，但該軟件沒有淺、深層地溫查異功能，需要通過人工方式利用查圖功能逐日逐時地查看地溫曲線圖是否存在大波動起伏的現(xiàn)象，使得查閱者眼花繚亂，容易出錯。從2013年10月16日起，根據(jù)中國氣象局觀測司的要求，全國4個試點(diǎn)省份進(jìn)行業(yè)務(wù)改革調(diào)整，月報(bào)A文件的格式有所改變，原使用的審核軟件均不能識別調(diào)整后的A文件格式［1］。本輔助審核軟件卻能定位到新舊A文件的淺、深層地溫?cái)?shù)據(jù)段，快速查找出當(dāng)中各地溫層發(fā)生突變的具體時次，直觀地顯示在屏幕上，防止因人為疏忽等原因漏審導(dǎo)致報(bào)表錯情的發(fā)生。

2 軟件功能簡介

本軟件利用Visual Basic(簡稱VB)程序設(shè)計(jì)語言編寫而成，是一種功能強(qiáng)大的新一代高級程序設(shè)計(jì)語言，應(yīng)用VB可以方便地完成從小型到大型的應(yīng)用程序、數(shù)據(jù)庫管理系統(tǒng)、多媒體信息處理、Internet應(yīng)用等各項(xiàng)任務(wù)［2］。軟件的功能鍵有4個，分別是40 cm、80 cm、160 cm和320 cm數(shù)據(jù)查異功能按鍵，其對應(yīng)的溫度查異臨界值分別為0.5℃、0.4℃、0.3℃和 0.2℃，當(dāng)各層地溫的每個正點(diǎn)數(shù)據(jù)與前一項(xiàng)的差值分別大于4個臨界值時，軟件就會在帶滾動條的文本框里顯示“某日某時某層地溫具體數(shù)據(jù)懷疑異?！?，且能實(shí)現(xiàn)數(shù)據(jù)跨日連續(xù)相減。軟件界面的“軟件說明”按鍵用于指出軟件的下載聯(lián)系方式，方便各地氣象工作者獲得軟件使用權(quán)，如圖1所示。

圖1 李氏地面氣象月報(bào)輔助審核軟件

3 軟件實(shí)現(xiàn)方式

本軟件綜合運(yùn)用 VB 塊 if、Else IF、For…next及do while等選擇循環(huán)結(jié)構(gòu)語句，定位到A文件各層地溫所在行的數(shù)據(jù)，逐行讀取后把所有數(shù)據(jù)用去空函數(shù) trim()命令［3］和字符分割函數(shù) split()命令［4］進(jìn)行處理，將相鄰數(shù)據(jù)逐一相減，若差值超出預(yù)設(shè)值(0.5、0.4、0.3、0.2)時，則在文本框里顯示逐條異常信息。另外，軟件設(shè)計(jì)者把缺測時次的數(shù)據(jù)“////”作了“0”處理，用整除法巧妙處理了20時為日界的問題，部分代碼如下:

……

If i＜23 Then

Text1=Text1＆＂40 cm地溫層＂＆(j+1)24+1＆＂日＂＆i+1＆＂時數(shù)據(jù)＂＆DbMarry1(j+1)＆＂懷疑異常＂＆vbCrLf

ElseIf i=23 Then

Text1=Text1＆＂40 cm地溫層＂＆(j+1)24+1＆＂日24時數(shù)據(jù)＂＆DbMarry1(j+1)＆＂懷疑異常＂＆vbCrLf

End If

End If

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

Next

End Sub

……

4 軟件使用實(shí)例

以2013年10月進(jìn)行地面氣象業(yè)務(wù)改革調(diào)整的廣東省為例，將業(yè)務(wù)調(diào)整前9月份和調(diào)整后11月份的A文件進(jìn)行查異，其中9月2日23時40 cm和11月10日21時的地溫?cái)?shù)據(jù)與前后時次相差大于0.5和0.4℃，如圖2所示。

圖2 新舊版OSSMO測報(bào)軟件的A文件

通過輔助審核軟件的查異功能鍵，立刻能查詢到出現(xiàn)異常時次的地溫?cái)?shù)據(jù)，見圖3。

圖3 軟件查異結(jié)果

從圖3可以很清楚地看到某層地溫某時刻數(shù)據(jù)異常的提示信息。

5 結(jié)論

李氏地面氣象月報(bào)輔助審核軟件(1.0)能直觀明了地查閱出40～320 cm地溫出現(xiàn)突變時次的數(shù)據(jù)，極大方便了測報(bào)工作者預(yù)審A文件淺、深層地溫?cái)?shù)據(jù)時的工作，該軟件已推薦給粵東、粵西及本地區(qū)各縣臺站試用，下一步將征詢各試用站點(diǎn)的建議及意見，進(jìn)一步完善修改軟件的使用功能，為將來擴(kuò)展審核軟件的審核范圍打下基礎(chǔ)。

［1］俞衛(wèi)平.地面氣象觀測數(shù)據(jù)文件和記錄簿表格式［M］.北京:氣象出版社，2005:34-37.

［2］吳昌平 .Visual Basic 6.0程序設(shè)計(jì)［M］.北京:人民郵電出版社，2008:1-2.

［3］鄭學(xué)文.基于常規(guī)風(fēng)速自動化檢定模塊的皮托管全自動檢定程序的設(shè)計(jì)［J］.廣東氣象，2013，35(3):74-76.

［4］彭顯鋒.用VB6.0控制Word創(chuàng)建規(guī)范性文檔［J］.貴州氣象，2008，32(2):40-42.