两点坐标取角度源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 起点坐标, 坐标
.局部变量 终点坐标, 坐标

起点坐标.x ＝ 到整数 (编辑框1.内容)
起点坐标.y ＝ 到整数 (编辑框2.内容)
终点坐标.x ＝ 到整数 (编辑框3.内容)
终点坐标.y ＝ 到整数 (编辑框4.内容)
标签5.标题 ＝ “结果:” ＋ 到文本 (求角度 (起点坐标, 终点坐标)) ＋ “度”


.子程序 求角度, 整数型
.参数 起点坐标, 坐标
.参数 终点坐标, 坐标
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 角度, 整数型
.局部变量 左右, 整数型
.局部变量 上下, 整数型

x ＝ 取绝对值 (终点坐标.x － 起点坐标.x)
y ＝ 取绝对值 (终点坐标.y － 起点坐标.y)
' x × x ＋ y × y 取两点距离的方法
角度 ＝ 求反余弦 (y ÷ 求平方根 (x × x ＋ y × y)) ÷ #pi × 180
左右 ＝ 终点坐标.x － 起点坐标.x
上下 ＝ 终点坐标.y － 起点坐标.y
' 判断 (左右 ＞ 0 且 上下 ＜ 0) ' 从上方到下方 忽略 0-90
.判断开始 (左右 ＞ 0 且 上下 ＞ 0)  ' 从右方到下方 90-180
    角度 ＝ 180 － 角度
.判断 (左右 ＜ 0 且 上下 ＞ 0)  ' 从下方到左方 180-270
    角度 ＝ 180 ＋ 角度
.判断 (左右 ＜ 0 且 上下 ＜ 0)  ' 从左方到上方 270-360 回到原点
    角度 ＝ 360 － 角度
.默认

.判断结束

返回 (角度)

.子程序 求反余弦, 双精度小数型, , 网上找的 易语言没这命令
.参数 余弦值, 双精度小数型, , -1到1，否则返回0

.如果真 (余弦值 ＞ 1 或 余弦值 ＜ -1)
    返回 (0)
.如果真结束
返回 (#pi ÷ 2 － 求反正弦 (余弦值))

.子程序 求反正弦, 双精度小数型, , 返回弧度值
.参数 正弦值, 双精度小数型, , -1到1，否则返回0

.如果真 (正弦值 ＜ -1 或 正弦值 ＞ 1)
    返回 (0)
.如果真结束
返回 (求反正切 (正弦值 ÷ 求平方根 (1 － 正弦值 × 正弦值)))

.子程序 _按钮3_被单击

置随机数种子 ()
编辑框1.内容 ＝ 到文本 (取随机数 (1, 1000))
编辑框2.内容 ＝ 到文本 (取随机数 (1, 1000))
编辑框3.内容 ＝ 到文本 (取随机数 (1, 1000))
编辑框4.内容 ＝ 到文本 (取随机数 (1, 1000))


.子程序 __启动窗口_创建完毕

@w1021172562