ccini |
2016-01-24 13:54 |
.版本 2 .子程序 _进度条_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 进度条.位置 = 四舍五入 (计算_到百分比 (进度条.宽度, 横向位置), ) APlayer.置当前时间 (四舍五入 (计算_取百分比 (APlayer.取总时间 (), 进度条.位置), )) .子程序 计算_取百分比, 双精度小数型, 公开, 取出 总大小 的 百分比 的数值 .参数 总大小, 双精度小数型 .参数 百分比, 双精度小数型 .参数 比例, 双精度小数型, 可空, 默认100=百分比 .如果真 (比例 = 0) 比例 = 100 .如果真结束 返回 (百分比 × 总大小 ÷ 比例) .子程序 计算_到百分比, 双精度小数型, 公开, 取出 当前大小 占 总大小 的百分比 .参数 总大小, 双精度小数型 .参数 当前大小, 双精度小数型 .参数 比例, 双精度小数型, 可空, 默认100=百分比 .如果真 (比例 = 0) 比例 = 100 .如果真结束 返回 (当前大小 × 比例 ÷ 总大小)
.版本 2
.子程序 _时钟_周期事件
进度条.位置 = 四舍五入 (计算_到百分比 (APlayer.取总时间 (), APlayer.取当前时间 ()), ) ' 标签_时间.标题 = 时间_毫秒到小时 (APlayer.取当前时间 ()) + “/” + 时间_毫秒到小时 (APlayer.取总时间 ())
|
|