画板画心鼠标泡泡

dwcq

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
心形数组	心形	0
心形	心形

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 30

子程序名	返回值类型	公开	备 注
创建心形	心形
参数名	类 型	参考	可空	数组	备 注
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
新心形	心形

新心形.x ＝ x ＋ 取随机数 (-10, 10)
新心形.y ＝ y
新心形.移动 ＝ 10
新心形.最大Y ＝ y － 100
返回 (新心形)

子程序名	返回值类型	公开	备 注
_画板1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
距离	整数型
鼠标	坐标_
上次坐标	坐标_
当前坐标	坐标_

如果真 (鼠标.x ≠ 取鼠标水平位置 () 或 鼠标.y ≠ 取鼠标垂直位置 ())
鼠标.x ＝ 取鼠标水平位置 ()
鼠标.y ＝ 取鼠标垂直位置 ()
当前坐标.x ＝ 取鼠标水平位置 ()
当前坐标.y ＝ 取鼠标垂直位置 ()
距离 ＝ 求平方根 (求次方 (当前坐标.x － 上次坐标.x, 2) ＋ 求次方 (当前坐标.y － 上次坐标.y, 2))
如果真 (距离 ＞ 50)  ' 触发距离
上次坐标 ＝ 当前坐标
心形 ＝ 创建心形 (横向位置, 纵向位置)
加入成员 (心形数组, 心形)
如果真 (取数组成员数 (心形数组) ＞ 10)
删除成员 (心形数组, 1, 1)

子程序名	返回值类型	公开	备 注
画心形
参数名	类 型	参考	可空	数组	备 注
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
t	小数型
x_	小数型
y_	小数型
x1	整数型
y1	整数型

判断循环首 (t ＜ 6.28)
t ＝ t ＋ 0.05
x_ ＝ 16 × 求次方 (求正弦 (t), 3)
y_ ＝ 13 × 求余弦 (t) － 5 × 求余弦 (2 × t) － 2 × 求余弦 (3 × t) － 求余弦 (4 × t)
x1 ＝ x ＋ x_ × 2
y1 ＝ y － 20 － y_ × 2
画板1.画点 (x1, y1, #红色 )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (取数组成员数 (心形数组) ＞ 0)
画板1.清除 (, , , )
变量循环首 (取数组成员数 (心形数组), 1, -1, i)
心形数组 [i].y ＝ 心形数组 [i].y － 心形数组 [i].移动
心形数组 [i].x ＝ 心形数组 [i].x ＋ 取随机数 (-10, 10)
如果 (心形数组 [i].y ＜ 心形数组 [i].最大Y)
删除成员 (心形数组, i, )
画心形 (心形数组 [i].x, 心形数组 [i].y)

变量循环尾 ()

数据类型名	公开	备 注
坐标_
成员名	类 型	传址	数组	备 注
x
y

数据类型名	公开	备 注
心形
成员名	类 型	传址	数组	备 注
x
y
移动
最大Y

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 心形数组, 心形, , "0"<br /> .程序集变量 心形, 心形<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 30<br /> <br /> .子程序 创建心形, 心形<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 新心形, 心形<br /> <br /> 新心形.x ＝ x ＋ 取随机数 (-10, 10)<br /> 新心形.y ＝ y<br /> 新心形.移动 ＝ 10<br /> 新心形.最大Y ＝ y － 100<br /> 返回 (新心形)<br /> <br /> .子程序 _画板1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 距离, 整数型<br /> .局部变量 鼠标, 坐标_<br /> .局部变量 上次坐标, 坐标_<br /> .局部变量 当前坐标, 坐标_<br /> <br /> .如果真 (鼠标.x ≠ 取鼠标水平位置 () 或 鼠标.y ≠ 取鼠标垂直位置 ())<br />     鼠标.x ＝ 取鼠标水平位置 ()<br />     鼠标.y ＝ 取鼠标垂直位置 ()<br />     当前坐标.x ＝ 取鼠标水平位置 ()<br />     当前坐标.y ＝ 取鼠标垂直位置 ()<br />     距离 ＝ 求平方根 (求次方 (当前坐标.x － 上次坐标.x, 2) ＋ 求次方 (当前坐标.y － 上次坐标.y, 2))<br />     .如果真 (距离 ＞ 50)  ' 触发距离<br />         上次坐标 ＝ 当前坐标<br />         心形 ＝ 创建心形 (横向位置, 纵向位置)<br />         加入成员 (心形数组, 心形)<br />         .如果真 (取数组成员数 (心形数组) ＞ 10)<br />             删除成员 (心形数组, 1, 1)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 画心形<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 t, 小数型<br /> .局部变量 x_, 小数型<br /> .局部变量 y_, 小数型<br /> .局部变量 x1, 整数型<br /> .局部变量 y1, 整数型<br /> <br /> .判断循环首 (t ＜ 6.28)<br />     t ＝ t ＋ 0.05<br />     x_ ＝ 16 × 求次方 (求正弦 (t), 3)<br />     y_ ＝ 13 × 求余弦 (t) － 5 × 求余弦 (2 × t) － 2 × 求余弦 (3 × t) － 求余弦 (4 × t)<br />     x1 ＝ x ＋ x_ × 2<br />     y1 ＝ y － 20 － y_ × 2<br />     画板1.画点 (x1, y1, #红色)<br /> .判断循环尾 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取数组成员数 (心形数组) ＞ 0)<br />     画板1.清除 (, , , )<br />     .变量循环首 (取数组成员数 (心形数组), 1, -1, i)<br />         心形数组 <i>.y ＝ 心形数组 <i>.y － 心形数组 <i>.移动<br />         心形数组 <i>.x ＝ 心形数组 <i>.x ＋ 取随机数 (-10, 10)<br />         .如果 (心形数组 <i>.y ＜ 心形数组 <i>.最大Y)<br />             删除成员 (心形数组, i, )<br />         .否则<br />             画心形 (心形数组 <i>.x, 心形数组 <i>.y)<br />         .如果结束<br /> <br />     .变量循环尾 ()<br /> .如果真结束<br /> <br /> .版本 2<br /> <br /> .数据类型 坐标_<br />     .成员 x<br />     .成员 y<br /> <br /> .数据类型 心形<br />     .成员 x<br />     .成员 y<br />     .成员 移动<br />     .成员 最大Y

查过

感谢分享，很给力！~

豆豆灰常开心

感谢分享，很给力！~

gaoqing

谢谢分享

杨明煜

学习学习！........

wh1234567

感谢分享

ttggnn

感谢分享

year1970

感谢分享，学习一下

查过

已经顶贴，感谢您对论坛的支持！

豆豆灰常开心

下个学习一下