易语言实现多线程计算的代码

多线程计算

此功能需要加载精易模块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)

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言制作王校长吃热狗游戏的源码

    王校长吃热狗游戏 .版本 2 .支持库 iext2 .支持库 OPenGL .支持库 spec .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 人物标识, 整数型 .程序集变量 热狗标识, 整数型, , "0" .程序集变量 死亡, 逻辑型 .程序集变量 得分, 整数型 .子程序 _开始按钮_被单击 动画物体2.图片 = #人物 人物标识 = 动画框1.创建物体 (动画物体2, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _

  • 易语言表白网页生成器源码

    表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮_本地生成_被单击 透明标签3.标题 = "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容 = 子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容 = 子文本替换 (编辑框2.内容, "自己名字&quo

  • 易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec = sec + 1 .如果真 (sec = 60) sec = 0 min = min + 1 .如果真结束 .如果真 (min = 60) min = 0 hr = hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言实现自动发送QQ信息的代码

    全局变量表 .版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 = 0 .子程序 _好友按钮_被单击 逻辑 = 假 时钟1.时钟周期 = 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 = 窗口_取句柄 (, , "TXGuiFoundati

  • 易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 = 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言发送消息模拟点击滚动条例程

    发送消息模拟点击滚动条 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_向上滚动一行_被单击 编辑框_内容.发送信息 (277, 0, 0) .子程序 _按钮_向下滚动一行_被单击 编辑框_内容.发送信息 (277, 1, 0) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid = 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言实现多线程计算的代码

    多线程计算 此功能需要加载精易模块5.6 .版本 2 .支持库 iext .程序集 窗口程序集1 .程序集变量 总线程id, 整数型 .程序集变量 线程判断数量, 整数型 .程序集变量 线程总数, 整数型 .程序集变量 线程id, 整数型 .程序集变量 当前表项, 整数型 .程序集变量 许可证, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i1, 整数型 .计次循环首 (10000, i1) 置随机数种子 () 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (

  • 详解易语言启动多线程

    用易语言写多线程应用要么使用多线程相关的api,支持库或模块,其实那些支持库或模块也都是封装的api,但是要比api使用方便. 总体来说易语言官方的多线程支持库要比一些杂七杂八的模块好多了. 支持库勾选上之后就可以使用易语言的多线程支持库了. 首先看用易语言多线程支持库创建线程的命令:启动线程: 命令名:启动线程 创建并启动一条线程,可重复使用以创建多条线程,成功返回真,失败返回假. 参数 数据类型 说明   参数<1>的名称为"欲执行的子程序" 子程序指针(SubPtr)

  • 易语言通过算法计算出酷狗音乐下载地址的代码

    酷狗直链计算的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 RegEx .支持库 iext3 .支持库 dp1 .程序集 窗口程序集_启动窗口 .子程序 JSON转义字符解码, 文本型 .参数 解密文本, 文本型 .局部变量 正则表达, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 转换结果, 文本型 .局部变量 文本, 文本型 .局部变量 i, 整数型 文本 = 解密文本 .如果真 (文本 ≠ "") 正则表达.创建 (&qu

  • 易语言基础教程之简单代码的编写

    要想使自己做的程序运行起来,就需要编写代码,下面我就以一个简单的程序为例,讲解一下代码编写过程 代码编写过程 我制作的小程序的功能就是当我点击点击按钮是,界面会出现"追梦小达人" 要想实现此功能,首先鼠标要双击一下点击按钮,进入程序编辑界面 这个子程序的完整代码为: 这个子程序用中文表达,意思就是:当单击按钮1时,标签1的标题就变成"追梦小达人!".我们可以把"标签1.标题"理解为"标签1的标题".可以看出易语言很接近人类的自

  • 易语言纯IP数据库查询代码实例

    以下是我们给大家分享了易语言IP数据库查询相关的内容代码,大家可以测试下 .版本 2 .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中. ***注意不要修改本子程序的名称

  • 易语言关闭多线程句柄方法

    命令名 :关闭线程句柄 返回真表示已成功关闭线程句柄.在Linux下,如果线程已经结束,本命令可能返回假.本命令为初级命令. 参数 数据类型 说明 线程句柄 整数型(int) 可通过"启动线程"的第三个参数获取线程句柄. 使用例子: .版本 2 .支持库 EThread .程序集 程序集1 .程序集变量 线程句柄, 整数型 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 启动线程 (&子程序1, , 线程句柄) 关闭线程句柄 (线程句柄) 返回 (0) '

  • 易语言实现多线程验证代理是否有效的代码

    载入程序 .版本 2 .程序集 启动 .子程序 _启动子程序, 整数型 载入 (_主窗口, , 假) 返回 (0) 多线程的方式验证ip的代码 此功能需要加载鱼刺类_线程操作模块和鱼刺类_HTTP模块 .版本 2 .支持库 iext .程序集 主窗口程序集 .程序集变量 线程池, 鱼刺类_线程池Ex, , , 框架 .程序集变量 临界, 鱼刺类_临界许可 .程序集变量 线程, 鱼刺类_线程操作 .程序集变量 验证网址, 文本型, , , 配置 .程序集变量 验证字符串, 文本型 .程序集变量 是

  • 详解易语言的多线程模块

    精易模块 子程序名:线程_启动 [首拼] xc_qd [备注] 成功返回线程句柄,失败返回0 [调用格式] [返回值类型] 整数型 <有返回值> 线程_启动(要启动的子程序,要传去子程序的参数) 『参数说明』 参数个数:2 参数1:要启动的子程序, 子程序指针 参数2:要传去子程序的参数, 整数型, 可空, 往子程序里面传递一个整数型的参数 你可以传递一个整数型的参数 如果你需要传递的是文本 你可以把文本变量的地址传过去 取指针地址_文本型 () 然后在用指针到文本还原成文本 指针_到文本 紫

  • 易语言调用windows消息函数代码详解

    SendMessageCallbackA的调用方法 相关代码: .版本2 .DLL命令 发送消息返回_, 整数型, "user32.dll", "SendMessageCallbackA", , SendMessageCallback,该函数最大的特定是可以立即返回.目标窗口函数执行完毕后,会用回调函数的形式将结果返回Long,TRUE表示成功,FALSE表示失败.会设置GetLastError .参数 窗口句柄, 整数型, , hwnd,要接收消息的那个窗口的句柄

  • 易语言自定义数据类型的使用代码

    自定义数据类型表 .版本 2 .数据类型 消息类型 .成员 键盘消息, 文本型 自定义数据类型使用代码 .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 接收返回, 消息类型 接收返回 = 自定义返回的数据类型 () 信息框 (接收返回.键盘消息, 64, "自定义数据类型", ) .子程序 自定义返回的数据类型, 消息类型 .局部变量 消息类型, 消息类型 消息类型.键盘消息 = "anxia123++.." 返回 (消息类型) 运行结果

随机推荐