楊再禹，楊 平，蒙延雷

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

1 引言

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

2 易語(yǔ)言實(shí)現(xiàn)氣象服務(wù)業(yè)務(wù)管理分析

2.1 集成化氣象服務(wù)基本步驟

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

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

③ 更改新建窗口中“按鈕”標(biāo)題；

④ 對(duì)服務(wù)方式、對(duì)象(按“按鈕”標(biāo)題分區(qū))；

⑤ 對(duì)每個(gè)“按鈕”進(jìn)行賦值(激活)。

2.2 氣象服務(wù)常用信息管理平臺(tái)結(jié)果

將三穗縣氣象局近年來(lái)氣象服務(wù)的內(nèi)容、時(shí)間、方式、出口、參考的數(shù)據(jù)網(wǎng)站等進(jìn)行梳理，得出基本的預(yù)報(bào)服務(wù)思路和流程，作為程序規(guī)劃設(shè)計(jì)的基礎(chǔ)，使用易語(yǔ)言v5.6版本實(shí)現(xiàn)氣象服務(wù)信息管理平臺(tái)的搭建，其平臺(tái)如圖1所示。

為準(zhǔn)確、快捷做好三穗縣區(qū)域內(nèi)的短時(shí)臨近天氣預(yù)報(bào)服務(wù)工作，進(jìn)一步梳理了短臨天氣預(yù)報(bào)的分鄉(xiāng)鎮(zhèn)和旅游景區(qū)的預(yù)報(bào)，建立子程序“短時(shí)臨近預(yù)報(bào)”，實(shí)現(xiàn)可視化，能生成自動(dòng)保存的Word文檔，并通過(guò)截圖、直接點(diǎn)擊，即可快速傳遞到氣象服務(wù)對(duì)象(圖2)。

同時(shí)，三穗縣氣象局研判了各鄉(xiāng)鎮(zhèn)的氣溫與八弓鎮(zhèn)(三穗縣城關(guān))的氣溫差值，以此為思路，設(shè)計(jì)出“預(yù)報(bào)分析”平臺(tái)，能準(zhǔn)確無(wú)誤地生成為三穗縣“手機(jī)報(bào)”服務(wù)的天氣預(yù)報(bào)結(jié)論，通過(guò)三穗天氣預(yù)報(bào)常用信息管理平臺(tái)“‘手機(jī)報(bào)’QQ”對(duì)話框快速傳遞(如圖3所示)。

圖1 用易語(yǔ)言實(shí)現(xiàn)三穗天氣預(yù)報(bào)常用信息管理平臺(tái) 圖2 短時(shí)臨近天氣預(yù)報(bào)圖 Fig.1 Common information management platform for Fig.2 Interface for short-term weather forecast Sansui weather forecast in Easy Language

圖3 預(yù)報(bào)分析圖Fig.3 Interface for weather forecast analysis

通過(guò)分區(qū)域鏈接需要參考的“內(nèi)外網(wǎng)”、決策服務(wù)與天氣預(yù)報(bào)分析等“文件夾”以及預(yù)報(bào)產(chǎn)出口“預(yù)報(bào)服務(wù)”等的展現(xiàn)，組成了三穗縣氣象局氣象業(yè)務(wù)服務(wù)平臺(tái)，在目前的對(duì)外開(kāi)展氣象服務(wù)過(guò)程中，起到了直觀、快捷、準(zhǔn)確和可移植的作用。

2.3 天氣預(yù)報(bào)常用信息管理平臺(tái)易語(yǔ)言程序?qū)崿F(xiàn)

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

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

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

關(guān)閉()

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

通用對(duì)話框1.過(guò)濾器 = “*.*”

.如果真(通用對(duì)話框1.打開(kāi)())

.如果真結(jié)束

運(yùn)行(“explorer.exe ” + #引號(hào),假,)

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

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

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

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

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

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

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

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

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

運(yùn)行(“c:windowsexplorer.exe F:氣象服務(wù)統(tǒng)計(jì)表三穗縣氣象局氣象信息服務(wù)統(tǒng)計(jì)表.xls”,假,)

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

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

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

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

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

ode=custom”,假,)

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

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

載入(預(yù)報(bào)分析,,真)

運(yùn)行(“c:windowsexplorer.exe 預(yù)報(bào)計(jì)算機(jī)1氣象服務(wù)2018年”,假,)

運(yùn)行(“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”,假,)

運(yùn)行(“c:windowsexplorer.exe F:氣象服務(wù)2018年氣象信息快報(bào)(氣象信息報(bào)告、氣象專題服務(wù)、重要?dú)庀笮畔?bào)、2018年歷史數(shù)據(jù).xls)”,假,)

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

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

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

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

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

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

載入(短時(shí)臨近預(yù)報(bào),,真)

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

結(jié)束()

以上為全中文編程過(guò)程代碼，復(fù)制直接可用，它實(shí)現(xiàn)了鏈接內(nèi)外網(wǎng)址、打開(kāi)Word文檔、打開(kāi)Excel表格、打開(kāi)指定目錄、打開(kāi)iebook生成的電子書、打開(kāi).exe執(zhí)行文件、直接打開(kāi)vip.163.com和QQ收件箱快速寫信發(fā)送、能直接進(jìn)入個(gè)人QQ對(duì)話框快速發(fā)布、地面測(cè)報(bào)報(bào)文快速通道發(fā)布以及排班上報(bào)等。同時(shí)，在短時(shí)臨近預(yù)報(bào)和預(yù)報(bào)分析(程序代碼略)中，還能實(shí)現(xiàn)直接進(jìn)入QQ群對(duì)話框快速發(fā)布?xì)庀蠓?wù)信息、生成規(guī)定的Word文檔、截圖等功能。

3 結(jié)語(yǔ)

通過(guò)以上示例，可看出用易語(yǔ)言v5.6版本解決集約化問(wèn)題具有直觀、易懂、簡(jiǎn)捷、快速和準(zhǔn)確的優(yōu)勢(shì)。運(yùn)用易語(yǔ)言程序?qū)h級(jí)氣象服務(wù)業(yè)務(wù)產(chǎn)品制作分析、出口服務(wù)、統(tǒng)計(jì)業(yè)務(wù)工作情況等實(shí)例分析，語(yǔ)言簡(jiǎn)單易于實(shí)現(xiàn)，分析結(jié)果直觀明了，節(jié)約出大量的氣象服務(wù)時(shí)間，便于更深入的研究。