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

2021-07-12 17:17:41 字數 2024 閱讀 6832

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計時器問題

dim i as long private sub timer1 timer i i 1 if i val text9.text 60000 thencall command1 click i 0end if end sub private sub form load timer1.interval...

怎麼用VB製作倒計時,怎麼用VB製作一個倒計時?

窗體中放置三個command 三個label 一個timer控制元件,在form load過程中已經說明了控制元件用途,其中label1是顯示分鐘數,label2是顯示秒數,如下 dim js as integer 這裡宣告瞭一個全域性變數,儲存計時數 private sub command1 cl...

採用微控制器控制的時鐘計時器的設計內容 以MCS 51微控制器為核心,設計並製作時鐘計時器,用6位LED數碼管

keyval equ 30h keytm equ 31h keyscan equ 32h dat equ 33h scanled equ 39h clk equ 77h sec equ 78h min equ 79h hour equ 7ah pause bit 00h dot bit 01h or...