易语言表白示爱程序
.版本 2
.程序集 窗口程序集2
.程序集变量 图片坐标1X, 文本型, , "0"
.程序集变量 图片坐标1Y, 文本型, , "0"
.程序集变量 次数1, 整数型
.程序集变量 图片坐标数组1, 文本型, , "0"
.程序集变量 图片坐标1XY, 文本型, , "0"
.程序集变量 参数1, 整数型
.程序集变量 参数2, 整数型
.程序集变量 图片坐标数组2, 文本型, , "0"
.程序集变量 次数2, 整数型
.程序集变量 图片坐标2Y, 文本型, , "0"
.程序集变量 图片坐标2X, 文本型, , "0"
.程序集变量 图片坐标2XY, 文本型, , "0"
.子程序 _窗口1_创建完毕
.局部变量 句柄, 整数型
.局部变量 被分割的文本1, 文本型
.局部变量 n, 整数型
.局部变量 被分割的文本2, 文本型
窗口1.位置 ＝ 3
画板1.左边 ＝ 0
画板1.顶边 ＝ 0
画板1.宽度 ＝ 取屏幕宽度 ()
画板1.高度 ＝ 取屏幕高度 ()
被分割的文本1 ＝ “15,7|16,7|17,7|18,7|30,7|31,7|32,7|33,7|13,8|14,8|19,8|29,8|34,8|35,8|13,9|20,9|21,9|27,9|28,9|35,9|12,10|22,10|26,10|36,10|11,11|23,11|25,11|37,11|11,12|24,12|37,12|11,13|37,13|11,14|37,14|11,15|37,15|12,16|36,16|12,17|36,17|13,18|35,18|13,19|35,19|14,20|34,20|15,21|33,21|16,22|32,22|17,23|31,23|18,24|19,24|29,24|30,24|20,25|28,25|21,26|22,26|26,26|27,26|23,27|25,27|24,28”
图片坐标数组1 ＝ 分割文本 (被分割的文本1, “|”, )
次数1 ＝ 取数组成员数 (图片坐标数组1)
.计次循环首 (次数1, n)
图片坐标1XY ＝ 分割文本 (图片坐标数组1 [n], “,”, )
加入成员 (图片坐标1X, 到文本 (到数值 (图片坐标1XY [1]) － 2))
加入成员 (图片坐标1Y, 图片坐标1XY [2])
.计次循环尾 ()
被分割的文本2 ＝ “24,6|25,5|26,4|27,3|28,2|29,2|30,1|31,1|32,0|33,0|34,0|35,0|36,0|37,0|38,0|39,1|40,1|41,2|42,3|43,4|44,5|44,6|45,7|45,8|46,9|46,10|46,11|46,12|46,13|46,14|45,15|45,16|45,17|44,18|44,19|43,20|42,21|41,22|40,23|39,24|38,25|37,26|36,27|35,28|34,29|32,30|33,30|30,31|31,31|29,32|27,33|28,33|25,34|26,34|24,35|23,34|22,34|21,33|20,33|19,32|18,31|17,31|16,30|15,30|14,29|13,28|12,27|11,26|10,25|9,24|8,23|7,22|6,21|5,20|4,19|4,18|3,17|3,16|3,15|2,14|2,13|2,12|2,11|2,10|2,9|3,8|3,7|4,6|4,5|5,4|6,3|7,2|8,1|9,1|10,0|11,0|12,0|13,0|14,0|15,0|16,0|17,1|18,1|19,2|20,2|21,3|22,4|23,5”
图片坐标数组2 ＝ 分割文本 (被分割的文本2, “|”, )
次数2 ＝ 取数组成员数 (图片坐标数组2)
.计次循环首 (次数2, n)
图片坐标2XY ＝ 分割文本 (图片坐标数组2 [n], “,”, )
加入成员 (图片坐标2X, 到文本 (到数值 (图片坐标2XY [1]) － 2))
加入成员 (图片坐标2Y, 图片坐标2XY [2])
.计次循环尾 ()
参数1 ＝ (取屏幕宽度 () － 98) ÷ 43
参数2 ＝ (取屏幕高度 () － 86) ÷ 34
设置窗口 (窗口1.取窗口句柄 (), -20, 位或 (取窗口风格 (窗口1.取窗口句柄 (), -20), 524288))
设置透明 (窗口1.取窗口句柄 (), #白色, 200, 1)
载入 (窗口2, _启动窗口, 真)
时钟1.时钟周期 ＝ 200
.子程序 _时钟1_周期事件
.局部变量 n, 整数型
.局部变量 图片号1, 整数型
.局部变量 偏移x, 整数型
.局部变量 偏移y, 整数型
.局部变量 桃心随机撒花, 整数型
.局部变量 图片号2, 整数型
.局部变量 屏幕快照, 字节集
图片号1 ＝ 载入图片 (#玫瑰花)
.计次循环首 (108, n)
置随机数种子 ()
画板1.画图片 (图片号1, 参数1 × 到数值 (图片坐标2X [n]), 参数2 × 到数值 (图片坐标2Y [n]), , , -16777215)
延时 (90)
.计次循环尾 ()
画板1.置写出位置 (参数1 × 到数值 (图片坐标2X [1]) － 170, 参数2 × 到数值 (图片坐标2Y [32]))
画板1.滚动写行 (“ XXX ”)
延时 (2000)
画板1.滚动写行 (“ 其实我暗恋你很久呢， ”)
延时 (2000)
画板1.滚动写行 (“ 真的呢 我真的喜欢你呢呵；”)
延时 (3000)
.计次循环首 (199, n)
置随机数种子 ()
桃心随机撒花 ＝ 取随机数 (1, 66)
画板1.画图片 (图片号1, 参数1 × 到数值 (图片坐标1X [桃心随机撒花]), 参数2 × 到数值 (图片坐标1Y [桃心随机撒花]), , , -16777215)
延时 (50)
.计次循环尾 ()
延时 (2000)
画板1.滚动写行 (“ 我爱你，真的，我会对你很好的！”)
延时 (2000)
画板1.滚动写行 (“ 坚守自己的信念 一生所追求梦寐以求的你”)
延时 (2000)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 你最喜欢粉玫瑰 ”)
延时 (3500)
.计次循环首 (999, n)
置随机数种子 ()
偏移x ＝ 取随机数 (0, 取屏幕宽度 ())
置随机数种子 ()
偏移y ＝ 取随机数 (0, 取屏幕高度 ())
画板1.画图片 (图片号1, 偏移x － 49, 偏移y － 43, , , -16777215)
延时 (10)
.计次循环尾 ()
画板1.置写出位置 (参数1 × 到数值 (图片坐标2X [1]) － 400, 参数2 × 到数值 (图片坐标2Y [1]))
画板1.滚动写行 (“屏幕上撒满了999朵玫瑰”)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ ” ＋ “送给我最亲爱的你”)
延时 (5000)
.计次循环首 (取屏幕宽度 (), n)
画板1.清除 (0, 0, n, 取屏幕高度 () × n ÷ 取屏幕宽度 ())
.计次循环尾 ()
.计次循环首 (199, n)
置随机数种子 ()
桃心随机撒花 ＝ 取随机数 (1, 66)
画板1.画图片 (图片号1, 参数1 × 到数值 (图片坐标1X [桃心随机撒花]), 参数2 × 到数值 (图片坐标1Y [桃心随机撒花]), , , -16777215)
延时 (50)
.计次循环尾 ()
画板1.置写出位置 (参数1 × 到数值 (图片坐标2X [1]) － 125, 参数2 × 到数值 (图片坐标2Y [32]))
画板1.滚动写行 (“ 送给最美的你，”)
画板1.滚动写行 (“ 我就喜欢你，真的，我狠爱你！！”)
画板1.滚动写行 (“冷孤幽：ｘｘ always on the way XXX”)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ ”)
延时 (2000)
.计次循环首 (108, n)
置随机数种子 ()
画板1.画图片 (图片号1, 参数1 × 到数值 (图片坐标2X [n]), 参数2 × 到数值 (图片坐标2Y [n]), , , -16777215)
延时 (15)
.计次循环尾 ()
延时 (3000)
画板1.滚动写行 (“ love XXX”)
时钟1.时钟周期 ＝ 0
延时 (10000)
.计次循环首 (取屏幕宽度 (), n)
画板1.清除 (0, 0, n, 取屏幕高度 () × n ÷ 取屏幕宽度 ())
.计次循环尾 ()
画板1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
画板1.底图 ＝ 屏幕快照
置随机数种子 ()
延时 (500)
献花 ()
.子程序 献花
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型
.局部变量 n, 整数型
.局部变量 x, 整数型
.局部变量 图片号1, 整数型
.局部变量 图片号2, 整数型
a ＝ 载入图片 (#白玫瑰)
b ＝ 载入图片 (#红玫瑰)
c ＝ 载入图片 (#粉玫瑰)
d ＝ 载入图片 (#红玫瑰1)
画板1.置写出位置 (参数1 × 到数值 (图片坐标2X [1]) － 110, 参数2 × 到数值 (图片坐标2Y [32]))
画板1.滚动写行 (“ ｘｘｘ：”)
画板1.滚动写行 (“ 送给最美的你XXX，”)
画板1.滚动写行 (“ 我就喜欢你，真的，我狠爱你！！”)
画板1.滚动写行 (“冷孤幽：ｘｘ always on the way XXX”)
画板1.滚动写行 (“ 如果你还有许多话要对她说， 这里的词汇可以自己继续添加”)
' 以下自己修改－ －这很乱、
延时 (4000)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板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.画图片 (e, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (100)
画板1.画图片 (a, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215)
延时 (5000)
.计次循环首 (取屏幕宽度 (), n)
画板1.清除 (0, 0, n, 取屏幕高度 () × n ÷ 取屏幕宽度 ())
.计次循环尾 ()
画板1.置写出位置 (参数1 × 到数值 (图片坐标2X [1]) － 110, 参数2 × 到数值 (图片坐标2Y [20]))
画板1.文本颜色 ＝ #红色
画板1.滚动写行 (“ XXX”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 我爱你我爱你！”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 因为不知道爱是什么”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 我愿意一生都只追求XXX ”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 让你感觉到幸福！”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 其实能和你在一起就是最大的幸福”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 我想大声的说出来”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 我爱你 ”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 我想轻轻的告诉你 ”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 爱你胜过一切”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 爱你都不知道如何表达了”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 只有把你放在我的心里”)
延时 (1500)
画板1.滚动写行 (“ ”)
画板1.滚动写行 (“ 牵着你牵着你牵着你！！让我们幸福到老”)
延时 (11000)
结束 () 那边
想要程序源码请联系我QQ：2915279126
