易語言通過時鐘和計次循環(huán)來實現(xiàn)定時任務(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ù)型
.局部變量 局_是否重復(fù), 邏輯型
.局部變量 局_索引, 整數(shù)型
.計次循環(huán)首 (任務(wù)超級列表框.取表項數(shù) (), i) ' 過濾設(shè)置重復(fù)的時間
  .如果真 (任務(wù)超級列表框.取標題 (i － 1, 0) ＝ 格式化文本 (“%s:%s:%s”, 時組合框.內(nèi)容, 分組合框.內(nèi)容, 秒組合框.內(nèi)容))
    局_是否重復(fù) ＝ 真
  .如果真結(jié)束
.計次循環(huán)尾 ()
.如果真 (取反 (局_是否重復(fù)))
  局_索引 ＝ 任務(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é)束