【VB.NET】等待指定秒數

ㄤ骯

前幾天上課上到一半靈感突然出現，

想到原先Timer的功用是每隔一次設定好的時間就觸發一次tick的事件，

這次想要試試看把它改成停頓、等待指定時間，

於是寫了一個等待指定秒數專用的程式碼~(好孩子不要學，給我去乖乖上課)

---

這用法應該很好理解，就是把這段程式碼加到form裡面之後用wait(x)來執行，

x填等待的秒數，可以達到讓程式暫時停頓x秒之後才繼續執行的效果~

原理：

一、首先宣告一個叫做w_timer的timer，以及一個專門用來計數的w_tick。

二、定義一個函式(即前面提到的wait)，裡面的用法是：

　　首先先把w_tick歸零、以及設定好w_timer的tick間隔，

　　再來是啟用w_timer，讓他開始計時－－

　　當計時開始就跳入一個循環(直到w_tick不小於1為止)。

　　這個循環裡面的Application.DoEvents()有刷新畫面而防止卡住的功能。

　　再另外設置好w_timer的事件，

　　讓它每tick一次(也就是經過指定時間之後)，就把w_tick的值+1。

三、當w_tick的值不小於1－－

　　好了，這時候w_tick的值不小於1，所以跳開了剛剛提到的循環。

四、wait的部分繼續執行之後的程式碼：

　　把w_timer計時狀態關閉，並將其tick間隔設定為1 ms。

五、wait的函式執行結束，這樣子就達到了等待指定秒數的功能。

※ 注意一下 Do Until w_tick >= 1 這行，

　 這裡 w_tick 的判定建議不要用 = 1，用 >= 1 會比較好，

　 因為每台電腦執行速度不同，

　 若是等待間隔太小，可能電腦來不及判定完就已經 tick 超過一次了，

　 這樣子會造成不斷地循環……

程式碼如下：

Dim WithEvents w_timer As New Timer Dim w_tick As Integer Private Sub wait(ByVal second As Integer)     w_tick = 0     w_timer.Interval = second * 1000     w_timer.Enabled = True     Do Until w_tick >= 1         Application.DoEvents()     Loop     w_timer.Enabled = False     w_timer.Interval = 1 End Sub Private Sub w_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles w_timer.Tick     w_tick += 1 End Sub

套用上面的程式碼之後，執行下面這段程式碼可以測試效果：

Me.Text="000" wait(3) Me.Text="111" wait(3) Me.Text="222" wait(3) Me.Text="333"

注意看看你的Form會出現什麼效果吧

本篇VB教學到此為止~