计次循环首 (10,
)
启动线程 (&子程序1, ,
)
计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 死循环 | 整数型 | | |
| 事件对象 | 整数型 | | |
| 结果 | 整数型 | | |
判断循环首 (死循环 ＝ 0
)事件对象 ＝
CreateEvent (0, 假, 假,
“”)
如果真 (客户1.
发送数据 (事件对象
) ＝
真)WaitForSingleObject (事件对象, 10000
)线程_进入许可区 (许可证
)结果 ＝ 全局变量
线程_退出许可区 (许可证
)跳出循环 ()CloseHandle (事件对象)程序_延时 (1000
)判断循环尾 ()调试输出 (结果
)线程_进入许可区 (许可证
)全局变量 ＝
到整数 (客户1.
取回数据 ())
线程_退出许可区 (许可证
)
计次循环首 (10,
)
启动线程 (&子程序1, ,
)
计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 死循环 | 整数型 | | |
| 事件对象 | 整数型 | | |
| 结果 | 整数型 | | |
判断循环首 (死循环 ＝ 0
)事件对象 ＝
CreateEvent (0, 假, 假,
“”)哈希表.添加（事件对象）
如果真 (客户1.
发送数据 (事件对象
) ＝
真)WaitForSingleObject (事件对象, 10000
)线程_进入许可区 (许可证
)结果=哈希表.取值（事件对象）
哈希表.删除（事件对象）
线程_退出许可区 (许可证
)跳出循环 ()CloseHandle (事件对象)程序_延时 (1000
)判断循环尾 ()调试输出 (结果
)线程_进入许可区 (许可证
)哈希表.
添加（事件对象，到整数 (客户1.
取回数据 ())）
线程_退出许可区 (许可证
)