易語言通過時鐘和計次循環(huán)來實現(xiàn)定時任務(wù)的代碼
更新時間:2018年11月24日 08:35:44 作者:易語言源碼教程
今天小編就為大家分享一篇關(guān)于易語言通過時鐘和計次循環(huán)來實現(xiàn)定時任務(wù)的代碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
創(chuàng)建定時任務(wù)源碼
.版本 2 .支持庫 iext .支持庫 eAPI .程序集 窗口程序集_啟動窗口 .子程序 __啟動窗口_創(chuàng)建完畢 .局部變量 i, 整數(shù)型 .計次循環(huán)首 (61, i) .如果真 (i < 25) 時組合框.加入項目 (到文本 (i - 1), ) .如果真結(jié)束 分組合框.加入項目 (到文本 (i - 1), ) 秒組合框.加入項目 (到文本 (i - 1), ) .計次循環(huán)尾 () 時組合框.現(xiàn)行選中項 = 0 分組合框.現(xiàn)行選中項 = 0 秒組合框.現(xiàn)行選中項 = 0 時鐘1.時鐘周期 = 1000 .子程序 _按鈕_添加任務(wù)_被單擊 .局部變量 i, 整數(shù)型 .局部變量 局_是否重復, 邏輯型 .局部變量 局_索引, 整數(shù)型 .計次循環(huán)首 (任務(wù)超級列表框.取表項數(shù) (), i) ' 過濾設(shè)置重復的時間 .如果真 (任務(wù)超級列表框.取標題 (i - 1, 0) = 格式化文本 (“%s:%s:%s”, 時組合框.內(nèi)容, 分組合框.內(nèi)容, 秒組合框.內(nèi)容)) 局_是否重復 = 真 .如果真結(jié)束 .計次循環(huán)尾 () .如果真 (取反 (局_是否重復)) 局_索引 = 任務(wù)超級列表框.插入表項 (, , , , , ) 任務(wù)超級列表框.置標題 (局_索引, 0, 格式化文本 (“%s:%s:%s”, 時組合框.內(nèi)容, 分組合框.內(nèi)容, 秒組合框.內(nèi)容)) .如果真結(jié)束 .子程序 _時鐘1_周期事件 .局部變量 局_表索引, 整數(shù)型 .局部變量 局_設(shè)定時間, 文本型, , "0" .局部變量 局_倒數(shù)時間, 整數(shù)型 .局部變量 局_當前時, 整數(shù)型 .局部變量 局_當前分, 整數(shù)型 .局部變量 局_當前秒, 整數(shù)型 .局部變量 局_倒數(shù)時, 整數(shù)型 .局部變量 局_倒數(shù)分, 整數(shù)型 .局部變量 局_倒數(shù)秒, 整數(shù)型 局_當前時 = 取小時 (取現(xiàn)行時間 ()) 局_當前分 = 取分鐘 (取現(xiàn)行時間 ()) 局_當前秒 = 取秒 (取現(xiàn)行時間 ()) .計次循環(huán)首 (任務(wù)超級列表框.取表項數(shù) (), 局_表索引) .判斷開始 (格式化文本 (“%d:%d:%d”, 局_當前時, 局_當前分, 局_當前秒) = 任務(wù)超級列表框.取標題 (局_表索引 - 1, 0)) 任務(wù)超級列表框.置標題 (局_表索引 - 1, 2, “真”) ' -----------------------------以下開始執(zhí)行定時任務(wù)----------------------------- .判斷開始 (局_當前時 = 12 且 局_當前分 = 30) .判斷 (局_當前時 = 19 且 局_當前分 = 30) .判斷 (局_當前時 = 20 且 局_當前分 = 0) .判斷 (局_當前時 = 20 且 局_當前分 = 20) .判斷 (局_當前時 = 21 且 局_當前分 = 0) .判斷 (局_當前時 = 21 且 局_當前分 = 30) .默認 .判斷結(jié)束 ' -----------------------------以上開始執(zhí)行定時任務(wù)----------------------------- .默認 局_設(shè)定時間 = 分割文本 (任務(wù)超級列表框.取標題 (局_表索引 - 1, 0), “:”, ) .如果真 (到整數(shù) (局_設(shè)定時間 [1]) < 取小時 (取現(xiàn)行時間 ())) ' 次日時間修正 局_設(shè)定時間 [1] = 到文本 (24 + 到整數(shù) (局_設(shè)定時間 [1])) .如果真結(jié)束 局_倒數(shù)時間 = ((到整數(shù) (局_設(shè)定時間 [1]) - 局_當前時) × 60 - 局_當前分 + 到整數(shù) (局_設(shè)定時間 [2])) × 60 - 局_當前秒 + 到整數(shù) (局_設(shè)定時間 [3]) - 1 .如果真 (局_倒數(shù)時間 ≥ 0) 局_倒數(shù)時 = 局_倒數(shù)時間 ÷ 3600 局_倒數(shù)分 = (局_倒數(shù)時間 - 局_倒數(shù)時 × 3600) ÷ 60 局_倒數(shù)秒 = 局_倒數(shù)時間 - 局_倒數(shù)時 × 3600 - 局_倒數(shù)分 × 60 任務(wù)超級列表框.置標題 (局_表索引 - 1, 1, 格式化文本 (“%d:%d:%d”, 局_倒數(shù)時, 局_倒數(shù)分, 局_倒數(shù)秒)) .如果真結(jié)束 .判斷結(jié)束 .計次循環(huán)尾 () .子程序 _任務(wù)超級列表框_按下某鍵, 邏輯型 .參數(shù) 鍵代碼, 整數(shù)型 .參數(shù) 功能鍵狀態(tài), 整數(shù)型 .如果真 (鍵代碼 = #Del鍵) 任務(wù)超級列表框.刪除表項 (任務(wù)超級列表框.現(xiàn)行選中項) .如果真結(jié)束
運行結(jié)果:
總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
相關(guān)文章
易語言注冊自定義協(xié)議Register protocol
今天小編就為大家分享一篇關(guān)于易語言注冊自定義協(xié)議Register protocol,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧2018-11-11