开源 网络验证完整版 access+asp

筱季

看看！啊       啊

a452903421

网络验证 网络验证 网络验证

飞翔的企鹅1

{:3_235:}来看看了

ljxiaojun123

路过来来！！

a71126225

呵呵 来学习学习

给我精易币

看不懂，谁教教我？

挺吖1

.版本 2
.支持库 xplib
.支持库 shellEx
.支持库 vclbase

.程序集 窗口程序集1
.程序集变量 坐标a, 精易_坐标
.程序集变量 坐标s, 精易_坐标
.程序集变量 A
.程序集变量 s
.程序集变量 m, 双精度小数型
.程序集变量 k, 双精度小数型
.程序集变量 球的直径, 整数型
.程序集变量 x, 整数型
.程序集变量 y, 整数型

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

XP风格 (2)
球的直径 ＝ 到数值 (编辑框1.内容)


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型


.判断开始 (参数一 ＝ A)
    坐标a ＝ 鼠标_取位置 ()
.判断 (参数一 ＝ s)
    坐标s ＝ 鼠标_取位置 ()
.默认

.判断结束


.如果 (坐标a.横 ＞ 0 且 坐标s.横 ＞ 0)
    k ＝ (坐标s.纵 － 坐标a.纵) ÷ (坐标s.横 － 坐标a.横)  ' 斜率正切值
    m ＝ 求反正切 (k)  ' 倾斜角

    .如果 (坐标a.横 ＜ 坐标s.横 且 坐标a.纵 ＜ 坐标s.纵)
        x ＝ 坐标s.横 ＋ 球的直径 × 求余弦 (m)
        y ＝ 坐标s.纵 ＋ 球的直径 × 求正弦 (m)

    .否则
        .如果 (坐标a.横 ＞ 坐标s.横 且 坐标a.纵 ＜ 坐标s.纵)
            x ＝ 坐标s.横 － 球的直径 × 求余弦 (m)
            y ＝ 坐标s.纵 － 球的直径 × 求正弦 (m)


        .否则
            .如果 (坐标a.横 ＜ 坐标s.横 且 坐标a.纵 ＞ 坐标s.纵)
                x ＝ 坐标s.横 ＋ 球的直径 × 求余弦 (m)
                y ＝ 坐标s.纵 ＋ 球的直径 × 求正弦 (m)

            .否则
                .如果 (坐标a.横 ＞ 坐标s.横 且 坐标a.纵 ＞ 坐标s.纵)
                    x ＝ 坐标s.横 － 球的直径 × 求余弦 (m)
                    y ＝ 坐标s.纵 － 球的直径 × 求正弦 (m)

                .否则

                .如果结束

            .如果结束

        .如果结束

    .如果结束






    鼠标_移动 (, x, y)
    坐标a.横 ＝ 0
    坐标a.纵 ＝ 0
    坐标s.横 ＝ 0
    坐标s.纵 ＝ 0
.否则

.如果结束



.子程序 _编辑框1_内容被改变

球的直径 ＝ 到数值 (编辑框1.内容)

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

A ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 热键框1.键)  ' 球洞位置

s ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 热键框2.键)  ' 目标球位置
按钮1.禁止 ＝ 真
热键框2.禁止 ＝ 真
热键框1.禁止 ＝ 真
按钮1.标题 ＝ “快捷已设置，要改变请重新运行”

极光i

看下！！！！！！

八字

学习学习。。

路边※色狼

防火防盗借古讽今