創建定時任務源碼
.版本 2.支持庫 iext.支持庫 eAPI.程序集 窗口程序集_啟動窗口.子程序 __啟動窗口_創建完畢.局部變量 i, 整數型.計次循環首 (61, i) .如果真 (i < 25) 時組合框.加入項目 (到文本 (i - 1), ) .如果真結束 分組合框.加入項目 (到文本 (i - 1), ) 秒組合框.加入項目 (到文本 (i - 1), ).計次循環尾 ()時組合框.現行選中項 = 0分組合框.現行選中項 = 0秒組合框.現行選中項 = 0時鐘1.時鐘周期 = 1000.子程序 _按鈕_添加任務_被單擊.局部變量 i, 整數型.局部變量 局_是否重復, 邏輯型.局部變量 局_索引, 整數型.計次循環首 (任務超級列表框.取表項數 (), i) ' 過濾設置重復的時間 .如果真 (任務超級列表框.取標題 (i - 1, 0) = 格式化文本 (“%s:%s:%s”, 時組合框.內容, 分組合框.內容, 秒組合框.內容)) 局_是否重復 = 真 .如果真結束.計次循環尾 ().如果真 (取反 (局_是否重復)) 局_索引 = 任務超級列表框.插入表項 (, , , , , ) 任務超級列表框.置標題 (局_索引, 0, 格式化文本 (“%s:%s:%s”, 時組合框.內容, 分組合框.內容, 秒組合框.內容)).如果真結束.子程序 _時鐘1_周期事件.局部變量 局_表索引, 整數型.局部變量 局_設定時間, 文本型, , "0".局部變量 局_倒數時間, 整數型.局部變量 局_當前時, 整數型.局部變量 局_當前分, 整數型.局部變量 局_當前秒, 整數型.局部變量 局_倒數時, 整數型.局部變量 局_倒數分, 整數型.局部變量 局_倒數秒, 整數型局_當前時 = 取小時 (取現行時間 ())局_當前分 = 取分鐘 (取現行時間 ())局_當前秒 = 取秒 (取現行時間 ()).計次循環首 (任務超級列表框.取表項數 (), 局_表索引) .判斷開始 (格式化文本 (“%d:%d:%d”, 局_當前時, 局_當前分, 局_當前秒) = 任務超級列表框.取標題 (局_表索引 - 1, 0)) 任務超級列表框.置標題 (局_表索引 - 1, 2, “真”) ' -----------------------------以下開始執行定時任務----------------------------- .判斷開始 (局_當前時 = 12 且 局_當前分 = 30) .判斷 (局_當前時 = 19 且 局_當前分 = 30) .判斷 (局_當前時 = 20 且 局_當前分 = 0) .判斷 (局_當前時 = 20 且 局_當前分 = 20) .判斷 (局_當前時 = 21 且 局_當前分 = 0) .判斷 (局_當前時 = 21 且 局_當前分 = 30) .默認 .判斷結束 ' -----------------------------以上開始執行定時任務----------------------------- .默認 局_設定時間 = 分割文本 (任務超級列表框.取標題 (局_表索引 - 1, 0), “:”, ) .如果真 (到整數 (局_設定時間 [1]) < 取小時 (取現行時間 ())) ' 次日時間修正 局_設定時間 [1] = 到文本 (24 + 到整數 (局_設定時間 [1])) .如果真結束 局_倒數時間 = ((到整數 (局_設定時間 [1]) - 局_當前時) × 60 - 局_當前分 + 到整數 (局_設定時間 [2])) × 60 - 局_當前秒 + 到整數 (局_設定時間 [3]) - 1 .如果真 (局_倒數時間 ≥ 0) 局_倒數時 = 局_倒數時間 ÷ 3600 局_倒數分 = (局_倒數時間 - 局_倒數時 × 3600) ÷ 60 局_倒數秒 = 局_倒數時間 - 局_倒數時 × 3600 - 局_倒數分 × 60 任務超級列表框.置標題 (局_表索引 - 1, 1, 格式化文本 (“%d:%d:%d”, 局_倒數時, 局_倒數分, 局_倒數秒)) .如果真結束 .判斷結束.計次循環尾 ().子程序 _任務超級列表框_按下某鍵, 邏輯型.參數 鍵代碼, 整數型.參數 功能鍵狀態, 整數型.如果真 (鍵代碼 = #Del鍵) 任務超級列表框.刪除表項 (任務超級列表框.現行選中項).如果真結束
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答