vb設計計時器,vb 設計一個計時器

時間 2021-07-12 17:17:13

1樓:匿名使用者

10ms產生一次timer事件是不行的

因為vb的timer是有一個精度的,精度大約在55ms,所以interval再小就不起作用了,api gettickcount的精度大約也是在55ms,要想獲得更高的精度,可以用api timegettime,其精度大約在1-10ms,如果這個仍然滿足不了你的要求,windows內部還有一個更高的定時器,精度在微秒級, 但不同的系統這個定時器的頻率不同, 這個頻率與硬體和作業系統都可能有關。利用 api 函式 queryperformancefrequency 可以得到這個定時器的頻率。利用 api 函式 queryperformancecounter 可以得到定時器的當前值。

根據要延時的時間和定時器的頻率, 可以算出要延時的時間定時器經過的週期數。在迴圈裡用 queryperformancecounter 不停的讀出定時器值, 一直到經過了指定週期數再結束迴圈, 就達到了高精度延時的目的。這是目前可以得到的最高精度了。

2樓:

private sub command1_click()text1.text = 0

timer1.interval = 10

timer1.enabled = trueend sub

private sub command2_click()timer1.enabled = falseend sub

private sub timer1_timer()text1.text = text1.text + 0.1end sub

vb中怎樣製作一個計時器? 能夠設定倒計時的時間,並進行倒計時

3樓:

1、開啟vb6.0,新建一個工程,在窗體中新增三個命令按鈕,caption分別改為“設定倒計時”、“啟動倒計時”、“繼續”,將窗體form1的caption屬性改為“倒計時”,新增一個計時器控制元件,新增一個文字框。

2、將文字框的text屬性清空,將字型font屬性調整為小四,便於觀察,將背景色屬性backcolor調為淺黃色。

3、雙擊“設定倒計時”命令按鈕,進入**編輯視窗。

4、雙擊“啟動倒計時”命令按鈕,進入**編輯視窗。

5、雙擊“計時器”控制元件,進入**編輯視窗。

6、在**編輯視窗的通用段進行變數定義:dim h as integer, m as integer, s as integer '分別儲存時分秒dim a as integer。

8、關閉**視窗,按下f5執行程式,單擊“設定倒計時”命令按鈕,彈出輸入對話方塊,此時輸入分鐘數為1,確定。

9、單擊“啟動倒計時”命令按鈕,文字框顯示倒計時時間,並時刻變動,至此實現了倒計時功能。

4樓:天天過節

用到三個控制元件:文字框(text1)、按鈕(command1)、計時器(timer1)

private sub command1_click()timer1.interval = 1000end sub

private sub timer1_timer()text1.text = val(text1.text) - 1if text1.

text < 1 thenmsgbox "時間到"

unload me

end if

end sub

5樓:弒神者是我

事先要在秒錶**調 enable屬性為false,interval屬性為1000

private sub command1_click()timer1.enabled = trueend sub

private sub timer1_timer()text1.text = val(text1.text) - 1if text1.

text < 1 thenmsgbox "時間到"

unload me

end if

end sub

6樓:匿名使用者

設定倒計時 開始時間t

for ,step -1

顯示 t-1s

next

VB計時器有哪些重要屬性,VB中製作計時器應改變計時器的什麼屬性值

我們說的vb計時器就是工具箱 控制元件箱 上的timer控制元件。timer 控制元件有兩個重要屬性 enabled和interval其中,若希望窗體一載入定時器就開始工作,應將enabled屬性設定為 true。否則,保持此屬性為 false。有時可能選擇由外部事件 例如單擊命令按鈕 啟動定時器操...

VB正計時器

private sub timer1 timer m timer val form1.tag n0 m 10 mod 10 m int m n1 format m mod 60,00 n2 format m 60 mod 60,00 n3 format m 3600 mod 24,00 n4 m 3...

VB中怎樣設計時間倒計時,要可以在中途停止,從新開始,謝謝

2014年國慶節倒計時程式,可以停止 開始,有天 時 分 秒動態顯示。需要原始檔,給地址。 新增一個時鐘控制元件 然後在時鐘控制元件的事件中寫 時鐘控制元件只要一個事件 你別說不知道 倒計時 比如從100開始 在通用部分宣告一個數值型變數 dim sz as integer 記住是通用部分 然後在窗...