Tap tempo打拍子软件

.子程序 tap
.局部变量 时间, 整数型
.局部变量 BPM, 小数型
.局部变量 索引, 整数型
.局部变量 平均, 小数型

时间 ＝ 取启动时间 ()
.如果真 (上次时间 ≠ 0)
BPM ＝ 60 ÷ ((时间 － 上次时间) ÷ 1000)
加入成员 (数组, BPM)
.计次循环首 (取数组成员数 (数组), 索引)
平均 ＝ 平均 ＋ 数组 [索引]
.计次循环尾 ()
平均 ＝ 平均 ÷ 取数组成员数 (数组)
输出调试文本 (BPM)
.如果 (四舍五入 (BPM ÷ 平均, ) ≠ 1)
清除数组 (数组)
标签1.标题 ＝ “重置”
.否则
标签1.标题 ＝ 到文本 (到整数 (平均))
.如果结束
标题 ＝ 到文本 (取数组成员数 (数组))
.如果真结束
鸣叫 ()
上次时间 ＝ 时间