磁盘读写速度测试工具

写入大小 ＝ 到整数 (编辑框1.内容)
重复采样次数 ＝ 到整数 (编辑框2.内容)
空白字节集 ＝ 取空白字节集 (写入大小 × 1024 × 1024)
.计次循环首 (取数组成员数 (卷标数组), a)
' 超级列表框1.置标题 (a － 1, 2, “正在测试..”)
' 处理事件 ()
写出速度 ＝ 0
.计次循环首 (重复采样次数, b)
超级列表框1.置标题 (a － 1, 2, “正在测试..[” ＋ 到文本 (b) ＋ “]”)
处理事件 ()
写出计时 ＝ 取启动时间 ()
写到文件 (卷标数组 [a] ＋ “\ceshi.txt”, 空白字节集)
写出计时 ＝ 取启动时间 () － 写出计时
写出速度 ＝ 写出速度 ＋ 写入大小 ÷ 写出计时 × 1000
.计次循环尾 ()
' 调试输出 (写出计时)
写出速度 ＝ 四舍五入 (写出速度 ÷ 重复采样次数, 2)
调试输出 (写出速度)
超级列表框1.置标题 (a － 1, 2, 取文本左边 (到文本 (写出速度), 5) ＋ “mb/s”)
读入速度 ＝ 0
.计次循环首 (重复采样次数, b)
超级列表框1.置标题 (a － 1, 3, “正在测试..[” ＋ 到文本 (b) ＋ “]”)
读入计时 ＝ 取启动时间 ()
读入测试 ＝ 读入文件 (卷标数组 [a] ＋ “\ceshi.txt”)
读入计时 ＝ 取启动时间 () － 读入计时
' 调试输出 (读入计时)
读入速度 ＝ 读入速度 ＋ 写入大小 ÷ 读入计时 × 1000
.计次循环尾 ()
读入速度 ＝ 四舍五入 (读入速度 ÷ 重复采样次数, 2)
调试输出 (读入速度)
超级列表框1.置标题 (a － 1, 3, 取文本左边 (到文本 (读入速度), 5) ＋ “mb/s”)
处理事件 ()
删除文件 (卷标数组 [a] ＋ “\ceshi.txt”)
.计次循环尾 ()
空白字节集 ＝ { }