使用易语言怎么实现多线程计算

发布时间:2021-05-27 17:52:50 作者:Leah
来源:亿速云 阅读:1247

这篇文章给大家介绍使用易语言怎么实现多线程计算,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。

多线程计算

此功能需要加载精易模块5.6

.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 总线程id, 整数型
.程序集变量 线程判断数量, 整数型
.程序集变量 线程总数, 整数型
.程序集变量 线程id, 整数型
.程序集变量 当前表项, 整数型
.程序集变量 许可证, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 i1, 整数型
.计次循环首 (10000, i1)
  置随机数种子 ()
  超级列表框1.插入表项 (, , , , , )
  超级列表框1.置标题 (i1 - 1, 0, 到文本 (取随机数 (1, 99)))
  超级列表框1.置标题 (i1 - 1, 1, 多项选择 (取随机数 (1, 4), “加”, “减”, “乘”, “除”))
  超级列表框1.置标题 (i1 - 1, 2, 到文本 (取随机数 (1, 99)))
.计次循环尾 ()
.子程序 _按钮_启动_被单击
总线程id = 线程_启动 (&子程序_计算, , )
.子程序 子程序_计算
.局部变量 表项引索, 整数型
.判断循环首 (线程判断数量 < 超级列表框1.取表项数 ())
  .如果真 (线程总数 < 到整数 (编辑框_总线程数.内容))
    线程判断数量 = 线程判断数量 + 1
    线程id = 线程_启动 (&子程序_结果)
    超级列表框1.置标题 (表项引索, 3, “计算中”)
    表项引索 = 表项引索 + 1
    线程总数 = 线程总数 + 1
  .如果真结束
.判断循环尾 ()
.子程序 子程序_结果
.局部变量 数值1, 双精度小数型
.局部变量 数值2, 双精度小数型
.局部变量 计算符号, 文本型
.局部变量 结果, 双精度小数型
.局部变量 i, 整数型
当前表项 = 当前表项 + 1
i = 当前表项 - 1
数值1 = 到数值 (超级列表框1.取标题 (i, 0))
数值2 = 到数值 (超级列表框1.取标题 (i, 2))
计算符号 = 超级列表框1.取标题 (i, 1)
.如果真 (计算符号 = “加”)
  结果 = 数值1 + 数值2
.如果真结束
.如果真 (计算符号 = “减”)
  结果 = 数值1 - 数值2
.如果真结束
.如果真 (计算符号 = “乘”)
  结果 = 数值1 × 数值2
.如果真结束
.如果真 (计算符号 = “除”)
  结果 = 数值1 ÷ 数值2
.如果真结束
程序_延时 (1, 1)
超级列表框1.置标题 (i, 3, 到文本 (结果))
程序_延时 (1, 1)
线程总数 = 线程总数 - 1
.子程序 _按钮_销毁_被单击
线程_销毁 (总线程id)
.子程序 _按钮_暂停_被单击
线程_挂起 (总线程id)
.子程序 _按钮_恢复_被单击
线程_恢复 (总线程id)
.子程序 __启动窗口_将被销毁
线程_销毁 (总线程id)

运行结果:

使用易语言怎么实现多线程计算总结

关于使用易语言怎么实现多线程计算就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。

推荐阅读:
  1. Parallel ForEach For 多线程并行计算使用注意
  2. 如何使用Python实现多线程

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

易语言

上一篇:如何在spring boot中实现默认异常处理

下一篇:使用Feign怎么实现微服务间文件传输

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》