倒计时效果和动态抽奖结合,如何处理2个任务?

大氵寿 · 发表于 2014-1-8 17:01

抽奖附件:

choujiang.zip (55.9 KB, 下载次数: 23)

倒计时附件:

倒计时 ok.zip (38.22 KB, 下载次数: 17)

实现抽奖,一次抽10个人,
开始本来打算每次随机取10个人并显示,然后马上取另外10个,并连续取,达到人名随机闪动的效果.
但是这个随机过程实在是太慢了.很容易让人感觉抽奖是在作弊. 因为看到某个人名显示出来还可以来得及按停止.

所以我没办法,退而求其次, 当按了开始按钮后, 进入倒计时状态, 10秒倒计时结束的时候显示的哪10个人,就是哪10个人得奖.

现在问题来了,如何把这个计时器加入到这个过程里?

随机产生人名过程好做, 倒计时过程也好做.
但是同时让这二过程一起发生, 倒计时结束的时候结束掉随机过程 , 这个谁帮忙看看怎么写代码?

Option Explicit
Public a, k As Integer
Sub start()
Dim wb, sh As Object
Dim x(1 To 10), b, i, test, rg(1 To 3) As Integer
Dim na(1 To 66) As String
Set wb = ActivePresentation.Slides(3).Shapes(1).OLEFormat.Object
Set sh = wb.worksheets("sheet1")
a = 0
k = k + 1
'把人员名单读入内存
For i = 1 To 54
na(i) = sh.Cells(i + 1, 1).Value
Next
'随机取10个数,用来取10个随机的人名.
10: For i = 1 To 10
line1: test = Int(Rnd() * 66 + 1)
For b = 1 To i
If x(b) = test Then
GoTo line1
End If
Next
x(i) = test
Next
'在10个格子里显示取到的10个随机人名
For i = 1 To 10
ActivePresentation.Slides(3).Shapes(i + 1).TextFrame.TextRange.Text = na(x(i))
Next
DoEvents
If a = 1 Then Exit Sub
GoTo 10
End Sub
Sub Finish()
'按钮开关
a = 1
ActivePresentation.Slides(3).Shapes(12).TextFrame.TextRange.Text = "Round " & k
End Sub

复制代码

大氵寿 · 发表于 2014-1-8 17:02

这些资料都是论坛里找的，自己做了一些拼凑，由于资料繁杂，在此就不列人名了。

总之都谢谢了。

大氵寿 · 发表于 2014-1-8 17:04

用excel产生随机可以做抽奖但是投影后效果太差了，还是ppt好看，

谁帮帮忙，谢谢了，
以上问题，如果有其他途径可以解决，也请提供一下，我目前只想到这个。

还有一个不是方法的方法，就是点了开始按钮后，设置程序循环30次取随机，30次循环结束的时候停止。不过这个效果肯定没倒计时好看，

大氵寿 · 发表于 2014-1-8 17:05

实现抽奖,一次抽10个人,
开始本来打算每次随机取10个人并显示,然后马上取另外10个,并连续取,达到人名随机闪动的效果.
但是这个随机过程实在是太慢了.很容易让人感觉抽奖是在作弊. 因为看到某个人名显示出来还可以来得及按停止.

所以我没办法,退而求其次, 当按了开始按钮后, 进入倒计时状态, 10秒倒计时结束的时候显示的哪10个人,就是哪10个人得奖.

现在问题来了,如何把这个计时器加入到这个过程里?

随机产生人名过程好做, 倒计时过程也好做.
但是同时让这二过程一起发生, 倒计时结束的时候结束掉随机过程 , 这个谁帮忙看看怎么写代码?

附件及在这个帖：
http://club.excelhome.net/forum.php?mod=viewthread&tid=1087154&extra=

		自动登录	找回密码
密码			免费注册

[求助] 倒计时效果和动态抽奖结合,如何处理2个任务?

发现发错版了，发到excel vba区了，问题特转到这里。

点评