|
|
发表于 2025-12-21 23:49:42
|
显示全部楼层
重庆市重庆市
早知道我去睡觉了
| 窗口程序集名 | 保 留 | 保 留 | 备 注 | | 窗口程序集_启动窗口 | | | | | 变量名 | 类 型 | 数组 | 备 注 | | 点B_X | 整数型 | | | 点B_Y | 整数型 | | | 斜率 | 双精度小数型 | |
斜率 = 0.577 画板1.自动重画 = 真 画板1.画笔粗细 = 2 点B_X = -1 重画场景 (0 )窗口_置标题 (取窗口句柄 (), “算法演示:点击设定B点,移动鼠标模拟寻找D点”)|
| _画板1_鼠标左键被按下 | 逻辑型 | | |
| 横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
点B_X = 横向位置 点B_Y = 纵向位置 重画场景 (纵向位置 )|
| _画板1_鼠标位置被移动 | 逻辑型 | | |
| 横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | | 如果真 (点B_X ≠ -1 ) 重画场景 (纵向位置 ) | 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 目标D_X | 整数型 | | | | 目标D_Y | 整数型 | | | | 高度差 | 整数型 | | | | 水平距离 | 双精度小数型 | | | | 演示A_X | 整数型 | | | | 演示A_Y | 整数型 | | |
画板1. 清除 (, , , ) 如果真 (点B_X = -1 ) 画板1. 定位写出 (10, 10, “请在画板任意位置点击,确定基准点 b”) 返回 () 目标D_Y = 当前鼠标Y 高度差 = 目标D_Y - 点B_Y 水平距离 = 取绝对值 (高度差 ) ÷ 斜率 如果 (高度差 ≥ 0 ) 目标D_X = 点B_X + 水平距离  目标D_X = 点B_X + 水平距离  演示A_X = 点B_X 演示A_Y = 点B_Y - 100 画板1.画笔颜色 = #黑色 画板1. 画直线 (演示A_X, 演示A_Y - 50, 点B_X, 点B_Y + 200 ) 画板1.画笔颜色 = #红色 画板1. 画椭圆 (点B_X - 4, 点B_Y - 4, 点B_X + 4, 点B_Y + 4 )画板1. 定位写出 (点B_X + 10, 点B_Y, “b 点 (已知)”) 画板1. 画椭圆 (演示A_X - 4, 演示A_Y - 4, 演示A_X + 4, 演示A_Y + 4 )画板1. 定位写出 (演示A_X + 10, 演示A_Y, “a 点”) 画板1.画笔颜色 = #蓝色 画板1. 画直线 (0, 目标D_Y, 画板1.宽度, 目标D_Y )画板1. 定位写出 (10, 目标D_Y - 20, “目标行扫描线 (模拟图色查找结果) Y=” + 到文本 (目标D_Y )) 画板1.画笔颜色 = #绿色 画板1. 画直线 (点B_X, 点B_Y, 目标D_X, 目标D_Y ) 画板1.刷子颜色 = #黄色 画板1. 画椭圆 (目标D_X - 6, 目标D_Y - 6, 目标D_X + 6, 目标D_Y + 6 )画板1.刷子颜色 = #白色 画板1.文本颜色 = #红色 画板1. 定位写出 (目标D_X + 10, 目标D_Y + 10, “D点 (计算得出)”)画板1.文本颜色 = #黑色 画板1. 定位写出 (10, 30, “高度差(H): ” + 到文本 (高度差 )) 画板1. 定位写出 (10, 50, “斜率(k): ” + 到文本 (斜率 )) 画板1. 定位写出 (10, 70, “计算公式: W = H / k”)画板1. 定位写出 (10, 90, “水平距离(W): ” + 到文本 (取整 (水平距离 )) )画板1. 定位写出 (10, 110, “D点坐标: ” + 到文本 (目标D_X ) + “,” + 到文本 (目标D_Y ))
|
|