用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個臨界值時，軟件就會在帶滾動條的文本框里顯示“某日某時某層地溫具體數據懷疑異?！保夷軐崿F數據跨日連續相減。軟件界面的“軟件說明”按鍵用于指出軟件的下載聯系方式，方便各地氣象工作者獲得軟件使用權，如圖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.