今日头条注册滑块源码 新手必学的滑块入门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, , , , , , )
调试输出 (“提交数据”, 提交数据)