VB計(jì)時(shí)器的INterval 1秒和0.1秒的差別。
-
我設(shè)置了三個(gè)計(jì)時(shí)器做對(duì)比，計(jì)時(shí)器1我用的是INterval = 100，然后有個(gè)變量A=變量A+25，計(jì)時(shí)器2我用的是INterval = 1000，然后有個(gè)變量B=變量B+250，計(jì)時(shí)器3我用的是INterval = 100，變量C=變量C+1. 結(jié)果，在同一時(shí)間生效后，同一時(shí)間結(jié)束。我發(fā)現(xiàn)這個(gè)變量A比... 我設(shè)置了三個(gè)計(jì)時(shí)器做對(duì)比，計(jì)時(shí)器1我用的是INterval = 100，然后有個(gè)變量A=變量A+25，計(jì)時(shí)器2我用的是INterval = 1000，然后有個(gè)變量B=變量B+250，計(jì)時(shí)器3我用的是INterval = 100，變量C=變量C+1. 結(jié)果，在同一時(shí)間生效后，同一時(shí)間結(jié)束。我發(fā)現(xiàn)這個(gè)變量A比變量B小。我用的數(shù)量是20秒，就是C為20的時(shí)候看的。A明顯就少于B。INterval 這個(gè)要設(shè)置多少，才能在每秒的時(shí)候A=B呢，B應(yīng)該是準(zhǔn)的。 展開(kāi)
全部評(píng)論(1條)
-
- dai8411 2013-05-13 00:00:00
- 你可以試著在每個(gè)interval=100的時(shí)候，把A，B，C的值都顯示出來(lái)，就可以發(fā)現(xiàn)問(wèn)題在哪兒了，我是這樣想的，也許是C=20的時(shí)候出了啥問(wèn)題。
-
贊(10)
回復(fù)(0)
登錄或新用戶注冊(cè)
- 微信登錄
- 密碼登錄
- 短信登錄
請(qǐng)用手機(jī)微信掃描下方二維碼
快速登錄或注冊(cè)新賬號(hào)
微信掃碼，手機(jī)電腦聯(lián)動(dòng)
注冊(cè)登錄即表示同意《儀器網(wǎng)服務(wù)條款》和《隱私協(xié)議》
熱門(mén)問(wèn)答
- VB計(jì)時(shí)器的INterval 1秒和0.1秒的差別。
- 我設(shè)置了三個(gè)計(jì)時(shí)器做對(duì)比，計(jì)時(shí)器1我用的是INterval = 100，然后有個(gè)變量A=變量A+25，計(jì)時(shí)器2我用的是INterval = 1000，然后有個(gè)變量B=變量B+250，計(jì)時(shí)器3我用的是INterval = 100，變量C=變量C+1. 結(jié)果，在同一時(shí)間生效后，同一時(shí)間結(jié)束。我發(fā)現(xiàn)這個(gè)變量A比... 我設(shè)置了三個(gè)計(jì)時(shí)器做對(duì)比，計(jì)時(shí)器1我用的是INterval = 100，然后有個(gè)變量A=變量A+25，計(jì)時(shí)器2我用的是INterval = 1000，然后有個(gè)變量B=變量B+250，計(jì)時(shí)器3我用的是INterval = 100，變量C=變量C+1. 結(jié)果，在同一時(shí)間生效后，同一時(shí)間結(jié)束。我發(fā)現(xiàn)這個(gè)變量A比變量B小。我用的數(shù)量是20秒，就是C為20的時(shí)候看的。A明顯就少于B。INterval 這個(gè)要設(shè)置多少，才能在每秒的時(shí)候A=B呢，B應(yīng)該是準(zhǔn)的。 展開(kāi)
2013-05-12 04:13:37
432
1
- VB計(jì)時(shí)器interval
- 我把interval的屬性調(diào)到10，定義一個(gè)靜態(tài)變量t，Timer1.Timer事件為t=t+1，結(jié)果一秒內(nèi)t自加100。但我把interval設(shè)為1，結(jié)果一秒內(nèi)t自加甚至不到1，這是什么情況？如何解決？
2010-06-13 08:45:36
366
4
- 計(jì)時(shí)器和時(shí)間繼電器的差別？
- 有一個(gè)設(shè)備，計(jì)時(shí)運(yùn)行12H，是用什么來(lái)計(jì)時(shí)控制呢？求告知，順便給個(gè)型號(hào)啊
2014-04-01 08:11:11
511
3
- vb停止計(jì)時(shí)器
- 我想做一個(gè)程序，讓計(jì)時(shí)器隨機(jī)取一個(gè)數(shù)并可以讓計(jì)時(shí)器過(guò)5秒后自動(dòng)停止下來(lái)。 已編寫(xiě)代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰(shuí)能幫我完成過(guò)“5秒后自動(dòng)停止下來(lái)”這個(gè)... 我想做一個(gè)程序，讓計(jì)時(shí)器隨機(jī)取一個(gè)數(shù)并可以讓計(jì)時(shí)器過(guò)5秒后自動(dòng)停止下來(lái)。 已編寫(xiě)代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰(shuí)能幫我完成過(guò)“5秒后自動(dòng)停止下來(lái)”這個(gè)步驟??！ 不要手動(dòng)停止（什么timer1.enabled=false的）。 我是vb6.0的 展開(kāi)
2013-10-02 11:50:40
298
1
- vb正計(jì)時(shí)器
- 做一個(gè)這樣的格式的 00:00:00 往上計(jì)時(shí) dim a as date a=format(00:00:00 AM) text1.text=a timer.interval=1000 a=a+1 我純新手 只知道大概是這樣一個(gè)格式 請(qǐng)幫忙修改下。 Z好每句后面加上說(shuō)明 Z好修改我這上面的吧
2011-11-04 04:28:53
411
2
- vb怎么設(shè)計(jì)簡(jiǎn)單的計(jì)時(shí)器
- 用vb中的timer控件，設(shè)計(jì)計(jì)時(shí)器。用三個(gè)命令按鈕，分別為：開(kāi)始、暫停、結(jié)束。再用一個(gè)標(biāo)簽或者文本框顯示就好了。 各位大俠教教，我初學(xué)。
2011-05-23 14:16:03
368
2
- VB計(jì)時(shí)器怎么用
2009-11-24 00:38:51
480
3
- vb 如何重置計(jì)時(shí)器
- vb 如何重置計(jì)時(shí)器
2010-09-06 07:36:56
489
1
- VB 計(jì)時(shí)器 與 進(jìn)度條
- 我想把進(jìn)度條弄成7秒，然后打開(kāi)窗口form2 代碼該怎樣寫(xiě)？
2018-12-04 10:37:13
516
0
- ios開(kāi)發(fā)計(jì)時(shí)器為什么1秒執(zhí)行3次
2016-12-11 11:27:07
387
1
- vb計(jì)時(shí)器設(shè)計(jì)圖片左右往復(fù)運(yùn)動(dòng)vb代碼
2013-06-28 02:23:36
471
1
- vb 計(jì)時(shí)器怎么控制隨機(jī)數(shù)的產(chǎn)生
- 題目是：程序運(yùn)行是，單擊“開(kāi)始”按鈕，每秒鐘產(chǎn)生3個(gè)1到6的隨機(jī)數(shù)字 單擊“暫停”按鈕，終止隨機(jī)數(shù)的產(chǎn)生。 隨機(jī)數(shù)的代碼我會(huì)，但不知道計(jì)時(shí)器的代碼怎么寫(xiě) Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 題目是：程序運(yùn)行是，單擊“開(kāi)始”按鈕，每秒鐘產(chǎn)生3個(gè)1到6的隨機(jī)數(shù)字 單擊“暫停”按鈕，終止隨機(jī)數(shù)的產(chǎn)生。 隨機(jī)數(shù)的代碼我會(huì)，但不知道計(jì)時(shí)器的代碼怎么寫(xiě) Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10) Debug.Print x For i = 1 To 6 If i = x Then Exit For End If Next i Next l Label1.Caption = Int((Rnd * 6) + 1) Label2.Caption = Int((Rnd * 6) + 1) Label3.Caption = Int((Rnd * 6) + 1) End Sub Private Sub Timer1_Timer() End Sub 誰(shuí)能幫寫(xiě)下代碼啊 展開(kāi)
2009-12-12 01:28:18
493
4
- 用vb的timer做一個(gè)計(jì)時(shí)器程序
- 包括開(kāi)始、停止、重置，共3個(gè)按鈕 計(jì)時(shí)單位精確到0.01秒 重置后，再按開(kāi)始是從0開(kāi)始重新計(jì)時(shí)的 計(jì)時(shí)中會(huì)溢出錯(cuò)誤？ 請(qǐng)高手寫(xiě)一下代碼，特別是重置后，我自己做的時(shí)候不能重新從0開(kāi)始計(jì)時(shí)，而是又接著停止時(shí)的時(shí)間繼續(xù)下去!!!
2014-07-15 03:29:59
580
2
- 求vb計(jì)時(shí)器編程代碼
- 編寫(xiě)程序，用計(jì)時(shí)器按秒計(jì)時(shí)。在窗體上畫(huà)一個(gè)計(jì)時(shí)器控件和一個(gè)標(biāo)簽，運(yùn)行程序后，在標(biāo)簽內(nèi)顯示經(jīng)過(guò)的秒數(shù)，并響鈴
2018-02-26 21:39:20
502
1
- 怎樣用VB做一個(gè)秒表計(jì)時(shí)器
- 兩個(gè)按鈕，一個(gè)開(kāi)始鍵 一個(gè)清零鍵 ，想要點(diǎn)擊開(kāi)始鍵以后 開(kāi)始鍵變成 結(jié)束 文本也改成結(jié)束 按清零鍵后變回開(kāi)始 還想添加一個(gè)開(kāi)始的鍵盤(pán)快捷鍵（開(kāi)始和結(jié)束能夠公用這個(gè)快捷鍵） 求大神指教
2018-11-28 05:21:49
390
0
- vb計(jì)時(shí)器為何有如此大的誤差
- 我用vb寫(xiě)了一個(gè)關(guān)機(jī)器（秒為單位），在form1中畫(huà)了兩個(gè)text框，一個(gè)命令按鈕，一個(gè)表timer2，然后寫(xiě)了如下代碼 Dim a As Single '聲明變量a Private Sub Command1_Click() '按鈕單擊事件 a = Val(Text1.Text) ... 我用vb寫(xiě)了一個(gè)關(guān)機(jī)器（秒為單位），在form1中畫(huà)了兩個(gè)text框，一個(gè)命令按鈕，一個(gè)表timer2，然后寫(xiě)了如下代碼 Dim a As Single '聲明變量a Private Sub Command1_Click() '按鈕單擊事件 a = Val(Text1.Text) ' Timer2.Interval = 100 ' Timer2.Enabled = True End Sub Private Sub Form_Load() Timer2.Enabled = False End Sub Private Sub Timer2_Timer() a = a - 0.1 '每0.1秒示數(shù)減小0.1 Text2.Text = Str(a) If Val(Text2.Text) <= 0 Then Timer2.Enabled = False Shell "shutdown -s -t 300" '計(jì)時(shí)結(jié)束5分鐘后關(guān)機(jī) Text2.Text = "時(shí)間到！" Timer1.Enabled = False '結(jié)束計(jì)時(shí) End If End Sub 運(yùn)行時(shí)我用秒表掐了一分鐘，用vb做的計(jì)時(shí)器竟然比秒表慢將近10秒，并且過(guò)程中剩余時(shí)間出現(xiàn)了一大串小數(shù) 怎么回事？是不是由于計(jì)時(shí)器0.1秒就更新一次，時(shí)間更新間存在誤差？ 那么這個(gè)計(jì)時(shí)器該怎么改？ 展開(kāi)
2013-07-08 01:19:25
576
3
- 如何用VB程序做計(jì)時(shí)器？
2017-11-23 14:26:59
517
1
- VB 如何讓計(jì)時(shí)器重新計(jì)時(shí)
- Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End S... Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End Sub 展開(kāi)
2010-06-12 12:32:41
556
4
- VB如何用計(jì)時(shí)器控制窗體的顯示時(shí)間
2013-11-23 06:40:40
429
3
- VB 用計(jì)時(shí)器顯示日期時(shí)間上下午
2011-11-21 19:02:09
440
2
4月突出貢獻(xiàn)榜
推薦主頁(yè)
最新話題
滬公網(wǎng)安備 31011502008050號(hào)
參與評(píng)論
登錄后參與評(píng)論