易語言v5.6在縣級氣象服務業務中的應用

楊再禹，楊 平，蒙延雷

(貴州省三穗縣氣象局，貴州 三穗 556500)

1 引言

易語言是大連大有吳濤語言軟件有限公司于2009年推出的一款漢語編程語言軟件，2016年升級為v6.5版，達到了當前同類產品的國際先進水平。易語言降低了廣大電腦用戶編程的門檻，適于不懂英文或者英文了解很少的編程愛好者，可以結合大量的實例，通過使用其語言極其快速地進入Windows程序編寫，學會程序設計，自己動手開發軟件。用易語言集合氣象業務內容僅需編寫十幾行幾乎像通常聊天式的簡練程序，運行后就可得到所需的結果。應用它既克服了氣象業務服務過程分散、不集中、易出錯等缺點，又使繁瑣、枯燥的服務流程變成一種簡單、直觀的可視化操作過程，且能較準確地標記文檔和服務時間。三穗縣氣象局2016年用易語言編程實現氣象服務業務集約、自動化以來，經過不斷的總結、修改和完善，如今能快速開展對外單位服務，基本滿足了三穗現在的業務服務需要。下面以三穗縣氣象局現有業務服務流程為實例，介紹用易語言v5.6實現該局氣象服務平臺的方法。

2 易語言實現氣象服務業務管理分析

2.1 集成化氣象服務基本步驟

① 選擇程序，新建一個空白Windows窗口程序；

② 單擊基本組件中的“按鈕”，逐次填入新建的空白Windows窗口中；

③ 更改新建窗口中“按鈕”標題；

④ 對服務方式、對象(按“按鈕”標題分區)；

⑤ 對每個“按鈕”進行賦值(激活)。

2.2 氣象服務常用信息管理平臺結果

將三穗縣氣象局近年來氣象服務的內容、時間、方式、出口、參考的數據網站等進行梳理，得出基本的預報服務思路和流程，作為程序規劃設計的基礎，使用易語言v5.6版本實現氣象服務信息管理平臺的搭建，其平臺如圖1所示。

為準確、快捷做好三穗縣區域內的短時臨近天氣預報服務工作，進一步梳理了短臨天氣預報的分鄉鎮和旅游景區的預報，建立子程序“短時臨近預報”，實現可視化，能生成自動保存的Word文檔，并通過截圖、直接點擊，即可快速傳遞到氣象服務對象(圖2)。

同時，三穗縣氣象局研判了各鄉鎮的氣溫與八弓鎮(三穗縣城關)的氣溫差值，以此為思路，設計出“預報分析”平臺，能準確無誤地生成為三穗縣“手機報”服務的天氣預報結論，通過三穗天氣預報常用信息管理平臺“‘手機報’QQ”對話框快速傳遞(如圖3所示)。

圖1 用易語言實現三穗天氣預報常用信息管理平臺 圖2 短時臨近天氣預報圖 Fig.1 Common information management platform for Fig.2 Interface for short-term weather forecast Sansui weather forecast in Easy Language

圖3 預報分析圖Fig.3 Interface for weather forecast analysis

通過分區域鏈接需要參考的“內外網”、決策服務與天氣預報分析等“文件夾”以及預報產出口“預報服務”等的展現，組成了三穗縣氣象局氣象業務服務平臺，在目前的對外開展氣象服務過程中，起到了直觀、快捷、準確和可移植的作用。

2.3 天氣預報常用信息管理平臺易語言程序實現

新建子程序1～31空白“按鈕”，按寬度200、高度56的大小排列整齊，將1～31個按鈕分別更改標題為“短時臨近預報”、“萬村鄉網”、“大喇叭(公服平臺)”、“‘手機報’QQ”，“LED顯示屏”，“微信”、“影視預報郵箱”、“◆日氣象服務統計表”、“VIP郵箱”、“氣象服務工作手冊”、“《氣象信息報告》”、“◆重要氣象信息專報”、“《氣象信息快報》”、“《氣象專題服務》”、“預報分析”、“2018氣象服務目錄”、“歷史數據統計”、“◆應急通道”、“貴州省氣象綜合管理系統”、“業務值班表”、“縣級綜合氣象業務學習考試系統”、“行政應急值班表”、“運行監控業務系統”、“中央臺會商提示”、“華南區域模式”、“華南區域模式”、“中央臺降水預報”、“中央臺降水預報”、“中央臺降水預報”、“中央臺降水預報”、“中央臺降水預報”。用基本組建內的“分組框”按鈕，分別劃分為5個區并在標題欄標上標注“預報服務、文件夾、外網、其它數據、內網”。下面對1～31個按鈕逐一進行賦值。

.子程序 _按鈕1_被單擊

運行(“c:windowsexplorer.exe F:氣象服務手冊氣象服務手冊.exe”,假,)

關閉()

.子程序 _按鈕2_被單擊

通用對話框1.過濾器 = “*.*”

.如果真(通用對話框1.打開())

.如果真結束

運行(“explorer.exe ” + #引號,假,)

.子程序 _按鈕3_被單擊

運行(“c:windowsexplorer.exe ftp://用戶名:密碼@10.203.6.5/aws_new/”,假,)

依次建立起：子程序 _按鈕(4-29)_被單擊

分別寫入：運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://113.108.192.90/envcompare/areaforecast”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://10.1.64.146/npt/front/downs.shtml?column_id=201”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://www.sdqx.gov.cn/rainfall-horal.asp”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://www.nmc.cn/publish/nwp/t639/ea/850hPa-qflx.html”,假,)

運行(“c:windowsexplorer.exe F:氣象服務三穗局綜合業務崗位值班輪流表.xls”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://10.203.6.72:8080/qx/workSchedulingAction.do?method=workSchedulingInit”,假,)

運行(“c:windowsexplorer.exe F:氣象服務統計表三穗縣氣象局氣象信息服務統計表.xls”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://192.168.0.112:8080/pms/framework/to_login.action”,假,)

運行(“c:windowsexplorer.exe F:值班表行政應急值班表2018年1月1—31日三穗縣氣象局行政應急值班表.xls”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://yubao.whihr.com.cn/webforecast/”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe https://10.203.13.16/jsp/indexpage/newIndex/indexOfficeMain.jsp”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://10.203.6.131:8080/PASOM/logonAction.do?method=logon&userc

ode=custom”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe https://mail.qq.com/cgi-bin/loginpage?s=session_timeout&from=&r=be5f61cc837a0fb180c502596a64dfef&tiptype=LOGIN_ERR_COOKIE_FORBIDDEN”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://www.weather.com.cn/weather1d/101260509.shtml”,假,)

載入(預報分析,,真)

運行(“c:windowsexplorer.exe 預報計算機1氣象服務2018年”,假,)

運行(“http://reg.vip.163.com/enterMail.m?username=用戶名@vip.163.com&style=-1&language=-1&enterVip=true&verifycookie=1ssxqxj&password=密碼&url=http://webmail.vip.163.com/js6/main.jsp?sid=FALyCsnRxjEIqiMluCR

RPPkGazNIKUCl&df=mailvip#module=welcome.WelcomeModule%7C%7B%7D”,假,)

運行(“c:windowsexplorer.exe F:氣象服務2018年氣象信息快報(氣象信息報告、氣象專題服務、重要氣象信息專報、2018年歷史數據.xls)”,假,)

運行(“C:UsersAdministratorAppDataRoaming360se6Application360se.exe https://mp.weixin.qq.com/”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://10.203.6.85:8080/loginNew.do”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://222.85.150.222:8080/main.aspx”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe http://www.gzdjw.com/wcqx/”,假,)

運行(讀環境變量(“programfiles”) + “internet Exploreriexplore.exe tencent://Message/?menu=no&exe=QQ&uin=1098902298&websiteName=chaonan.com&info”,假,)

.子程序 _按鈕30_被單擊

載入(短時臨近預報,,真)

.子程序 _按鈕31_被單擊

結束()

以上為全中文編程過程代碼，復制直接可用，它實現了鏈接內外網址、打開Word文檔、打開Excel表格、打開指定目錄、打開iebook生成的電子書、打開.exe執行文件、直接打開vip.163.com和QQ收件箱快速寫信發送、能直接進入個人QQ對話框快速發布、地面測報報文快速通道發布以及排班上報等。同時，在短時臨近預報和預報分析(程序代碼略)中，還能實現直接進入QQ群對話框快速發布氣象服務信息、生成規定的Word文檔、截圖等功能。

3 結語

通過以上示例，可看出用易語言v5.6版本解決集約化問題具有直觀、易懂、簡捷、快速和準確的優勢。運用易語言程序對縣級氣象服務業務產品制作分析、出口服務、統計業務工作情況等實例分析，語言簡單易于實現，分析結果直觀明了，節約出大量的氣象服務時間，便于更深入的研究。