怎麼用易語言的時鐘做倒計時器,如何用易語言編輯倒計時和計時

2022-02-20 02:08:46 字數 4057 閱讀 2191

1樓:匿名使用者

易語言倒計時器**如下:

.版本 2

.程式集 視窗程式集_啟動視窗

.程式集變數 時間, 整數型

.子程式 _開始按鈕_被單擊

時鐘1.時鐘週期 = 1000

時間 = 100 ' 可以改成你的秒數

.子程式 _時鐘1_週期事件

時間 = 時間 - 1

.判斷開始 (時間 ≤ 0)

_結束按鈕_被單擊 ()

.預設標籤1.標題 = 到文字 (時間)

.判斷結束

.子程式 _結束按鈕_被單擊

時鐘1.時鐘週期 = 0

2樓:匿名使用者

.版本 2

.程式集 視窗程式集1

.程式集變數 結束時間, 日期時間型

.程式集變數 間隔時間, 整數型

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

間隔時間 = 10 ' 這裡是以10秒倒計時,具體時間可自行修改結束時間 = 增減時間 (取現行時間 (), #秒, 間隔時間)時鐘1.時鐘週期 = 1000

.子程式 _時鐘1_週期事件

間隔時間 = 取時間間隔 (結束時間, 取現行時間 (), #秒).判斷開始 (間隔時間 > 0)

標籤1.標題 = 「倒計時:」 + 到文字 (間隔時間) + 「 秒」

.預設標籤1.標題 = 「時間到!」

.判斷結束

如何用易語言編輯倒計時和計時

3樓:文件類共創空間

.版本 2

.程式集 視窗程式集1

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

時鐘1.時鐘週期 = 1000

.子程式 _時鐘1_週期事件

.區域性變數 數, 整數型

數 = 到數值 (編輯框1.內容)

數 = 數 - 1

編輯框1.內容 = 到文字 (數)

4樓:笑凝伐噢號

用vb就可以了,加個timer的控制項,很容易的初中生都會編。

5樓:匿名使用者

分不要了。。。只是告訴你,這種要求用vb很容易就能實現

6樓:匿名使用者

vb<%@ language=vbscript %>倒記時間

<%response.write "今天是"

response.write formatdatetime(date(),1) & ","

'格式化為長日期格式輸出顯示

response.write " 離中考還有"

response.write ""

'呼叫datediff函式,計算日期間隔.

response.write datediff("d",date(),"06-06-17")

response.write "

"response.write "天"

%>

7樓:分享優質知識

第乙個.版本 2

.程式集 視窗程式集1

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

時鐘2.時鐘週期 = 1000

標籤8.標題 = 編輯框4.內容

.子程式 _時鐘2_週期事件

標籤8.標題 = 到文字 (到數值 (標籤8.標題) - 到數值 (1))

第二個.版本 2

.程式集 視窗程式集1

.程式集變數 q, 文字型

.程式集變數 w, 文字型

.子程式 _按鈕4_被單擊

.如果 (按鈕4.標題 = 「停止」)

按鈕4.標題 = 「開始計時」

時鐘3.時鐘週期 = 0

.否則.如果 (按鈕4.標題 = 「開始計時」)按鈕4.標題 = 「停止」

時鐘3.時鐘週期 = 1000

.否則.如果結束

.如果結束

.子程式 _時鐘3_週期事件

標籤10.標題 = 到文字 (到數值 (標籤10.標題) + 到數值 (1))

.如果 (標籤10.標題 = 「60」)

標籤10.標題 = 「0」

q = 到文字 (到數值 (q) + 到數值 (1)).否則.如果 (q = 「60」)

q = 「0」

w = 到文字 (到數值 (w) + 到數值 (1)).否則.如果結束

.如果結束

標籤11.標題 = w + 「:」 + q + 「:」 + 標籤10.標題

.子程式 __啟動視窗_建立完畢

按鈕4.標題 = 「開始計時」

q = 「 0」

w = 「0」

如果計時要比較準確的話,建議多加個時鐘控制項

易語言怎麼做倒計時?

8樓:二娘呀

1、將預置時間 轉成 時間戳 並寫進程式(即,在程式中設定成全域性變數)。

2、連線網路,取網路標準時間的時間戳(不取本地時間,是因為某些原因會匯入時間不準確,比如人為手動修改時間)。

3、判斷時間差(通過 全域性變數的時間戳 - 網路時間戳 = 倒計時的時間戳。

4、通過 倒計時的時間戳 轉換成倒數資料(具體的,都是除法)。

5、開機啟動,不論你什麼啟動,在網路下都可以準確倒計時、

易語言是乙個自主開發,適合國情,不同層次不同專業的人員易學易用的漢語程式語言。易語言降低了廣大電腦使用者程式設計的門檻,尤其是根本不懂英文或者英文了解很少的使用者,可以通過使用本語言極其快速地進入windows程式編寫的大門。

易語言怎麼實現日期倒計時?

9樓:匿名使用者

你可以用取時間間隔得到總共剩餘多少秒,然後再把秒數換成xx月xx天xx小時xx分xx秒。

給你個參考就明白了。

.版本 2

.子程式 取毫秒到小時, 文字型

.引數 參_毫秒, 整數型

.區域性變數 局_小時, 整數型

.區域性變數 局_分鐘, 整數型

.區域性變數 局_秒, 整數型

局_小時 = 參_毫秒 ÷ 3600000局_分鐘 = (參_毫秒 % 3600000) ÷ 60000局_秒 = (參_毫秒 % 3600000 % 60000) ÷ 1000

返回 (到文字 (局_小時) + 「小時」 + 到文字 (局_分鐘) + 「分」 + 到文字 (局_秒) + 「秒」)

10樓:匿名使用者

呵呵,這樣算的話,一年按365天,考慮閏年嗎?乙個月按30天算,31天的月怎麼算?

如何用易語言寫乙個10秒倒計時程式?

11樓:

很簡單!

乙個標籤 乙個時鐘

設定 標籤1.標題=10

下面是**:

.版本 2

.程式集 視窗程式集1

.子程式 _時鐘1_週期事件

標籤1.標題 = 到文字 (到數值 (標籤1.標題) - 到數值 (1))

12樓:匿名使用者

汗,你和qianqian_918的問題竟然是一模一樣的,是同乙個人嗎?

我回答也fuz複製下吧

.版本 2

.程式集 視窗程式集1

.程式集變數 a, 整數型

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

時鐘1.時鐘週期 = 1000

a = 10

.子程式 _時鐘1_週期事件

.如果 (a > 0)

a = a - 1

.否則時鐘1.時鐘週期 = 0

資訊框 (「10秒已經到了!」, 0, )

13樓:匿名使用者

.版本 2

.程式集 視窗程式集1

.程式集變數 a, 整數型

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

時鐘1.時鐘週期 = 1000

a = 10

.子程式 _時鐘1_週期事件

.如果 (a > 0)

a = a - 1

.否則時鐘1.時鐘週期 = 0

資訊框 (「10秒已經到了!」, 0, )

求乙個倒計時的程式,倒計時怎麼計算?

需要納入起算的那一天 5月24日 不納入到期的那一天 6月7日 演算法 8天 5月,包含今天 6天 6月,不含7日 14天倒計時 倒計時,從未來的某一時點往現在計算時間,用來表示距離某一期限還有多少時間 多含剩餘時間越來越少,越來越緊迫的意思 意義 倒計時 的意義在 現代漢語詞典 解釋為 從未來的某...

中考倒計時排怎麼做 如何做中考倒計時牌

什麼意思呢?設計個版面?這不是很簡單的事兒嗎?畫乙個厚厚的日曆,每天改乙個數字就像翻過一頁一樣。旁邊再寫點簡短的勵志的話,這種東西不要太花哨的好。如何做中考倒計時牌 你拿一些白紙來,大概現在中考剩下110天左右,你就拿110張白紙,分別寫上號碼,每日撕掉一張,從110天開始撕起。其實作為長久放置在班...

如果你的生命開始倒計時,該怎麼過

我不選在那個時候猜開始珍惜生命 如果你已經開始想到有這麼一天了 那是不是就說明你開始珍惜每一天的生活了呢 我想 只有珍惜現在擁有的每一天生活 你才會在你真的無法再繼續走下去的時候 沒有後悔 也會走的安詳 而當你無法堅持的時候 那就意味著你離堅持只差一步遠了 能夠活著最好還是活著,生活多美好啊 如果因...