我正在创建一个老虎机，它具有重新旋转功能（在代码中被识别为踩踏），就像赌场里的机器Haywire一样随机获胜。
最初的旋转/胜利工作正常...在生成随机重新旋转后，脚本然后随机选择授予的重新旋转次数并调用Sub Datecheck()
Dim MyFile As String
Dim erow
Dim Filepath As String
Dim otherfiledate As Date
Dim zmasterdate As Date
Filepath = "folder of where all files are located"
MyFile = Dir(Filepath)
zmasterdate = FileDateTime("location of zmasterdate")
Do While Len(MyFile) > 0
otherfiledate = FileDateTime(Filepath & "\" & MyFile)
If otherfiledate > zmasterdate Then
Workbooks.Open (Filepath & MyFile)
Range("B4:N4").Copy
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Reflections").Range(Cells(erow, 2), Cells(erow, 14))
End If
MyFile = Dir
Loop
End Sub
循环授予的旋转次数
stampede()本身位于＆＃39; setTimeout（）＆＃39;如果在恭喜屏幕的初始胜利中取得一场大胜，这将推迟它的开始......这很好。
每个卷轴上stampede()处理旋转的卷轴动画。问题是该代码被停止卷轴代码绕过，该代码位于用于停止卷轴的一组setInterval()函数中。它直接进入止动卷轴。
循环本身可以正常滑动压盖声明屏幕，并在屏幕上显示＆＃34; show win和bank add＆＃34; setTimeOut()内部.animateNumber()无法正常工作。
动画卷轴并使它们在stampede()之外停止工作的代码都很正常，但正如所述，卷轴动画在stampede()中无效...
这是我的代码：
stampede()我不知所措......任何帮助都将不胜感激。 在此先感谢Pete