怎样在抽奖系统里定时每隔10秒就抽出中奖人

想做NO.1

就是点击开始按钮后10秒钟,系统就自动产生中奖人,再点开始按钮10秒钟后系统继续产生又一个中奖人.(PS:待中奖人的姓名是在屏幕上以每隔1毫秒的速度闪烁的)

这个定时的代码怎么实现?    ....求救啊....

todaynew

窗体设计视图---属性---事件---计时器触发事件，在该事件中写抽奖代码。同时在属性---事件---计时器间隔中，写10000。

计时器间隔1000=1秒。

termisss

来学习！

想做NO.1

回复 todaynew 的帖子

我可能没表达清楚,换种方式说吧,我希望在点击Command17按钮后等待10秒钟再执行Me.TimerInterval = 0   Me.Lottery = "Yes"  Me.Jiangji = "二等奖".
不知如何等待10秒钟

在ACCESS里试了WAIT不行,不知是不是我用得不对

Private Sub Command17_Click()
Me.TimerInterval = 0
Me.Lottery = "Yes"
Me.Jiangji = "二等奖"
End Sub

todaynew

1、在窗体模块中设一个公共变量
dim T as long

2、在按钮单击事件中：
Private Sub Command17_Click()
T=0
Me.TimerInterval = 1000  '打开计时器
End Sub

3、在窗体的计时器触发事件中写：
Private Sub Form_Timer()
T=T+1
if T=10 then
     Me.Lottery = "Yes"
     Me.Jiangji = "二等奖"
    Me.TimerInterval = 0  '关闭计时器
end if
End Sub

当然，也可用DateDiff函数来计算时间。

具体处理方法可参见《定时诈弹》一文。

想做NO.1

回复 todaynew 的帖子

但是窗体的计时器触发事件中已经有下面的代码:

'计时器触发时屏幕上会滚动显示被抽奖人的姓名等资料(如果下面这段去掉姓名就不会在屏幕上滚动)
Private Sub Form_Timer()
Dim X As Integer, Y As Integer, I As Integer
On Error GoTo Err_Form_Timer
    DoCmd.GoToRecord , , acFirst
    X = Me.Recordset.RecordCount
    Randomize
    Y = Int(X * Rnd + 1)
    DoCmd.GoToRecord , , , Y
    Me.Repaint
   
Exit_Form_Timer:
    Exit Sub

Err_Form_Timer:
    MsgBox Err.Description
    Resume Exit_Form_Timer
End Sub


又打扰你了,版主大哥,还有办法没?

想做NO.1

回复 todaynew 的帖子

谢谢todaynew 的帮助,把循环加入到原来的代码里就可以了,再次感谢todaynew先生

Private Sub Command17_Click()
T=0
Me.TimerInterval = 1  '打开计时器,这里用的是1毫秒
End Sub


Private Sub Form_Timer()
Dim X As Integer, Y As Integer, I As Integer
T = T + 1
    DoCmd.GoToRecord , , acFirst
    X = Me.Recordset.RecordCount
    Randomize
    Y = Int(X * Rnd + 1)
    DoCmd.GoToRecord , , , Y
    Me.Repaint
If T = 500 Then '这里虽然用500毫秒,但实际上需要7秒左右才执行下面的代码,难道跟电脑运行速度有关?可是电脑配置很好哦
     Me.Lottery = "Yes"
     Me.Jiangji = "二等奖"
     Me.TimerInterval = 0  '关闭计时器
End If
End Sub

ycxchen

Me.Lottery = "Yes"
     Me.Jiangji = "二等奖"
只是赋值，不会500毫秒的需要7秒左右才执行？是不是代码还没有优化？发个例子上来如何？

todaynew

把时间间隔调大一些，这就就可以比较接近设定时间。如果每毫秒都进行一次随机取数，并在窗体上跳转记录，当然就需要花费时间，时间间隔越小累计的误差越大。

想做NO.1

回复 ycxchen 的帖子

例子里面基本也就只有我在7楼写的那两段,应该不存在优化不优化的问题