楊再禹，楊 平，蒙延雷

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

1 引言

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

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

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

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

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

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

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

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

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

將三穗縣氣象局近年來氣象服務(wù)的內(nèi)容、時(shí)間、方式、出口、參考的數(shù)據(jù)網(wǎng)站等進(jìn)行梳理，得出基本的預(yù)報(bào)服務(wù)思路和流程，作為程序規(guī)劃設(shè)計(jì)的基礎(chǔ)，使用易語言v5.6版本實(shí)現(xiàn)氣象服務(wù)信息管理平臺的搭建，其平臺如圖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)可視化，能生成自動保存的Word文檔，并通過截圖、直接點(diǎn)擊，即可快速傳遞到氣象服務(wù)對象(圖2)。

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

圖1 用易語言實(shí)現(xiàn)三穗天氣預(yù)報(bào)常用信息管理平臺 圖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

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

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

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

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

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

關(guān)閉()

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

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

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

.如果真結(jié)束

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

.子程序 _按鈕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é)束()

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

3 結(jié)語

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