［魅力老猫］幸运大转轮－－简单随机数发生器

.
       使用随机数在日常生活和工作中经常遇到，比如：分组、抽题、上场顺序、抽奖等等。产生随机数的传统做法有投硬币、掷骰子、转轮等。如果你对随机数
没什么严格要求只是娱乐一下的话，一个简单的随机发生器就够用了，而用PPT设计随机发生器又是非常容易的。
      本实例是一个简单的转轮随机数发生器，说它简单是因为没对它没进行加速、减速、惯性的设计。虽然简单，也不能控制想产生什么数就产生什么数。可根据需求设计自己的形式，设计关键是点击按钮运行VBA代码，代码只有两句，一个是运行，一个是暂停。
  
  最终效果：

 

      制作要点：

      1.设计转轮，样式自己看着办（本例转轮的扇形是用图表的饼图，取消组合取其所需，重新填充颜色再组合），将转轮上的数字随便放置，没有规律。
      2.添加定位小球（也可是指针），为了使小球沿转轮转动，添加一圆与小球组合，然后将圆无填充色，无线条颜色。
       3.按Alt+F11，打开Visual basic编辑器，插入一模块，复制下列代码：
         
         Sub Pause()
             ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
         End Sub
         Sub Running()
             ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
         End Sub
            
       4.添加启动和停止两个按钮，“启动”按钮动作设置：单击鼠标运行宏Running；“停止”按钮动作设置：单击鼠标运行宏Pause。
       5.给转轮添加动画，陀螺旋，速度自定，重复直到下次单击。
       6.给定位小球添加动画，陀螺旋，速度慢于转轮，方向与转轮相反。重复只到下次单击。
       7.两按钮的触发器为“启动”按钮。

(2010-05-24 14:51:34, Size: 14.2 KB, Downloads: 276)

(运行前先将宏安全级别设为低）

[ 本帖最后由 mllm 于 2010-5-30 09:41 编辑 ]