精易论坛

标题: 算出一个子程序开始到结束用了多久 [打印本页]

---

作者: cwjhome    时间: 2017-5-8 12:35
标题: 算出一个子程序开始到结束用了多久



这像这样的 我 取  时 分 秒 出来 相减 居然有 负数  感觉这个蛮好玩的 研究了半天没研究出来

QQ截图20170331150120.jpg (14.41 KB, 下载次数: 0)

下载附件

2017-3-31 15:01 上传

---

作者: 冯古屋    时间: 2017-5-8 12:35

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
t	整数型

t ＝ 取启动时间 ()
延时 (2000)
t ＝ 取启动时间 () － t
调试输出 (计算time (t))

子程序名	返回值类型	公开	备 注
计算time	文本型
参数名	类 型	参考	可空	数组	备 注
time	整数型

变量名	类 型	静态	数组	备 注
t	整数型
秒	整数型
时	整数型
分	整数型

t ＝ time ÷ 1000
时 ＝ t ＼ 36000
分 ＝ (t － 3600 × 时) ＼ 60
秒 ＝ t － 3600 × 时 － 分 × 60
返回 (“耗时：” ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 t, 整数型<br /> <br /> t ＝ 取启动时间 ()<br /> 延时 (2000)<br /> t ＝ 取启动时间 () － t<br /> 调试输出 (计算time (t))<br /> <br /> .子程序 计算time, 文本型<br /> .参数 time, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> <br /> t ＝ time ÷ 1000<br /> 时 ＝ t ＼ 36000<br /> 分 ＝ (t － 3600 × 时) ＼ 60<br /> 秒 ＝ t － 3600 × 时 － 分 × 60<br /> 返回 (“耗时：” ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”)

---

作者: cwjhome    时间: 2017-5-8 12:36
下面那个图 不是的多传了

---

作者: 易正易则    时间: 2017-5-8 12:37
.子程序 _按钮1_被单击

.局部变量 计时, 整数型


计时 ＝ 取启动时间 ()

'这里写代码

标签1.标题 ＝ “耗时：” ＋ 到文本 ((取启动时间 () － 计时) ÷ 1000) ＋ “秒”

---

作者: exit11    时间: 2017-5-8 12:41
最小为0，出现负数应该是代码因为的错误

.版本 2
.支持库 spec

.局部变量 a, 整数型
.局部变量 x, 整数型

a ＝ 取启动时间 ()
置随机数种子 ()
.计次循环首 (10, x)
    延迟 (取随机数 (100, 500))
.计次循环尾 ()
a ＝ 取启动时间 () － a
信息框 (a, 0, )

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4