vb怎么设计简单的计时器

aaa一辈子4 2011-05-23 14:16:03 301 浏览

参与评论

登录后参与评论

全部评论(2条)

热门问答

vb怎么设计简单的计时器: 用vb中的timer控件，设计计时器。用三个命令按钮，分别为：开始、暂停、结束。再用一个标签或者文本框显示就好了。各位大侠教教，我初学。

vb停止计时器: 我想做一个程序，让计时器随机取一个数并可以让计时器过5秒后自动停止下来。已编写代码： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值为10 谁能帮我完成过“5秒后自动停止下来”这个... 我想做一个程序，让计时器随机取一个数并可以让计时器过5秒后自动停止下来。已编写代码： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值为10 谁能帮我完成过“5秒后自动停止下来”这个步骤啊！不要手动停止（什么timer1.enabled=false的）。我是vb6.0的展开

vb正计时器: 做一个这样的格式的 00:00:00 往上计时 dim a as date a=format(00:00:00 AM) text1.text=a timer.interval=1000 a=a+1 我纯新手只知道大概是这样一个格式请帮忙修改下。 Z好每句后面加上说明 Z好修改我这上面的吧

VB计时器interval: 我把interval的属性调到10，定义一个静态变量t，Timer1.Timer事件为t=t+1，结果一秒内t自加100。但我把interval设为1，结果一秒内t自加甚至不到1，这是什么情况？如何解决？

vb 计时器怎么控制随机数的产生: 题目是：程序运行是，单击“开始”按钮，每秒钟产生3个1到6的随机数字单击“暂停”按钮，终止随机数的产生。随机数的代码我会，但不知道计时器的代码怎么写 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 题目是：程序运行是，单击“开始”按钮，每秒钟产生3个1到6的随机数字单击“暂停”按钮，终止随机数的产生。随机数的代码我会，但不知道计时器的代码怎么写 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 谁能帮写下代码啊展开

怎样用VB做一个秒表计时器: 两个按钮，一个开始键一个清零键，想要点击开始键以后开始键变成结束文本也改成结束按清零键后变回开始还想添加一个开始的键盘快捷键（开始和结束能够公用这个快捷键）求大神指教

用vb的timer做一个计时器程序: 包括开始、停止、重置，共3个按钮计时单位精确到0.01秒重置后，再按开始是从0开始重新计时的计时中会溢出错误？请高手写一下代码，特别是重置后，我自己做的时候不能重新从0开始计时，而是又接着停止时的时间继续下去!!!

VB 如何让计时器重新计时: 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 展开

vb计时器为何有如此大的误差: 我用vb写了一个关机器（秒为单位），在form1中画了两个text框，一个命令按钮，一个表timer2，然后写了如下代码 Dim a As Single '声明变量a Private Sub Command1_Click() '按钮单击事件 a = Val(Text1.Text) ... 我用vb写了一个关机器（秒为单位），在form1中画了两个text框，一个命令按钮，一个表timer2，然后写了如下代码 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秒示数减小0.1 Text2.Text = Str(a) If Val(Text2.Text) <= 0 Then Timer2.Enabled = False Shell "shutdown -s -t 300" '计时结束5分钟后关机 Text2.Text = "时间到！" Timer1.Enabled = False '结束计时 End If End Sub 运行时我用秒表掐了一分钟，用vb做的计时器竟然比秒表慢将近10秒，并且过程中剩余时间出现了一大串小数怎么回事？是不是由于计时器0.1秒就更新一次，时间更新间存在误差？那么这个计时器该怎么改？展开