今日头条注册滑块源码 新手必学的滑块入门2

今日头条注册滑块源码 新手必学的滑块入门2

.版本 2
.支持库 spec

.子程序 _画板_pic_shade_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 result, 文本型
.局部变量 提交数据, 文本型
.局部变量 json, 类_json
.局部变量 t, 文本型
.局部变量 x, 文本型
.局部变量 y, 文本型

' [{"relative_time":46,"x":0,"y":53},{"relative_time":79,"x":2,"y":53}]
集_keypressTime ＝ 取启动时间 ()
t ＝ “40”
x ＝ “0”
y ＝ 到文本 (53)
集_slide_trajectory ＝ “”
.判断循环首 (真)
    ' {"relative_time":[t],"x":[x],"y":[y]}
    集_slide_trajectory ＝ 集_slide_trajectory ＋ 选择 (集_slide_trajectory ＝ “”, “”, “,”) ＋ 文本_替换 (#xyt_每段, , , , “[t]”, t, “[x]”, x, “[y]”, y, , , , )
    ' 调试输出 (“集_slide_trajectory”, 集_slide_trajectory)
    ' 程序_延时 (到整数 (文本_取随机范围数字 (50, 60, )), )
    t ＝ 到文本 (取启动时间 () － 集_keypressTime)
    x ＝ 到文本 (到整数 (x) ＋ 到整数 (文本_取随机范围数字 (1, 10, )))
    .如果真 (横向位置 ＜ 到整数 (x))
        集_slide_trajectory ＝ 集_slide_trajectory ＋ 选择 (集_slide_trajectory ＝ “”, “”, “,”) ＋ 文本_替换 (#xyt_每段, , , , “[t]”, t, “[x]”, 到文本 (横向位置), “[y]”, y, , , , )
        跳出循环 ()
    .如果真结束

.判断循环尾 ()
集_slide_trajectory ＝ “[” ＋ 集_slide_trajectory ＋ “]”
调试输出 (“集_slide_trajectory”, 集_slide_trajectory)
提交数据 ＝ 文本_替换 (#常量1, , , , “[id]”, 集_Id, “[slide_trajectory]”, 集_slide_trajectory, , , , , , )
调试输出 (“提交数据”, 提交数据)

@m1242087641