2个坐标间 8方向和角度判断源码

独倚斜阳

原来源码来自 https://bbs.125.la/forum.php?mod ... =%E6%96%B9%E5%90%91

他的起始位置和角度和我的不同 所以我改了下
3点钟方向为起点0度，0点方向为90度， 左侧为180度，下方270度


因为我易语言有其他支持库 发e文件可能会被附带上导致其他人打不开 我直接截图源码
出问题的话 把e2ee支持库那一行去掉，实际没用上的



自定义数据里面

  

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

.版本 2<br /> <br /> .数据类型 坐标<br />     .成员 x, 小数型<br />     .成员 y, 小数型

程序集里面

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_玩家	坐标

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

集_玩家.x ＝ 150
集_玩家.y ＝ 150
画板1.画点 (集_玩家.x, 集_玩家.y, #红色 )

子程序名	返回值类型	公开	备 注
角度计算	小数型
参数名	类 型	参考	可空	数组	备 注
怪物	坐标
玩家	坐标

变量名	类 型	静态	数组	备 注
角度	小数型

角度 ＝ 求反正切 (取绝对值 (怪物.y － 玩家.y) ÷ 取绝对值 (怪物.x － 玩家.x)) × 180 ÷ #pi
输出调试 (“角度1”, 角度)
如果 (怪物.x ＜ 玩家.x)  ' 怪物在玩家左边
如果 (怪物.y ＞ 玩家.y)
角度 ＝ 180 ＋ 角度  ' 右边为0度，270-360度范围
角度 ＝ 180 － 角度

' 怪物在玩家右边
如果 (怪物.y ＞ 玩家.y)
角度 ＝ 360 － 角度
' 略   右边为0度，0-90度范围


输出调试 (“角度2”, 角度)
返回 (角度)

子程序名	返回值类型	公开	备 注
角度求坐标	坐标
参数名	类 型	参考	可空	数组	备 注
起点	坐标
半径	整数型
角度	整数型

变量名	类 型	静态	数组	备 注
坐标	坐标

坐标.x ＝ 半径 × 求余弦 (角度 × #pi ÷ 180) ＋ 起点.x
坐标.y ＝ 半径 × 求正弦 (角度 × #pi ÷ 180) ＋ 起点.y
返回 (坐标)

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

变量名	类 型	静态	数组	备 注
怪物	坐标
坐标	坐标
i	整数型
角度	小数型
方向	整数型

画板1.清除 (, , , )
画板1.画笔颜色 ＝ #红色
画板1.画点 (集_玩家.x, 集_玩家.y, #红色 )
画板1.画直线 (集_玩家.x, 集_玩家.y, 横向位置, 纵向位置)
怪物.x ＝ 横向位置
怪物.y ＝ 纵向位置
画板1.画笔颜色 ＝ #蓝灰
计次循环首 (8, i)
坐标 ＝ 角度求坐标 (集_玩家, 150, 22.5 ＋ i × 45)
画板1.画直线 (集_玩家.x, 集_玩家.y, 坐标.x, 坐标.y)
计次循环尾 ()
角度 ＝ 角度计算 (怪物, 集_玩家)
方向 ＝ 取整 ( (角度 － 22.5) ÷ 45)
方向 ＝ 方向 ＋ 2
' 右侧是1
输出调试 (“原始方向”, 方向)
如果真 (方向 ＜ 0)
方向 ＝ 方向 ＋ 8
画板1.定位写出 (10, 10, “角度:” ＋ 到文本 (角度) ＋ “  方向:” ＋ 到文本 (方向))

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_玩家, 坐标<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_玩家.x ＝ 150<br /> 集_玩家.y ＝ 150<br /> 画板1.画点 (集_玩家.x, 集_玩家.y, #红色)<br /> <br /> .子程序 角度计算, 小数型<br /> .参数 怪物, 坐标<br /> .参数 玩家, 坐标<br /> .局部变量 角度, 小数型<br /> <br /> 角度 ＝ 求反正切 (取绝对值 (怪物.y － 玩家.y) ÷ 取绝对值 (怪物.x － 玩家.x)) × 180 ÷ #pi<br /> 输出调试 (“角度1”, 角度)<br /> .如果 (怪物.x ＜ 玩家.x)  ' 怪物在玩家左边<br />     .如果 (怪物.y ＞ 玩家.y)<br />         角度 ＝ 180 ＋ 角度  ' 右边为0度，270-360度范围<br />     .否则<br />         角度 ＝ 180 － 角度<br />     .如果结束<br /> <br /> .否则<br />     ' 怪物在玩家右边<br />     .如果 (怪物.y ＞ 玩家.y)<br />         角度 ＝ 360 － 角度<br />     .否则<br />         ' 略   右边为0度，0-90度范围<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 输出调试 (“角度2”, 角度)<br /> 返回 (角度)<br /> <br /> .子程序 角度求坐标, 坐标<br /> .参数 起点, 坐标<br /> .参数 半径, 整数型<br /> .参数 角度, 整数型<br /> .局部变量 坐标, 坐标<br /> <br /> 坐标.x ＝ 半径 × 求余弦 (角度 × #pi ÷ 180) ＋ 起点.x<br /> 坐标.y ＝ 半径 × 求正弦 (角度 × #pi ÷ 180) ＋ 起点.y<br /> 返回 (坐标)<br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 怪物, 坐标<br /> .局部变量 坐标, 坐标<br /> .局部变量 i, 整数型<br /> .局部变量 角度, 小数型<br /> .局部变量 方向, 整数型<br /> <br /> 画板1.清除 (, , , )<br /> 画板1.画笔颜色 ＝ #红色<br /> 画板1.画点 (集_玩家.x, 集_玩家.y, #红色)<br /> 画板1.画直线 (集_玩家.x, 集_玩家.y, 横向位置, 纵向位置)<br /> 怪物.x ＝ 横向位置<br /> 怪物.y ＝ 纵向位置<br /> 画板1.画笔颜色 ＝ #蓝灰<br /> .计次循环首 (8, i)<br />     坐标 ＝ 角度求坐标 (集_玩家, 150, 22.5 ＋ i × 45)<br />     画板1.画直线 (集_玩家.x, 集_玩家.y, 坐标.x, 坐标.y)<br /> .计次循环尾 ()<br /> 角度 ＝ 角度计算 (怪物, 集_玩家)<br /> 方向 ＝ 取整 ((角度 － 22.5) ÷ 45)<br /> 方向 ＝ 方向 ＋ 2<br /> ' 右侧是1<br /> 输出调试 (“原始方向”, 方向)<br /> .如果真 (方向 ＜ 0)<br />     方向 ＝ 方向 ＋ 8<br /> .如果真结束<br /> 画板1.定位写出 (10, 10, “角度:” ＋ 到文本 (角度) ＋ “  方向:” ＋ 到文本 (方向))

year1970

感谢分享

艾玛克138

楼主辛苦了

亿万

感谢分享

wgqxj

谢谢分享

aosheng

6666666666666666666666666

pipicool

学习一下

独倚斜阳

正右边为0度，顺时针旋转增加角度

  

子程序名	返回值类型	公开	备 注
计算方位角	小数型
参数名	类 型	参考	可空	数组	备 注
人物X	小数型
人物Y	小数型
目标X	小数型
目标Y	小数型

变量名	类 型	静态	数组	备 注
dx	小数型
dy	小数型
弧度	小数型
角度	小数型

dx ＝ 目标X － 人物X
dy ＝ 目标Y － 人物Y
如果真 (dx ＝ 0 且 dy ＝ 0)
返回 (0)  ' 目标与人物重合

如果真 (dx ＝ 0)  ' 处理垂直方向
如果 (dy ＞ 0)
角度 ＝ 90
角度 ＝ 270
返回 (角度)

' 计算 dy/dx 的反正切（单参数）
弧度 ＝ 求反正切 (dy ÷ dx)
角度 ＝ 弧度 × 180 ÷ #pi
' 手动调整四象限
如果 (dx ＜ 0)
角度 ＝ 角度 ＋ 180  ' 第二、第三象限补正
如果 (dy ＜ 0)
角度 ＝ 角度 ＋ 360  ' 第四象限补正




' 限制在0-360度范围
角度 ＝ 角度 ％ 360
返回 (四舍五入 (角度, 3))

.版本 2<br /> <br /> .子程序 计算方位角, 小数型, 公开<br /> .参数 人物X, 小数型<br /> .参数 人物Y, 小数型<br /> .参数 目标X, 小数型<br /> .参数 目标Y, 小数型<br /> .局部变量 dx, 小数型<br /> .局部变量 dy, 小数型<br /> .局部变量 弧度, 小数型<br /> .局部变量 角度, 小数型<br /> <br /> dx ＝ 目标X － 人物X<br /> dy ＝ 目标Y － 人物Y<br /> <br /> .如果真 (dx ＝ 0 且 dy ＝ 0)<br />     返回 (0)  ' 目标与人物重合<br /> .如果真结束<br /> <br /> .如果真 (dx ＝ 0)  ' 处理垂直方向<br />     .如果 (dy ＞ 0)<br />         角度 ＝ 90<br />     .否则<br />         角度 ＝ 270<br />     .如果结束<br />     返回 (角度)<br /> .如果真结束<br /> <br /> ' 计算 dy/dx 的反正切（单参数）<br /> 弧度 ＝ 求反正切 (dy ÷ dx)<br /> 角度 ＝ 弧度 × 180 ÷ #pi<br /> <br /> ' 手动调整四象限<br /> .如果 (dx ＜ 0)<br />     角度 ＝ 角度 ＋ 180  ' 第二、第三象限补正<br /> .否则<br />     .如果 (dy ＜ 0)<br />         角度 ＝ 角度 ＋ 360  ' 第四象限补正<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> ' 限制在0-360度范围<br /> 角度 ＝ 角度 ％ 360<br /> 返回 (四舍五入 (角度, 3))

正右边为0度 逆时针旋转增加角度

  

子程序名	返回值类型	公开	备 注
计算方位角	小数型
参数名	类 型	参考	可空	数组	备 注
人物X	小数型
人物Y	小数型
目标X	小数型
目标Y	小数型

变量名	类 型	静态	数组	备 注
dx	小数型
dy	小数型
弧度	小数型
角度	小数型

dx ＝ 目标X － 人物X
dy ＝ 人物Y － 目标Y  ' 反转Y轴方向（适配逆时针）
如果真 (dx ＝ 0 且 dy ＝ 0)
返回 (0.000)  ' 目标与人物重合

如果真 (dx ＝ 0)  ' 处理垂直方向
如果 (dy ＞ 0)
返回 (90.000)  ' 正上方（逆时针90°）
返回 (270.000) ' 正下方（逆时针270°）

弧度 ＝ 求反正切 (dy ÷ dx)  ' 计算反正切（单参数）
角度 ＝ 弧度 × 180 ÷ #pi   ' 转换为角度
' 四象限修正逻辑
如果 (dx ＜ 0)
角度 ＝ 角度 ＋ 180      ' 第二、第三象限补正
如果 (角度 ＜ 0)      ' 第四象限补正
角度 ＝ 角度 ＋ 360


' 确保角度在0-360范围内
角度 ＝ 角度 ％ 360
返回 (四舍五入 (角度, 3))   ' 保留三位小数

.版本 2<br /> <br /> .子程序 计算方位角, 小数型, 公开<br /> .参数 人物X, 小数型<br /> .参数 人物Y, 小数型<br /> .参数 目标X, 小数型<br /> .参数 目标Y, 小数型<br /> <br /> .局部变量 dx, 小数型<br /> .局部变量 dy, 小数型<br /> .局部变量 弧度, 小数型<br /> .局部变量 角度, 小数型<br /> <br /> dx ＝ 目标X － 人物X<br /> dy ＝ 人物Y － 目标Y  ' 反转Y轴方向（适配逆时针）<br /> <br /> .如果真 (dx ＝ 0 且 dy ＝ 0)<br />     返回 (0.000)  ' 目标与人物重合<br /> .如果真结束<br /> <br /> .如果真 (dx ＝ 0)  ' 处理垂直方向<br />     .如果 (dy ＞ 0)<br />         返回 (90.000)  ' 正上方（逆时针90°）<br />     .否则<br />         返回 (270.000) ' 正下方（逆时针270°）<br />     .如果结束<br /> .如果真结束<br /> <br /> 弧度 ＝ 求反正切(dy ÷ dx)  ' 计算反正切（单参数）<br /> 角度 ＝ 弧度 × 180 ÷ #pi   ' 转换为角度<br /> <br /> ' 四象限修正逻辑<br /> .如果 (dx ＜ 0)<br />     角度 ＝ 角度 ＋ 180      ' 第二、第三象限补正<br /> .否则<br />     .如果 (角度 ＜ 0)      ' 第四象限补正<br />         角度 ＝ 角度 ＋ 360<br />     .如果结束<br /> .如果结束<br /> <br /> ' 确保角度在0-360范围内<br /> 角度 ＝ 角度 ％ 360<br /> 返回 (四舍五入(角度, 3))   ' 保留三位小数

宁静清澈

66666666666666666666666

神一样的人猫腻

感谢分享