VB.net 如何設(shè)定準(zhǔn)確的1秒時(shí)間？

form 的load事件中加一句：timer1.interval=1000

10多年的阜南網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。網(wǎng)絡(luò)營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整阜南建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)公司從事“阜南網(wǎng)站設(shè)計(jì)”,“阜南網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

在一個(gè)按鈕里面加入一句觸發(fā)timer事件開(kāi)始計(jì)時(shí)的代碼：

timer1.enabled=true

timer的tick事件中加入這么兩句：

textbox1.backcolor=color.red

timer1.enabled=false

怎樣用vb.net做毫秒計(jì)時(shí)器（有沒(méi)有什么類似于ccrptmr之類的控件）

不需要控件就可以，用多線程的方式實(shí)現(xiàn)，在窗體上放一個(gè)Label和一個(gè)button按鈕，代碼如下：

Imports?System.Threading

Public?Class?Form1

Dim?Start?As?Double

Dim?td?As?Thread

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Label1.Text?=?"00:00:00?000"

Button1.Text?=?"開(kāi)始"

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

If?Button1.Text?=?"開(kāi)始"?Then

Button1.Text?=?"結(jié)束"

Start?=?DateAndTime.Timer

td?=?New?Thread(AddressOf?fun1)

td.Start()

Else

Button1.Text?=?"開(kāi)始"

td.Abort()

End?If

End?Sub

'定義一個(gè)線程

Private?Sub?fun1()

Dim?elapsed?As?TimeSpan

Dim?Dg_txt?As?New?Dg(AddressOf?txt)

Do

elapsed?=?TimeSpan.FromMilliseconds((DateAndTime.Timer?-?Start)?*?1000)

Me.Invoke(Dg_txt,?elapsed.ToString,?Label1)

Thread.Sleep(100)

Loop

End?Sub

'定義一個(gè)委托

Delegate?Sub?Dg(ByVal?s?As?String,?ByVal?obj?As?Label)

Sub?txt(ByVal?s?As?String,?ByVal?obj?As?Label)

obj.Text?=?s

End?Sub

End?Class

vb.net毫秒計(jì)時(shí)器代碼問(wèn)題

elapsed.Milliseconds 獲取毫秒。

每100毫秒，do中的代碼執(zhí)行一次，執(zhí)行時(shí)間將大于100毫秒，這是產(chǎn)生誤差的地方之一。invoke執(zhí)行一個(gè)方法txt，必須等txt里面的代碼運(yùn)行完畢，方法才能返回，期間占用的時(shí)間全是“誤差”。

無(wú)限循環(huán)，且沒(méi)有退出機(jī)制，停不下來(lái)。

求助，如何用vb.net編寫一個(gè)秒表

Dim tCount As Integer '用來(lái)計(jì)數(shù)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

tCount = 10

Timer1.Interval = 1000 '每秒執(zhí)行一次

Timer1.Enabled = True

End

Sub

Private Sub

Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick

tCount -= 1

If tCount = 0 Then

MessageBox.Show("時(shí)間到")

Timer1.Enabled = False

End If

End

Sub

高精度計(jì)時(shí)器

可以實(shí)現(xiàn)，但是不是用vb.net提供的Timer控件，這個(gè)控件精度較低，只能用多線程循環(huán)檢測(cè)時(shí)間，通過(guò)調(diào)用系統(tǒng)函數(shù)Environment.TickCount獲取微秒級(jí)的時(shí)間：

sub threadloop

dim s as integer '保存上次調(diào)用函數(shù)的時(shí)間

do while true

if Environment.TickCount - s = 50 then '隔50微妙調(diào)用一次函數(shù)

s=Environment.TickCount

call xxx '調(diào)用外部函數(shù)

end if

loop

end sub

上面的函數(shù)放在多線程中運(yùn)行

當(dāng)前名稱：vb.net微秒 VB中毫秒的函數(shù)
網(wǎng)頁(yè)鏈接：http://chinadenli.net/article46/hijheg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、定制網(wǎng)站、企業(yè)網(wǎng)站制作、網(wǎng)站導(dǎo)航、服務(wù)器托管、虛擬主機(jī)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)