大佬们来一起研究一下，怎么才能更快

超级萌新

运行速度上，好像易语言还真不是很快啊。
https://bbs.125.la/forum.php?mod=viewthread&tid=14800056
(出处: 精易论坛)



大佬们来一起研究一下，怎么才能更快

  

窗口程序集名	保 留	保 留	备 注
程序集1

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

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

内存分配加速优化 (真)
SetProcessAffinityMask (-1, 4)
t ＝ 取启动时间 ()
调试输出 (时间戳转文本2 (1697965604 ＋ i))
计次循环首 (1000000, i)
时间戳转文本2 (1697965604 ＋ i)
计次循环尾 ()
调试输出 (取启动时间 () － t)
信息框 (到文本 (取启动时间 () － t), 0, , )
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
时间戳转文本2	文本型
参数名	类 型	参考	可空	数组	备 注
时间戳	长整数型

变量名	类 型	静态	数组	备 注
局_秒	长整数型
内容	字节集
小时	整数型
分钟	整数型
秒	整数型
返回内容	文本型

局_秒 ＝ 时间戳 ＋ 28800
小时 ＝ (局_秒 ％ 86400) ÷ 3600
内容 ＝ { 48, 48, 58, 48, 48, 58, 48, 48, 0 }
如果 (小时 ＜ 10)
内容 [2] ＝ 48 ＋ 小时
内容 [1] ＝ 48 ＋ 到整数 (小时 ÷ 10)
内容 [2] ＝ 48 ＋ 小时 ％ 10
分钟 ＝ (局_秒 ％ 3600) ÷ 60
如果 (分钟 ＜ 10)
内容 [5] ＝ 48 ＋ 分钟
内容 [4] ＝ 48 ＋ 到整数 (分钟 ÷ 10)
内容 [5] ＝ 48 ＋ 分钟 ％ 10
秒 ＝ 局_秒 ％ 60
如果 (秒 ＜ 10)
内容 [8] ＝ 48 ＋ 秒
内容 [7] ＝ 48 ＋ 到整数 (秒 ÷ 10)
内容 [8] ＝ 48 ＋ 秒 ％ 10
返回 (到文本 (内容))
' 谁来继续优化一下，我100万次耗时 344ms  我技术有限了

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 i, 整数型<br /> .局部变量 t, 整数型<br /> <br /> 内存分配加速优化 (真)<br /> SetProcessAffinityMask (-1, 4)<br /> t ＝ 取启动时间 ()<br /> 调试输出 (时间戳转文本2 (1697965604 ＋ i))<br /> .计次循环首 (1000000, i)<br />     时间戳转文本2 (1697965604 ＋ i)<br /> .计次循环尾 ()<br /> 调试输出 (取启动时间 () － t)<br /> 信息框 (到文本 (取启动时间 () － t), 0, , )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 时间戳转文本2, 文本型<br /> .参数 时间戳, 长整数型<br /> .局部变量 局_秒, 长整数型<br /> .局部变量 内容, 字节集<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 返回内容, 文本型<br /> <br /> 局_秒 ＝ 时间戳 ＋ 28800<br /> 小时 ＝ (局_秒 ％ 86400) ÷ 3600<br /> 内容 ＝ { 48, 48, 58, 48, 48, 58, 48, 48, 0 }<br /> .如果 (小时 ＜ 10)<br />     内容 [2] ＝ 48 ＋ 小时<br /> .否则<br />     内容 [1] ＝ 48 ＋ 到整数 (小时 ÷ 10)<br />     内容 [2] ＝ 48 ＋ 小时 ％ 10<br /> .如果结束<br /> 分钟 ＝ (局_秒 ％ 3600) ÷ 60<br /> .如果 (分钟 ＜ 10)<br />     内容 [5] ＝ 48 ＋ 分钟<br /> .否则<br />     内容 [4] ＝ 48 ＋ 到整数 (分钟 ÷ 10)<br />     内容 [5] ＝ 48 ＋ 分钟 ％ 10<br /> .如果结束<br /> 秒 ＝ 局_秒 ％ 60<br /> .如果 (秒 ＜ 10)<br />     内容 [8] ＝ 48 ＋ 秒<br /> .否则<br />     内容 [7] ＝ 48 ＋ 到整数 (秒 ÷ 10)<br />     内容 [8] ＝ 48 ＋ 秒 ％ 10<br /> .如果结束<br /> 返回 (到文本 (内容))<br /> <br /> <br /> <br /> ' 谁来继续优化一下，我100万次耗时 344ms  我技术有限了

超级萌新

凌哥 发表于 2023-10-23 11:52
你把 内存分配的地方优化掉速度也就很快了，我模块收费三年了，是不开源的 ...

好的 感谢

Bszk

https://bbs.125.la/forum.php?mod ... 56&pid=26839108
我感觉我这个已经是差不多极限了，再快也快不到哪里了

你不丑

我这里100万次用时 27毫秒

金叶

吃柠檬的包子 发表于 2023-10-23 11:49
他不嫌我笨，我咋能嫌他慢

反手一个赞

凌哥

你把 内存分配的地方优化掉速度也就很快了，我模块收费三年了，是不开源的

吃柠檬的包子

他不嫌我笨，我咋能嫌他慢

凉冰粉

乐小游 发表于 2023-10-23 10:40
都用易语言了，他不嫌我笨，我咋能嫌他慢

没毛病

凌哥

40毫秒，这还不是最快的

超级萌新

凌哥 发表于 2023-10-23 10:56

这得学习一下，我最新的优化是267，你这几个命令是你的模块吗，我去学习一下