回复 1楼tclhs的帖子
- ////////////////////////////////////////////线程事件///////////////////////////////////////////////////
- 整型 次数,线程句柄1,线程句柄2,线程事件句柄
- 功能 整型 线程A()
- 循环(真)
- 线程.等待(线程事件句柄,-1)//无限等待这个事件,进入后事件状态为占用
- 次数=次数+1
- 辅助.消息框("程序A的线程A 第"+转换.整型转字符型(次数)+"次")
- 线程.设置事件(线程事件句柄)//事件处理完成,设置事件为可用状态
- 辅助.等待(1000)
- 循环结束
- 返回 0
- 功能结束
- 功能 整型 线程B()
- 循环(真)
- 线程.等待(线程事件句柄,-1)//无限等待这个事件,进入后事件状态为占用
- 次数=次数+1
- 辅助.消息框("程序A的线程B 第"+转换.整型转字符型(次数)+"次")
- 线程.设置事件(线程事件句柄)//事件处理完成,设置事件为可用状态
- 辅助.等待(1000)
- 循环结束
- 返回 0
- 功能结束
- 功能 逻辑型 开始_点击()
- 线程事件句柄 = 线程.创建事件(假,真,"新的事件")
- 线程句柄1 = 线程.开启("测试.线程A","")
- 线程句柄2 = 线程.开启("测试.线程B","")
- //线程句柄 = 线程.开启("测试.主线程","")
- 返回 真
- 功能结束
复制代码
|