画板.画箭头

C盘是头猪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
顶点数组	整数型	6
起点数组	整数型	3,2
矩形	矩形数据
x	整数型
y	整数型
按下判断	逻辑型

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

x ＝ 横向位置
y ＝ 纵向位置
按下判断 ＝ 真

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

如果真 (按下判断 ＝ 真)
画板.清除 (, , , )
子程序_画箭头 (画板, x, y, 横向位置 － x, 纵向位置 － y)
画板.画多边形 (起点数组, 3)

子程序名	返回值类型	公开	备 注
子程序_画箭头
参数名	类 型	参考	可空	数组	备 注
参_画板	画板
参_左	整数型
参_顶	整数型
参_宽	整数型
参_高	整数型

变量名	类 型	静态	数组	备 注
左	整数型
顶	整数型
宽	整数型
高	整数型
箭头角度	小数型
边线长度	整数型
临时	双精度小数型
正弦值	双精度小数型
余弦值	双精度小数型
正弦值1	双精度小数型
正弦值2	双精度小数型
余弦值1	双精度小数型
余弦值2	双精度小数型

左 ＝ 参_左
顶 ＝ 参_顶
宽 ＝ 参_宽
高 ＝ 参_高
临时 ＝ 求平方根 (宽 × 宽 ＋ 高 × 高)
判断 (临时 ＝ 0)
连续赋值 (0, 正弦值, 余弦值)
余弦值 ＝ －宽 ÷ 临时
正弦值 ＝ －高 ÷ 临时
箭头角度 ＝ 30 × #pi ÷ 180
边线长度 ＝ 25  ' 调三角形边长
如果 (余弦值 ≥ 0)
正弦值1 ＝ 求正弦 (子程序_求反正弦 (正弦值) － 箭头角度)
正弦值2 ＝ 求正弦 (子程序_求反正弦 (正弦值) ＋ 箭头角度)
正弦值1 ＝ 求正弦 (子程序_求反正弦 (正弦值) ＋ 箭头角度)
正弦值2 ＝ 求正弦 (子程序_求反正弦 (正弦值) － 箭头角度)
如果 (正弦值 ≥ 0)
余弦值1 ＝ 求余弦 (子程序_求反余弦 (余弦值) － 箭头角度)
余弦值2 ＝ 求余弦 (子程序_求反余弦 (余弦值) ＋ 箭头角度)
余弦值1 ＝ 求余弦 (子程序_求反余弦 (余弦值) ＋ 箭头角度)
余弦值2 ＝ 求余弦 (子程序_求反余弦 (余弦值) － 箭头角度)
顶点数组 [1] ＝ 左 ＋ 宽顶点数组 [2] ＝ 顶 ＋ 高
顶点数组 [3] ＝ 四舍五入 (边线长度 × 余弦值1, ) ＋ 顶点数组 [1]
顶点数组 [4] ＝ 四舍五入 (边线长度 × 正弦值1, ) ＋ 顶点数组 [2]
顶点数组 [5] ＝ 四舍五入 (边线长度 × 余弦值2, ) ＋ 顶点数组 [1]
顶点数组 [6] ＝ 四舍五入 (边线长度 × 正弦值2, ) ＋ 顶点数组 [2]
参_画板.画多边形 (顶点数组, 3)
起点数组 [1] [1] ＝ x
起点数组 [1] [2] ＝ y
起点数组 [2] [1] ＝ 顶点数组 [5]
起点数组 [2] [2] ＝ 顶点数组 [6]
起点数组 [3] [1] ＝ 顶点数组 [3]
起点数组 [3] [2] ＝ 顶点数组 [4]

子程序名	返回值类型	公开	备 注
子程序_求反正弦	双精度小数型
参数名	类 型	参考	可空	数组	备 注
正弦值	双精度小数型

判断 (正弦值 ＝ -1)
返回 (��� ( #pi ÷ 2))
判断 (正弦值 ＝ 1)
返回 ( #pi ÷ 2)
返回 (求反正切 (正弦值 ÷ 求平方根 (－正弦值 × 正弦值 ＋ 1)))

子程序名	返回值类型	公开	备 注
子程序_求反余弦	双精度小数型
参数名	类 型	参考	可空	数组	备 注
余弦值	双精度小数型

判断 (余弦值 ＝ -1)
返回 ( #pi )
判断 (余弦值 ＝ 1)
返回 (0)
返回 (求反正切 (－余弦值 ÷ 求平方根 (－余弦值 × 余弦值 ＋ 1)) ＋ 2 × 求反正切 (1))

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

按下判断 ＝ 假

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 顶点数组, 整数型, , "6"<br /> .程序集变量 起点数组, 整数型, , "3,2"<br /> .程序集变量 矩形, 矩形数据<br /> .程序集变量 x, 整数型<br /> .程序集变量 y, 整数型<br /> .程序集变量 按下判断, 逻辑型<br /> <br /> .子程序 _画板_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> x ＝ 横向位置<br /> y ＝ 纵向位置<br /> 按下判断 ＝ 真<br /> <br /> <br /> .子程序 _画板_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (按下判断 ＝ 真)<br />     画板.清除 (, , , )<br />     子程序_画箭头 (画板, x, y, 横向位置 － x, 纵向位置 － y)<br />     画板.画多边形 (起点数组, 3)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_画箭头<br /> .参数 参_画板, 画板<br /> .参数 参_左, 整数型<br /> .参数 参_顶, 整数型<br /> .参数 参_宽, 整数型<br /> .参数 参_高, 整数型<br /> .局部变量 左, 整数型<br /> .局部变量 顶, 整数型<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> .局部变量 箭头角度, 小数型<br /> .局部变量 边线长度, 整数型<br /> .局部变量 临时, 双精度小数型<br /> .局部变量 正弦值, 双精度小数型<br /> .局部变量 余弦值, 双精度小数型<br /> .局部变量 正弦值1, 双精度小数型<br /> .局部变量 正弦值2, 双精度小数型<br /> .局部变量 余弦值1, 双精度小数型<br /> .局部变量 余弦值2, 双精度小数型<br /> <br /> 左 ＝ 参_左<br /> 顶 ＝ 参_顶<br /> 宽 ＝ 参_宽<br /> 高 ＝ 参_高<br /> 临时 ＝ 求平方根 (宽 × 宽 ＋ 高 × 高)<br /> .判断开始 (临时 ＝ 0)<br />     连续赋值 (0, 正弦值, 余弦值)<br /> .默认<br />     余弦值 ＝ －宽 ÷ 临时<br />     正弦值 ＝ －高 ÷ 临时<br /> .判断结束<br /> 箭头角度 ＝ 30 × #pi ÷ 180<br /> 边线长度 ＝ 25  ' 调三角形边长<br /> .如果 (余弦值 ≥ 0)<br />     正弦值1 ＝ 求正弦 (子程序_求反正弦 (正弦值) － 箭头角度)<br />     正弦值2 ＝ 求正弦 (子程序_求反正弦 (正弦值) ＋ 箭头角度)<br /> .否则<br />     正弦值1 ＝ 求正弦 (子程序_求反正弦 (正弦值) ＋ 箭头角度)<br />     正弦值2 ＝ 求正弦 (子程序_求反正弦 (正弦值) － 箭头角度)<br /> .如果结束<br /> .如果 (正弦值 ≥ 0)<br />     余弦值1 ＝ 求余弦 (子程序_求反余弦 (余弦值) － 箭头角度)<br />     余弦值2 ＝ 求余弦 (子程序_求反余弦 (余弦值) ＋ 箭头角度)<br /> .否则<br />     余弦值1 ＝ 求余弦 (子程序_求反余弦 (余弦值) ＋ 箭头角度)<br />     余弦值2 ＝ 求余弦 (子程序_求反余弦 (余弦值) － 箭头角度)<br /> .如果结束<br /> 顶点数组 [1] ＝ 左 ＋ 宽<br /> 顶点数组 [2] ＝ 顶 ＋ 高<br /> 顶点数组 [3] ＝ 四舍五入 (边线长度 × 余弦值1, ) ＋ 顶点数组 [1]<br /> 顶点数组 [4] ＝ 四舍五入 (边线长度 × 正弦值1, ) ＋ 顶点数组 [2]<br /> 顶点数组 [5] ＝ 四舍五入 (边线长度 × 余弦值2, ) ＋ 顶点数组 [1]<br /> 顶点数组 [6] ＝ 四舍五入 (边线长度 × 正弦值2, ) ＋ 顶点数组 [2]<br /> 参_画板.画多边形 (顶点数组, 3)<br /> 起点数组 [1] [1] ＝ x<br /> 起点数组 [1] [2] ＝ y<br /> 起点数组 [2] [1] ＝ 顶点数组 [5]<br /> 起点数组 [2] [2] ＝ 顶点数组 [6]<br /> 起点数组 [3] [1] ＝ 顶点数组 [3]<br /> 起点数组 [3] [2] ＝ 顶点数组 [4]<br /> <br /> <br /> .子程序 子程序_求反正弦, 双精度小数型<br /> .参数 正弦值, 双精度小数型<br /> <br /> .判断开始 (正弦值 ＝ -1)<br />     返回 (－(#pi ÷ 2))<br /> .判断 (正弦值 ＝ 1)<br />     返回 (#pi ÷ 2)<br /> .默认<br />     返回 (求反正切 (正弦值 ÷ 求平方根 (－正弦值 × 正弦值 ＋ 1)))<br /> .判断结束<br /> <br /> <br /> .子程序 子程序_求反余弦, 双精度小数型<br /> .参数 余弦值, 双精度小数型<br /> <br /> .判断开始 (余弦值 ＝ -1)<br />     返回 (#pi)<br /> .判断 (余弦值 ＝ 1)<br />     返回 (0)<br /> .默认<br />     返回 (求反正切 (－余弦值 ÷ 求平方根 (－余弦值 × 余弦值 ＋ 1)) ＋ 2 × 求反正切 (1))<br /> .判断结束<br /> <br /> <br /> .子程序 _画板_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 按下判断 ＝ 假

没找着好用的，自己改了一下别人的源码

fengyyun

感谢大神分享~！

SHIWOOOO

好好好好

财财发大财

        支持开源~！感谢分享

zaozi

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

君九

感谢分享

一指温柔

感谢分享

396384183

感谢分享！

豆豆灰常开心

全都是大佬~