VB 計(jì)時(shí)器 與 進(jìn)度條

我想把進(jìn)度條弄成7秒，然后打開(kāi)窗口form2 代碼該怎樣寫(xiě)？

2018-12-04 10:37:13 514 0

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 409 2

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

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í)器設(shè)計(jì)圖片左右往復(fù)運(yùn)動(dòng)vb代碼

　

2013-06-28 02:23:36 467 1

求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 500 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í)器？

　

2017-11-23 14:26:59 517 1

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í)器重新計(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í)間上下午

　

2011-11-21 19:02:09 438 2

關(guān)于 VB 計(jì)時(shí)器 Z大允許時(shí)間的問(wèn)題

我想做一個(gè)古代時(shí)辰的程序， 一共12個(gè)時(shí)辰，我計(jì)劃用12張圖片輪番顯示，可是計(jì)時(shí)器Z大只能記時(shí)65535毫秒，我想讓圖片2小時(shí)（7200秒）換一張，需要怎么來(lái)實(shí)現(xiàn)??？ 請(qǐng)高手指教！

2014-01-07 22:07:23 404 1

vb 計(jì)時(shí)器怎么控制隨機(jī)數(shù)的產(chǎn)生

題目是：程序運(yùn)行是，單擊“開(kāi)始”按鈕，每秒鐘產(chǎn)生3個(gè)1到6的隨機(jī)數(shù)字 單擊“暫?！卑粹o，終止隨機(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ù)字 單擊“暫?！卑粹o，終止隨機(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如何實(shí)現(xiàn)兩個(gè)計(jì)時(shí)器同時(shí)運(yùn)行

　

2014-11-11 23:30:23 506 1

用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 578 2

vb 計(jì)時(shí)器 使label隔一秒增加一

　

2012-06-25 08:13:26 647 3

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í)器控制窗體的顯示時(shí)間

　

2013-11-23 06:40:40 429 3