怎么计算角度？

xiaoling2013

知道2个坐标后怎么求得角度

dongyijun1979

直接调用，弹窗现实角度值

1. function 计算角度(x1,y1,x2,y2)//(x1,y1)和(x2,y2)分别为第一点和第二点的坐标值
   
2.         变量 临时变量1=x2-x1       
   
3.     变量 横直角边长=数学.绝对值(临时变量1)
   
4.         变量 临时变量2=y1-y2//warnning: 是y1-y2       
   
5.     变量 竖直角边长=数学.绝对值(临时变量2)
   
6.    
   
7.     变量 斜边长=数学.开方(横直角边长*横直角边长+竖直角边长*竖直角边长)
   
8.     变量 临时变量3=类型.转浮点型(竖直角边长)/斜边长
   
9.     变量 弧度=数学.反正弦值(临时变量3)
   
10.     角度=类型.转浮点型(弧度)*180/3.1415926
    
11.     如果(临时变量1<0 && 临时变量2>0)
    
12.         角度=180-角度
    
13.     如果结束
    
14.     如果(临时变量1<0 && 临时变量2<0)
    
15.         角度=角度+180
    
16.     如果结束
    
17.     如果(临时变量1>0 && 临时变量2<0)
    
18.         角度=360-角度
    
19.     如果结束
    
20.     help.messagebox(角度 & "度")
    
21. endfunction   

复制代码

dongyijun1979

上次你那帖子都给你发代码了。
你测试一下

sanmaodo

dongyijun1979 发表于 2013-9-12 01:59
直接调用，弹窗现实角度值

非常好！

xdpxcici2

二楼答案很棒，写得很清楚