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的 展开
全部评论(1条)
-
- xxorockxxo 2013-10-03 00:00:00
- dim i as integer Private Sub Timer2_Timer()'timer2.interval=1000 i=i+1 if i=5 then timer2.enabled=false timer1.enabled=false end if End Sub
-
赞(19)
回复(0)
热门问答
- 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的 展开
2013-10-02 11:50:40
208
1
- VB计时器interval
- 我把interval的属性调到10,定义一个静态变量t,Timer1.Timer事件为t=t+1,结果一秒内t自加100。但我把interval设为1,结果一秒内t自加甚至不到1,这是什么情况?如何解决?
2010-06-13 08:45:36
272
4
- 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好修改我这上面的吧
2011-11-04 04:28:53
344
2
- VB 计时器 与 进度条
- 我想把进度条弄成7秒,然后打开窗口form2 代码该怎样写?
2018-12-04 10:37:13
425
0
- vb 如何重置计时器
- vb 如何重置计时器
2010-09-06 07:36:56
399
1
- VB计时器怎么用
2009-11-24 00:38:51
389
3
- vb计时器设计图片左右往复运动vb代码
2013-06-28 02:23:36
404
1
- 怎样用VB做一个秒表计时器
- 两个按钮,一个开始键 一个清零键 ,想要点击开始键以后 开始键变成 结束 文本也改成结束 按清零键后变回开始 还想添加一个开始的键盘快捷键(开始和结束能够公用这个快捷键) 求大神指教
2018-11-28 05:21:49
307
0
- 求vb计时器编程代码
- 编写程序,用计时器按秒计时。在窗体上画一个计时器控件和一个标签,运行程序后,在标签内显示经过的秒数,并响铃
2018-02-26 21:39:20
399
1
- 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 展开
2010-06-12 12:32:41
487
4
- vb怎么设计简单的计时器
- 用vb中的timer控件,设计计时器。用三个命令按钮,分别为:开始、暂停、结束。再用一个标签或者文本框显示就好了。 各位大侠教教,我初学。
2011-05-23 14:16:03
279
2
- 如何用VB程序做计时器?
2017-11-23 14:26:59
427
1
- 用vb的timer做一个计时器程序
- 包括开始、停止、重置,共3个按钮 计时单位精确到0.01秒 重置后,再按开始是从0开始重新计时的 计时中会溢出错误? 请高手写一下代码,特别是重置后,我自己做的时候不能重新从0开始计时,而是又接着停止时的时间继续下去!!!
2014-07-15 03:29:59
488
2
- Vb如何实现两个计时器同时运行
2014-11-11 23:30:23
429
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 谁能帮写下代码啊 展开
2009-12-12 01:28:18
424
4
- 关于 VB 计时器 Z大允许时间的问题
- 我想做一个古代时辰的程序, 一共12个时辰,我计划用12张图片轮番显示,可是计时器Z大只能记时65535毫秒,我想让图片2小时(7200秒)换一张,需要怎么来实现啊? 请高手指教!
2014-01-07 22:07:23
338
1
- VB 用计时器显示日期时间上下午
2011-11-21 19:02:09
353
2
- 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秒就更新一次,时间更新间存在误差? 那么这个计时器该怎么改? 展开
2013-07-08 01:19:25
452
3
- vb 计时器 使label隔一秒增加一
2012-06-25 08:13:26
556
3
- 怎么使javascript中的计时器设置停止
2012-11-11 16:57:06
403
4
9月突出贡献榜
- 单位预算忏悔
- 饿啊地方
- 空中有牛
- 依然相信你会
- 本生(天津)健康科技有限公司
- 猫合宝
- 上海一科仪器有限公司
- 广东皓天检测仪器有限公司
- 武汉安德信检测设备有限公司
- 东莞市皓天试验设备有限公司
- futu888
- 牛牛麻麻2
推荐主页
最新话题
参与评论
登录后参与评论