易語言送你999朵玫瑰花源碼

更新時(shí)間：2018年12月04日 14:41:38 作者：易語言源碼進(jìn)程

今天小編就為大家分享一篇關(guān)于易語言送你999朵玫瑰花源碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧

送你999朵玫瑰花

.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 屏幕快照, 字節(jié)集
屏幕快照 ＝ 快照 (, , )
_啟動窗口.可視 ＝ 真
_啟動窗口.位置 ＝ 3
畫板1.移動 (0, 0, 取屏幕寬度 (), 取屏幕高度 ())
畫板1.底圖 ＝ 屏幕快照
置隨機(jī)數(shù)種子 ()
播放音樂 (#聲音1, 真)
等待 (500)
獻(xiàn)花 ()
.子程序 獻(xiàn)花
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 c, 整數(shù)型
.局部變量 d, 整數(shù)型
a ＝ 載入圖片 (#白玫瑰)
b ＝ 載入圖片 (#紅玫瑰)
c ＝ 載入圖片 (#粉玫瑰)
d ＝ 載入圖片 (#紅玫瑰1)
.判斷循環(huán)首 (a ≠ 0)
  畫板1.畫圖片 (a, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (b, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (c, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (d, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
.判斷循環(huán)尾 ()
.子程序 _畫板1_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
停止播放 ()
結(jié)束 ()
.子程序 _時(shí)鐘1_周期事件
畫板1.文本顏色 ＝ 取顏色值 (取隨機(jī)數(shù) (0, 255), 取隨機(jī)數(shù) (0, 255), 取隨機(jī)數(shù) (0, 255))
.子程序 等待
.參數(shù) 等待時(shí)間, 整數(shù)型
.局部變量 i, 整數(shù)型
i ＝ 取啟動時(shí)間 ()
.循環(huán)判斷首 ()
  處理事件 ()
  延時(shí) (10)
.循環(huán)判斷尾 (取啟動時(shí)間 () － i ＜ 等待時(shí)間)
.子程序 __啟動窗口_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (鍵代碼 ＝ #F4鍵 且 功能鍵狀態(tài) ＝ #Alt鍵狀態(tài))
  停止播放 ()
  結(jié)束 ()
.如果真結(jié)束

運(yùn)行結(jié)果：