送你999朵玫瑰花
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
.版本 2.程序集 窗口程序集1.子程序 __啟動窗口_創建完畢.局部變量 屏幕快照, 字節集屏幕快照 ＝ 快照 (, , )_啟動窗口.可視 ＝ 真_啟動窗口.位置 ＝ 3畫板1.移動 (0, 0, 取屏幕寬度 (), 取屏幕高度 ())畫板1.底圖 ＝ 屏幕快照置隨機數種子 ()播放音樂 (#聲音1, 真)等待 (500)獻花 ().子程序 獻花.局部變量 a, 整數型.局部變量 b, 整數型.局部變量 c, 整數型.局部變量 d, 整數型a ＝ 載入圖片 (#白玫瑰)b ＝ 載入圖片 (#紅玫瑰)c ＝ 載入圖片 (#粉玫瑰)d ＝ 載入圖片 (#紅玫瑰1).判斷循環首 (a ≠ 0) 畫板1.畫圖片 (a, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 畫板1.畫圖片 (b, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 畫板1.畫圖片 (c, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 畫板1.畫圖片 (d, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100).判斷循環尾 ().子程序 _畫板1_鼠標左鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型停止播放 ()結束 ().子程序 _時鐘1_周期事件畫板1.文本顏色 ＝ 取顏色值 (取隨機數 (0, 255), 取隨機數 (0, 255), 取隨機數 (0, 255)).子程序 等待.參數 等待時間, 整數型.局部變量 i, 整數型i ＝ 取啟動時間 ().循環判斷首 () 處理事件 () 延時 (10).循環判斷尾 (取啟動時間 () － i ＜ 等待時間).子程序 __啟動窗口_按下某鍵, 邏輯型.參數 鍵代碼, 整數型.參數 功能鍵狀態, 整數型.如果真 (鍵代碼 ＝ #F4鍵 且 功能鍵狀態 ＝ #Alt鍵狀態) 停止播放 () 結束 ().如果真結束 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
