-
1 # 圖色PPT
-
2 # 微創社
題目解析
1、要求動畫，抽動畫
2、要求隨機，用函式動畫實現最方便
3、要求1-300，就是實現每位的隨機，可擴充套件到任意數字情況。
解題有兩種做法：
一是縱向偏移產生隨機
二是橫向偏移產生隨機
插入數值
縱向更真觀些，所以插入一列數值，我們插入所有數值情況吧：
配上動畫PPT無法直接操作，可選擇使用：
PPK、PA、PPT動畫大師之一：
通用公式：
((1-min(floor($*60)%60,1))*(floor(rand(數字個數/10)*10)/(數字個數-1) ±偏移量) + min(floor($*60)%60,1)*ppt_y
0-9例項：
((1-min(floor($*60)%60,1))*(floor(rand(1)*10)/9-0.2) + min(floor($*60)%60,1)*ppt_y
案例見天好作品之《隨機動畫12例》
-
3 # 學習Dream
步驟：
1、背景：
開啟PowerPoint軟體，新建幻燈片，右鍵“設定背景格式”-“填充”-“圖片或紋理填充”，選擇準備好的背景圖片。
3、新增控制元件：
點選“開發工具”選單-“標籤”控制元件，新增1個員工號的標籤控制；“命令按鈕”控制元件，新增2個按鈕控制；選擇員工號控制，右鍵“屬性表”開啟“屬性”對話方塊，選擇命令按鈕1，設定BackColor為淺綠、Caption為開始抽獎、Font為隸書粗體一號、ForeColor為深綠色；切換到命令按鈕1，設定BackColor為淺粉、Caption為停止抽獎、Font為隸書粗體一號、ForeColor為紅色；切換到標籤控制，設定BackColor為紅色、Caption為中獎號、Font為隸書粗體初號、ForeColor為黃色；
4、“插入”選單-“文字”-“文字框”-“橫排文字框”，輸入文字“祝賀中獎的員工號為：”，並設定為隸書、大小為48加粗、陰影、黃色；調整3個控制元件框的大小和位置。
Public a, b As Integer
Private Sub CommandButton1_Click()
b = 0
Do While True
a = 1 + Int(Rnd() * 99)
Label1.Caption = a
Dim Savetime As Single
Savetime = Timer
While Timer < Savetime + 0.05
DoEvents
Wend
If b = 1 Then
Exit Do
End If
Loop
End Sub
在程式碼框的下方貼上程式碼：
Private Sub CommandButton2_Click()
b = 1
Label1.Caption = a
End Sub
將檔案儲存為啟用宏的簡報格式的檔案*.pptm。
6、程式碼的解釋：
Public a, b As Integer//宣告兩個全域性變數a和b
b = 0//把變數設為0，這是一個標誌量，為0時執行隨機函式，為時執行停止操作
Do While True//無限迴圈，使隨機數變化。
a = 1 + Int(Rnd() * 99)//產生隨機數表示式，99代表的是1~99之間的隨機數
Label1.Caption = a//使標籤控制元件顯示生成的隨機數。
Dim Savetime As Single//這五行用於延時，防止系統死掉
Savetime = Timer
While Timer < Savetime + 0.05
DoEvents
Wend
If b = 1 Then//判斷b值是否為1，如果為1，則停止產生隨機數。
Exit Do //退出無限迴圈
End If//否則，繼續執行無限迴圈
Loop//無限迴圈
End Sub//函式結束標誌
Private Sub CommandButton2_Click()//這是停止控制元件的監聽事件
b = 1//把b值設為1.
Label1.Caption = a//把選擇的隨機數顯示出來
End Sub//函式結束標誌
回覆列表
正好根據這個問題，也發表了一個此類動畫教程。
先看效果，是不是很神奇，公司發獎金、抽獎很需要這個效果哦~~
組合效果
單列效果
中文效果常見於“班級喊到”
下面講講教程方法吧，最多五步即可！
做完上述5步驟，就大功告成了！
你們趕緊試試吧！
學會了基本思路，下圖這個其實也可以做出來，道理是一樣的！