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

独倚斜阳

原来源码来自 https://125.confly.eu.org/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, “角度:” ＋ 到文本 (角度) ＋ “  方向:” ＋ 到文本 (方向))

jkjiangfeng

6666666666666666666666666666

胖子葛格

感谢大神分享~！

不离01

66666666666666666666666

please

感谢分享，支持开源！！！

何浩文

支持开源~！感谢分享

year1970

感谢分享

艾玛克138

楼主辛苦了

亿万

感谢分享

wgqxj

谢谢分享