有没有其他组件可以不卡顿的。

1175849203 · 发表于 2025-3-7 23:22:27

写了一个模拟雷达的小东西，但是使用画板卡顿严重，换成了动画框，好了一点，但不多，50毫秒下也是卡顿严重，10个目标都卡顿严重了，我还想搞一个1000个目标10毫秒不卡顿的。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
当前角度	整数型
敌人列表	敌人信息	0
上次扫描方向	整数型
颜色表	整数型	0

' 自定义数据类型开始---

数据类型名	公开	备注
轨迹点信息
成员名	类型	传址	数组	备注
角度	整数型
半径	整数型

数据类型名	公开	备注
敌人信息
成员名	类型	传址	数组	备注
角度	整数型
半径	整数型
颜色	整数型
轨迹点	轨迹点信息		2

' 自定义数据类型结束---

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

_启动窗口.宽度＝ 700
_启动窗口.高度＝ 600
动画框1.宽度＝ 600
动画框1.高度＝ 600
初始化颜色表 ()
绘制雷达背景图 ()
初始化敌人 ()

子程序名	返回值类型	公开	备注
初始化颜色表

颜色表＝ { #红色, #绿色, #蓝色, #黄色, #紫色, #青绿, #粉红 }

子程序名	返回值类型	公开	备注
绘制雷达背景图

动画框1.清除背景 (, , , )
动画框1.画笔颜色＝ #白色
动画框1.画笔粗细＝ 2
动画框1.刷子颜色＝ #浅灰
绘制扇形 (0, 500, 600, 600, 315, 405)
绘制角度刻度线 ()

子程序名	返回值类型	公开	备注
初始化敌人

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

重定义数组 (敌人列表, 假, 3) ' 初始3个敌人

计次循环首 (3, i)

敌人列表 [i].角度＝取随机数 (-45, 45)

敌人列表 [i].半径＝取随机数 (50, 300)

敌人列表 [i].颜色＝颜色表 [i ％取数组成员数 (颜色表) ＋ 1]

重定义数组 (敌人列表 [i].轨迹点, 假, 0) ' 初始化轨迹点数组为空

计次循环尾 ()

子程序名	返回值类型	公开	备注
绘制扇形
参数名	类型	参考	可空	数组	备注
左边	整数型
顶边	整数型
右边	整数型
底边	整数型
起始角度	整数型
终止角度	整数型

变量名	类型	静态	数组	备注
圆心X	整数型
圆心Y	整数型
半径	整数型
点数组	整数型		2
点索引	整数型

圆心X ＝ (左边＋右边) ÷ 2
圆心Y ＝ (顶边＋底边) ÷ 2
半径＝ (右边－左边) ÷ 2
点索引＝ 1
重定义数组 (点数组, 假, (终止角度－起始角度＋ 2) × 2)
点数组 [点索引] ＝圆心X
点索引＝点索引＋ 1
点数组 [点索引] ＝圆心Y
点索引＝点索引＋ 1

计次循环首 (终止角度－起始角度＋ 1, 当前角度)

当前角度＝当前角度＋起始角度－ 1

点数组 [点索引] ＝圆心X ＋半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)

点索引＝点索引＋ 1

点数组 [点索引] ＝圆心Y －半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)

点索引＝点索引＋ 1

计次循环尾 ()
动画框1.画多边形 (点数组, )

子程序名	返回值类型	公开	备注
绘制角度刻度线

变量名	类型	静态	数组	备注
角度	整数型
圆心X	整数型
圆心Y	整数型
半径	整数型
起点X	整数型
起点Y	整数型
终点X	整数型
终点Y	整数型
角度文本坐标X	整数型
角度文本坐标Y	整数型
角度文本半径	整数型

圆心X ＝ 300
圆心Y ＝ 550
半径＝ 300
角度文本半径＝ 400

计次循环首 (90, 角度)

当前角度＝ 315 ＋角度

起点X ＝圆心X ＋半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)

起点Y ＝圆心Y －半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)

角度文本坐标X ＝圆心X ＋角度文本半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)

角度文本坐标Y ＝圆心Y －角度文本半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)

终点X ＝圆心X ＋半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)

终点Y ＝圆心Y －半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)

动画框1.画直线 (起点X, 起点Y, 终点X, 终点Y)

如果真 (角度％ 4 ＝ 1)

动画框1.文本颜色＝ #蓝灰

如果真 (角度－ 45 ＜ 0)

动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, 到文本 (角度－ 45) ＋ “°”)

如果真 (角度＞ 45)

动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, “+” ＋到文本 (角度－ 45) ＋ “°”)

计次循环尾 ()

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

变量名	类型	静态	数组	备注
圆心X	整数型
圆心Y	整数型
半径	整数型
终点X	整数型
终点Y	整数型
扫描角度	整数型
扫描方向	整数型
i	整数型
新轨迹点	轨迹点信息

如果真 (扫描方向＝ 0)

扫描方向＝ 1

动画框1.清除背景 (, , , )
绘制雷达背景图 ()
动画框1.画笔颜色＝ #红色
动画框1.画笔粗细＝ 2
圆心X ＝ 300
圆心Y ＝ 550
半径＝ 300
扫描角度＝扫描角度＋扫描方向
' 检测并更新被扫描到的敌人

计次循环首 (取数组成员数 (敌人列表), i)

如果真 (敌人列表 [i].角度＋ 45 ＝扫描角度)

' 添加当前点到轨迹数组

新轨迹点.角度＝敌人列表 [i].角度

新轨迹点.半径＝敌人列表 [i].半径

加入成员 (敌人列表 [i].轨迹点, 新轨迹点)

' 保持最多4个轨迹点

如果真 (取数组成员数 (敌人列表 [i].轨迹点) ＞ 4)

删除成员 (敌人列表 [i].轨迹点, 1, 1)

' 生成新位置

敌人列表 [i].角度＝取随机数 (-45, 45)

敌人列表 [i].半径＝取随机数 (50, 300)

计次循环尾 ()

如果 (扫描角度＞ 90)

扫描角度＝ 90

扫描方向＝ -1

如果 (扫描角度＜ 0)

扫描角度＝ 0

扫描方向＝ 1

当前角度＝ 315 ＋扫描角度
透明标签1.标题＝ “当前角度：” ＋到文本 (扫描角度－ 45) ＋ “°” ' 显示实际角度值
终点X ＝圆心X ＋半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)
终点Y ＝圆心Y －半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)
动画框1.画直线 (圆心X, 圆心Y, 终点X, 终点Y)
绘制敌人 ()

子程序名	返回值类型	公开	备注
绘制敌人

变量名	类型	静态	数组	备注
i	整数型
j	整数型
圆心X	整数型
圆心Y	整数型
原角度	整数型
x1	整数型
y1	整数型
x2	整数型
y2	整数型
当前轨迹点	轨迹点信息

圆心X ＝ 300
圆心Y ＝ 550

计次循环首 (取数组成员数 (敌人列表), i)

' 绘制轨迹连线

如果真 (取数组成员数 (敌人列表 [i].轨迹点) ≥ 2)

动画框1.画笔颜色＝敌人列表 [i].颜色

动画框1.画笔粗细＝ 1

计次循环首 (取数组成员数 (敌人列表 [i].轨迹点) － 1, j)

当前轨迹点＝敌人列表 [i].轨迹点 [j]

原角度＝ 315 ＋当前轨迹点.角度＋ 45

x1 ＝圆心X ＋当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)

y1 ＝圆心Y －当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)

当前轨迹点＝敌人列表 [i].轨迹点 [j ＋ 1]

原角度＝ 315 ＋当前轨迹点.角度＋ 45

x2 ＝圆心X ＋当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)

y2 ＝圆心Y －当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)

画虚线 (x1, y1, x2, y2)

计次循环尾 ()

' 绘制轨迹点

计次循环首 (取数组成员数 (敌人列表 [i].轨迹点), j)

当前轨迹点＝敌人列表 [i].轨迹点 [j]

原角度＝ 315 ＋当前轨迹点.角度＋ 45

x1 ＝圆心X ＋当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)

y1 ＝圆心Y －当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)

动画框1.刷子颜色＝敌人列表 [i].颜色

动画框1.画椭圆 (x1 － 3, y1 － 3, x1 ＋ 3, y1 ＋ 3)

计次循环尾 ()

' 绘制当前位置

原角度＝ 315 ＋敌人列表 [i].角度＋ 45

x1 ＝圆心X ＋敌人列表 [i].半径 × 求正弦 (原角度 × #pi ÷ 180)

y1 ＝圆心Y －敌人列表 [i].半径 × 求余弦 (原角度 × #pi ÷ 180)

动画框1.刷子颜色＝敌人列表 [i].颜色

动画框1.画椭圆 (x1 － 5, y1 － 5, x1 ＋ 5, y1 ＋ 5)

计次循环尾 ()

子程序名	返回值类型	公开	备注
画虚线
参数名	类型	参考	可空	数组	备注
x1	整数型
y1	整数型
x2	整数型
y2	整数型

变量名	类型	静态	数组	备注
步长	整数型
dx	整数型
dy	整数型
总步数	整数型
i	整数型

dx ＝ x2 － x1
dy ＝ y2 － y1
总步数＝求平方根 (dx × dx ＋ dy × dy) ÷ 10 ' 控制虚线密度

如果真 (总步数＜ 1)

总步数＝ 1

计次循环首 (总步数, i)

如果 (i ％ 2 ＝ 1) ' 交替绘制线段

动画框1.画直线 (x1 ＋ dx �� (i － 1) ÷ 总步数, y1 ＋ dy �� (i － 1) ÷ 总步数, x1 ＋ dx × i ÷ 总步数, y1 ＋ dy × i ÷ 总步数)

计次循环尾 ()

子程序名	返回值类型	公开	备注
更新敌人位置

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

计次循环首 (取数组成员数 (敌人列表), i)

敌人列表 [i].角度＝取随机数 (-45, 45)

敌人列表 [i].半径＝取随机数 (50, 300)

计次循环尾 ()

子程序名	返回值类型	公开	备注
_hk条1_位置被改变

时钟1.时钟周期＝ hk条1.位置
透明标签2.标题＝ “扫描速度：” ＋到文本 (hk条1.位置) ＋ “ 毫秒”

子程序名	返回值类型	公开	备注
_按钮2_停止扫描_被单击

时钟1.时钟周期＝ 0
hk条1.禁止＝真

子程序名	返回值类型	公开	备注
_按钮1_开始扫描_被单击

hk条1.禁止＝假
时钟1.时钟周期＝ hk条1.位置

i支持库列表	支持库注释
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 当前角度, 整数型<br />
.程序集变量 敌人列表, 敌人信息, , "0"<br />
.程序集变量 上次扫描方向, 整数型<br />
.程序集变量 颜色表, 整数型, , "0"<br />
<br />
<br />
<br />
' 自定义数据类型开始---<br />
.数据类型 轨迹点信息<br />
    .成员 角度, 整数型<br />
    .成员 半径, 整数型<br />
<br />
.数据类型 敌人信息<br />
    .成员 角度, 整数型<br />
    .成员 半径, 整数型<br />
    .成员 颜色, 整数型<br />
    .成员 轨迹点, 轨迹点信息, , "2"<br />
<br />
<br />
' 自定义数据类型结束---<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
_启动窗口.宽度 ＝ 700<br />
_启动窗口.高度 ＝ 600<br />
动画框1.宽度 ＝ 600<br />
动画框1.高度 ＝ 600<br />
初始化颜色表 ()<br />
绘制雷达背景图 ()<br />
初始化敌人 ()<br />
<br />
<br />
.子程序 初始化颜色表<br />
<br />
颜色表 ＝ { #红色, #绿色, #蓝色, #黄色, #紫色, #青绿, #粉红 }<br />
<br />
.子程序 绘制雷达背景图<br />
<br />
动画框1.清除背景 (, , , )<br />
动画框1.画笔颜色 ＝ #白色<br />
动画框1.画笔粗细 ＝ 2<br />
动画框1.刷子颜色 ＝ #浅灰<br />
绘制扇形 (0, 500, 600, 600, 315, 405)<br />
绘制角度刻度线 ()<br />
<br />
<br />
<br />
.子程序 初始化敌人<br />
.局部变量 i, 整数型<br />
<br />
重定义数组 (敌人列表, 假, 3)  ' 初始3个敌人<br />
.计次循环首 (3, i)<br />
    敌人列表 <i>.角度 ＝ 取随机数 (-45, 45)<br />
    敌人列表 <i>.半径 ＝ 取随机数 (50, 300)<br />
    敌人列表 <i>.颜色 ＝ 颜色表 [i ％ 取数组成员数 (颜色表) ＋ 1]<br />
    重定义数组 (敌人列表 <i>.轨迹点, 假, 0)  ' 初始化轨迹点数组为空<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
<br />
<br />
<br />
.子程序 绘制扇形<br />
.参数 左边, 整数型<br />
.参数 顶边, 整数型<br />
.参数 右边, 整数型<br />
.参数 底边, 整数型<br />
.参数 起始角度, 整数型<br />
.参数 终止角度, 整数型<br />
.局部变量 圆心X, 整数型<br />
.局部变量 圆心Y, 整数型<br />
.局部变量 半径, 整数型<br />
.局部变量 点数组, 整数型, , "2"<br />
.局部变量 点索引, 整数型<br />
<br />
圆心X ＝ (左边 ＋ 右边) ÷ 2<br />
圆心Y ＝ (顶边 ＋ 底边) ÷ 2<br />
半径 ＝ (右边 － 左边) ÷ 2<br />
<br />
点索引 ＝ 1<br />
重定义数组 (点数组, 假, (终止角度 － 起始角度 ＋ 2) × 2)<br />
点数组 [点索引] ＝ 圆心X<br />
点索引 ＝ 点索引 ＋ 1<br />
点数组 [点索引] ＝ 圆心Y<br />
点索引 ＝ 点索引 ＋ 1<br />
<br />
.计次循环首 (终止角度 － 起始角度 ＋ 1, 当前角度)<br />
    当前角度 ＝ 当前角度 ＋ 起始角度 － 1<br />
    点数组 [点索引] ＝ 圆心X ＋ 半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    点索引 ＝ 点索引 ＋ 1<br />
    点数组 [点索引] ＝ 圆心Y － 半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
    点索引 ＝ 点索引 ＋ 1<br />
.计次循环尾 ()<br />
动画框1.画多边形 (点数组, )<br />
<br />
.子程序 绘制角度刻度线<br />
.局部变量 角度, 整数型<br />
.局部变量 圆心X, 整数型<br />
.局部变量 圆心Y, 整数型<br />
.局部变量 半径, 整数型<br />
.局部变量 起点X, 整数型<br />
.局部变量 起点Y, 整数型<br />
.局部变量 终点X, 整数型<br />
.局部变量 终点Y, 整数型<br />
.局部变量 角度文本坐标X, 整数型<br />
.局部变量 角度文本坐标Y, 整数型<br />
.局部变量 角度文本半径, 整数型<br />
<br />
圆心X ＝ 300<br />
圆心Y ＝ 550<br />
半径 ＝ 300<br />
角度文本半径 ＝ 400<br />
<br />
.计次循环首 (90, 角度)<br />
    当前角度 ＝ 315 ＋ 角度<br />
    起点X ＝ 圆心X ＋ 半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    起点Y ＝ 圆心Y － 半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
    角度文本坐标X ＝ 圆心X ＋ 角度文本半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    角度文本坐标Y ＝ 圆心Y － 角度文本半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
    终点X ＝ 圆心X ＋ 半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    终点Y ＝ 圆心Y － 半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
    动画框1.画直线 (起点X, 起点Y, 终点X, 终点Y)<br />
<br />
    .如果真 (角度 ％ 4 ＝ 1)<br />
        动画框1.文本颜色 ＝ #蓝灰<br />
        .如果真 (角度 － 45 ＜ 0)<br />
            动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, 到文本 (角度 － 45) ＋ “°”)<br />
        .如果真结束<br />
        .如果真 (角度 ＞ 45)<br />
            动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, “+” ＋ 到文本 (角度 － 45) ＋ “°”)<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
.局部变量 圆心X, 整数型<br />
.局部变量 圆心Y, 整数型<br />
.局部变量 半径, 整数型<br />
.局部变量 终点X, 整数型<br />
.局部变量 终点Y, 整数型<br />
.局部变量 扫描角度, 整数型, 静态<br />
.局部变量 扫描方向, 整数型, 静态<br />
.局部变量 i, 整数型<br />
.局部变量 新轨迹点, 轨迹点信息<br />
<br />
.如果真 (扫描方向 ＝ 0)<br />
    扫描方向 ＝ 1<br />
.如果真结束<br />
<br />
动画框1.清除背景 (, , , )<br />
绘制雷达背景图 ()<br />
动画框1.画笔颜色 ＝ #红色<br />
动画框1.画笔粗细 ＝ 2<br />
<br />
圆心X ＝ 300<br />
圆心Y ＝ 550<br />
半径 ＝ 300<br />
<br />
扫描角度 ＝ 扫描角度 ＋ 扫描方向<br />
<br />
<br />
<br />
<br />
' 检测并更新被扫描到的敌人<br />
.计次循环首 (取数组成员数 (敌人列表), i)<br />
    .如果真 (敌人列表 <i>.角度 ＋ 45 ＝ 扫描角度)<br />
        ' 添加当前点到轨迹数组<br />
        新轨迹点.角度 ＝ 敌人列表 <i>.角度<br />
        新轨迹点.半径 ＝ 敌人列表 <i>.半径<br />
        加入成员 (敌人列表 <i>.轨迹点, 新轨迹点)<br />
        ' 保持最多4个轨迹点<br />
        .如果真 (取数组成员数 (敌人列表 <i>.轨迹点) ＞ 4)<br />
            删除成员 (敌人列表 <i>.轨迹点, 1, 1)<br />
        .如果真结束<br />
        ' 生成新位置<br />
        敌人列表 <i>.角度 ＝ 取随机数 (-45, 45)<br />
        敌人列表 <i>.半径 ＝ 取随机数 (50, 300)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
.如果 (扫描角度 ＞ 90)<br />
    扫描角度 ＝ 90<br />
    扫描方向 ＝ -1<br />
.否则<br />
    .如果 (扫描角度 ＜ 0)<br />
        扫描角度 ＝ 0<br />
        扫描方向 ＝ 1<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
当前角度 ＝ 315 ＋ 扫描角度<br />
透明标签1.标题 ＝ “当前角度：” ＋ 到文本 (扫描角度 － 45) ＋ “°”  ' 显示实际角度值<br />
<br />
终点X ＝ 圆心X ＋ 半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
终点Y ＝ 圆心Y － 半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
动画框1.画直线 (圆心X, 圆心Y, 终点X, 终点Y)<br />
<br />
绘制敌人 ()<br />
<br />
<br />
<br />
<br />
.子程序 绘制敌人<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 圆心X, 整数型<br />
.局部变量 圆心Y, 整数型<br />
.局部变量 原角度, 整数型<br />
.局部变量 x1, 整数型<br />
.局部变量 y1, 整数型<br />
.局部变量 x2, 整数型<br />
.局部变量 y2, 整数型<br />
.局部变量 当前轨迹点, 轨迹点信息<br />
<br />
圆心X ＝ 300<br />
圆心Y ＝ 550<br />
<br />
.计次循环首 (取数组成员数 (敌人列表), i)<br />
    ' 绘制轨迹连线<br />
    .如果真 (取数组成员数 (敌人列表 <i>.轨迹点) ≥ 2)<br />
        动画框1.画笔颜色 ＝ 敌人列表 <i>.颜色<br />
        动画框1.画笔粗细 ＝ 1<br />
        .计次循环首 (取数组成员数 (敌人列表 <i>.轨迹点) － 1, j)<br />
            当前轨迹点 ＝ 敌人列表 <i>.轨迹点 [j]<br />
            原角度 ＝ 315 ＋ 当前轨迹点.角度 ＋ 45<br />
            x1 ＝ 圆心X ＋ 当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)<br />
            y1 ＝ 圆心Y － 当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)<br />
            当前轨迹点 ＝ 敌人列表 <i>.轨迹点 [j ＋ 1]<br />
            原角度 ＝ 315 ＋ 当前轨迹点.角度 ＋ 45<br />
            x2 ＝ 圆心X ＋ 当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)<br />
            y2 ＝ 圆心Y － 当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)<br />
            画虚线 (x1, y1, x2, y2)<br />
        .计次循环尾 ()<br />
    .如果真结束<br />
<br />
    ' 绘制轨迹点<br />
    .计次循环首 (取数组成员数 (敌人列表 <i>.轨迹点), j)<br />
        当前轨迹点 ＝ 敌人列表 <i>.轨迹点 [j]<br />
        原角度 ＝ 315 ＋ 当前轨迹点.角度 ＋ 45<br />
        x1 ＝ 圆心X ＋ 当前轨迹点.半径 × 求正弦 (原角度 × #pi ÷ 180)<br />
        y1 ＝ 圆心Y － 当前轨迹点.半径 × 求余弦 (原角度 × #pi ÷ 180)<br />
        动画框1.刷子颜色 ＝ 敌人列表 <i>.颜色<br />
        动画框1.画椭圆 (x1 － 3, y1 － 3, x1 ＋ 3, y1 ＋ 3)<br />
    .计次循环尾 ()<br />
<br />
    ' 绘制当前位置<br />
    原角度 ＝ 315 ＋ 敌人列表 <i>.角度 ＋ 45<br />
    x1 ＝ 圆心X ＋ 敌人列表 <i>.半径 × 求正弦 (原角度 × #pi ÷ 180)<br />
    y1 ＝ 圆心Y － 敌人列表 <i>.半径 × 求余弦 (原角度 × #pi ÷ 180)<br />
    动画框1.刷子颜色 ＝ 敌人列表 <i>.颜色<br />
    动画框1.画椭圆 (x1 － 5, y1 － 5, x1 ＋ 5, y1 ＋ 5)<br />
.计次循环尾 ()<br />
<br />
.子程序 画虚线<br />
.参数 x1, 整数型<br />
.参数 y1, 整数型<br />
.参数 x2, 整数型<br />
.参数 y2, 整数型<br />
.局部变量 步长, 整数型<br />
.局部变量 dx, 整数型<br />
.局部变量 dy, 整数型<br />
.局部变量 总步数, 整数型<br />
.局部变量 i, 整数型<br />
<br />
dx ＝ x2 － x1<br />
dy ＝ y2 － y1<br />
总步数 ＝ 求平方根 (dx × dx ＋ dy × dy) ÷ 10  ' 控制虚线密度<br />
.如果真 (总步数 ＜ 1)<br />
    总步数 ＝ 1<br />
.如果真结束<br />
<br />
.计次循环首 (总步数, i)<br />
    .如果 (i ％ 2 ＝ 1)  ' 交替绘制线段<br />
        动画框1.画直线 (x1 ＋ dx × (i － 1) ÷ 总步数, y1 ＋ dy × (i － 1) ÷ 总步数, x1 ＋ dx × i ÷ 总步数, y1 ＋ dy × i ÷ 总步数)<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
<br />
.子程序 更新敌人位置<br />
.局部变量 i, 整数型<br />
<br />
.计次循环首 (取数组成员数 (敌人列表), i)<br />
    敌人列表 <i>.角度 ＝ 取随机数 (-45, 45)<br />
    敌人列表 <i>.半径 ＝ 取随机数 (50, 300)<br />
.计次循环尾 ()<br />
<br />
.子程序 _hk条1_位置被改变<br />
<br />
时钟1.时钟周期 ＝ hk条1.位置<br />
透明标签2.标题 ＝ “扫描速度：” ＋ 到文本 (hk条1.位置) ＋ “   毫秒”<br />
<br />
.子程序 _按钮2_停止扫描_被单击<br />
<br />
时钟1.时钟周期 ＝ 0<br />
hk条1.禁止 ＝ 真<br />
<br />
.子程序 _按钮1_开始扫描_被单击<br />
<br />
hk条1.禁止 ＝ 假<br />
时钟1.时钟周期 ＝ hk条1.位置

笨来无一悟 · 发表于 2025-3-7 23:22:28

不是画板的问题是你算法的问题

没有源码所以跑步起来不方便测试

子程序名	返回值类型	公开	备注
画虚线
参数名	类型	参考	可空	数组	备注
x1	整数型
y1	整数型
x2	整数型
y2	整数型

变量名	类型	静态	数组	备注
步数	整数型
计次	整数型

步数＝ 10 ' 控制虚线密度
置入代码 ({ 54, 139, 69, 8, 54, 43, 69, 16, 15, 175, 192, 54, 139, 93, 12, 54, 43, 93, 20, 15, 175, 219, 1, 216, 242, 15, 42, 192, 242, 15, 81, 192, 184, 10, 0, 0, 0, 242, 15, 42, 200, 242, 15, 94, 193, 54, 242, 15, 17, 69, 252 })
' MOV EAX, DWORD PTR SS:[EBP+0X08]
' SUB EAX, DWORD PTR SS:[EBP+0X10]
' IMUL EAX, EAX
' MOV EBX, DWORD PTR SS:[EBP+0X0C]
' SUB EBX, DWORD PTR SS:[EBP+0X14]
' IMUL EBX, EBX
' ADD EAX, EBX
' CVTSI2SD XMM0, EAX
' SQRTSD XMM0, XMM0
' MOV EAX, 0X0A
' CVTSI2SD XMM1, EAX
' DIVSD XMM0, XMM1
' MOVSD QWORD PTR SS:[EBP-0X04], XMM0

变量循环首 (1, 步数, 2, 计次) ' 交替绘制线段

动画框1.画直线 (x1 ＋ dx �� (i － 1) ÷ 总步数, y1 ＋ dy �� (i － 1) ÷ 总步数, x1 ＋ dx × i ÷ 总步数, y1 ＋ dy × i ÷ 总步数)

变量循环尾 ()

算法艺术家 · 发表于 2025-3-7 23:46:12

时钟替换成线程你看看卡不卡

笨来无一悟 · 发表于 2025-3-8 03:24:32

子程序名	返回值类型	公开	备注
绘制角度刻度线

变量名	类型	静态	数组	备注
角度	整数型
圆心X	整数型
圆心Y	整数型
半径	整数型
起点X	整数型
起点Y	整数型
终点X	整数型
终点Y	整数型
角度文本坐标X	整数型
角度文本坐标Y	整数型
角度文本半径	整数型

圆心X ＝ 300
圆心Y ＝ 550
半径＝ 300
角度文本半径＝ 400 ' 这4个一直不会发生变化那就不应该用变量而是立即数直接参与运算

计次循环首 (90, 角度)

当前角度＝ 315 ＋角度

起点X ＝圆心X ＋半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)

起点Y ＝圆心Y －半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)

终点X ＝圆心X ＋半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)

终点Y ＝圆心Y －半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)

动画框1.画直线 (起点X, 起点Y, 终点X, 终点Y)

如果真 (角度％ 4 ＝ 1) ' 求余数用汇编

动画框1.文本颜色＝ #蓝灰

角度文本坐标X ＝圆心X ＋角度文本半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)

角度文本坐标Y ＝圆心Y －角度文本半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180) ' 这两个东西求余数=1的时候才用到那就用到的时候才计算

如果真 (角度－ 45 ＜ 0)

动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, 到文本 (角度－ 45) ＋ “°”)

如果真 (角度＞ 45)

动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, “+” ＋到文本 (角度－ 45) ＋ “°”)

计次循环尾 ()

.版本 2<br />
<br />
.子程序 绘制角度刻度线<br />
.局部变量 角度, 整数型<br />
.局部变量 圆心X, 整数型<br />
.局部变量 圆心Y, 整数型<br />
.局部变量 半径, 整数型<br />
.局部变量 起点X, 整数型<br />
.局部变量 起点Y, 整数型<br />
.局部变量 终点X, 整数型<br />
.局部变量 终点Y, 整数型<br />
.局部变量 角度文本坐标X, 整数型<br />
.局部变量 角度文本坐标Y, 整数型<br />
.局部变量 角度文本半径, 整数型<br />
<br />
圆心X ＝ 300<br />
圆心Y ＝ 550<br />
半径 ＝ 300<br />
角度文本半径 ＝ 400  ' 这4个一直不会发生变化 那就不应该用变量 而是立即数 直接参与运算<br />
<br />
.计次循环首 (90, 角度)<br />
    当前角度 ＝ 315 ＋ 角度<br />
    起点X ＝ 圆心X ＋ 半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    起点Y ＝ 圆心Y － 半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
<br />
    终点X ＝ 圆心X ＋ 半径 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
    终点Y ＝ 圆心Y － 半径 × 求余弦 (当前角度 × 3.14159 ÷ 180)<br />
    动画框1.画直线 (起点X, 起点Y, 终点X, 终点Y)<br />
<br />
    .如果真 (角度 ％ 4 ＝ 1)  ' 求余数用汇编<br />
        动画框1.文本颜色 ＝ #蓝灰<br />
<br />
        角度文本坐标X ＝ 圆心X ＋ 角度文本半径 × 0.9 × 求正弦 (当前角度 × 3.14159 ÷ 180)<br />
        角度文本坐标Y ＝ 圆心Y － 角度文本半径 × 0.9 × 求余弦 (当前角度 × 3.14159 ÷ 180)'这两个东西 求余数=1的时候才用到 那就用到的时候才计算<br />
<br />
        .如果真 (角度 － 45 ＜ 0)<br />
            动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, 到文本 (角度 － 45) ＋ “°”)<br />
        .如果真结束<br />
        .如果真 (角度 ＞ 45)<br />
            动画框1.定位写出 (角度文本坐标X, 角度文本坐标Y, “+” ＋ 到文本 (角度 － 45) ＋ “°”)<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.计次循环尾 ()

子程序名	返回值类型	公开	备注
求余	整数型
参数名	类型	参考	可空	数组	备注
被除	整数型
除数	整数型

置入代码 ({ 49, 210, 54, 139, 69, 8, 54, 139, 77, 12, 227, 2, 247, 241, 137, 208, 201, 194, 8, 0 })
返回 (0)
' XOR EDX, EDX
' MOV EAX, DWORD PTR SS:[EBP+0X08]
' MOV ECX, DWORD PTR SS:[EBP+0X0C]
' JECXZ END
' DIV ECX
' END:
' MOV EAX, EDX
' LEAVE
' RET 0X08

1175849203 · 发表于 2025-3-8 11:16:27

笨来无一悟发表于 2025-3-8 03:24
[e=4].版本 2

.子程序绘制角度刻度线

好的，谢谢大佬，我试试看

		自动登录	找回密码
密码			注册

[已解决] 有没有其他组件可以不卡顿的。

最佳答案

点评

评分

点评