易语言多线程机制初探

多个线程的执行是并发的，也就是在逻辑上“同时”，而不管是否是物理上的“同时”。如果系统只 有一个 CPU，那么真正的“同时”是不可能的，但是由于 CPU 的速度非常快，用户感觉不到其中 的区别，因此我们也不用关心它，只需要设想各个线程是同时执行即可。
多线程和传统的单线程在程序设计上最大的区别在于，由于各个线程的控制流彼此独立，使得各个 线程之间的代码是乱序执行的，由此带来的线程调度，同步等问题，将在下面探讨。
易语言多线程机制初探
一、关于多线程冲突问题。.
进程是一个独立的应用程序，线程是进程的一个代码片段。非资深程序员不要碰多线程，以免 引起程序的混乱。
3.6 版开始增加了多线程支持库，提供对多线程的支持，并通过实现进入许可证机制以避免多线程 冲突。 多线程是这样一种机制，它允许在程序中并发执行多个指令流，每个指令流都称为一个线程，彼此 间互相独立。 线程又称为轻量级进程，它和进程一样拥有独立的执行控制，由操作系统负责调度， 区别在于线程没有独立的存储空间，而是和所属进程中的其它线程共享一个存储空间，这使得线程 间的通信远较进程简单。
三、下面介绍易语言的多线程编程方法。
通过研究易语言附带的两个多线程例程，总结如下： （一）、先看易语言对自己的多程机制的解释：
1、创建进入许可证：创建并返回一个进入许可证数值，此许可证值用作进入程序中的指定许可代 码区，以避免多线程冲突。
2、删除进入许可证：删除由“创建进入许可证”命令所创建返回的进入许可证，以释放系统资源。 3、启动线程：创建并启动一条线程，可重复使用以创建多条线程。
窗口程序集：窗口程序集 1
程序集变量：进入许可证 1 数据类型：整数型 程序集变量：画圆判断 数据类型：逻辑型 程序集变量：画矩形判断 数据类型：逻辑型 程序集变量：进入许可证 2 数据类型：整数型
══════════════════════════════
子程序：_按钮 1_被单击
※ 备注：如果按钮 1 的标题为“停止画圆”时就开始画圆（画圆判断 ＝ 假），否则如果按钮 1 的 标题为“开始画圆”时就停止画圆（画圆判断 ＝ 真）。
由于同一进程的多个线程共享同一片存储空间，在带来方便的同时，也带来了访问冲突这个严重的 问题。
多线程也有它不利的一面。任何时候某个应用程序使用的线程多于一个时，如果多个线程在同一时 刻试图使用相同的数据或资源，可能出现麻烦。这种情况一旦出现，程序将变得非常复杂并且难以 调试。
更糟的是多线程代码经常在最初开发时运行良好，在形成产品时却往往失败，原因在于有未被 发现的多个线程与相同的数据或资源相互作用的情况。这使得多线程编程非常危险。
4、进入许可区：根据已经创建的许可证进入指定许可代码区，在此线程未退出之前，其它线程如 要通过同一个进入许可证进入该许可代码区则必须先等待此线程退出许可代码区，从而保证了指定 许可代码区在任何时候都只能有一条线程进入并执行。 我的理解：
①许可区内的代码在执行的时候另外的程序不允许调用，保证了多线程的安全。 ②即使使用相同的许可证值进入许可区，也要等待先进入的程序执行完毕才能运行。 ③多线程的目的是为了程序可以分支同时运行，但“许可区”又有限制分支运行的可能，为什么呢？ 因为多线程容易引起程序的混乱，所以用“许可区”保证了程序的执行安全。
如果创建成功则返回线程的句柄，否则返回 NULL。
创 建 了 新 的 线 程 后 ， 则 该 线 程 就 开 始 启 动 执 行 了 。 如 果 在 dwCreationFlags 中 用 了 CREATE_SUSPENDED 特性，那么线程并不马上执行，而是先挂起，等到调用 ResumeThread 后才 开始启动线程，在这个过程中可以调用函数：
══════════════════════════════
子程序：画矩形线程
判断循环首 (画矩形判断 ＝ 真) 置随机数种子 () 画板 2.刷子颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) 画板 2.画笔颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) 画板 2.画矩形 (取随机数 (1, 画板 2.宽度), 取随机数 (1, 画板 2.高度), 取随机数 (1, 画板 2.宽度), 取随机数 (1, 画板 2.高度)) 进入许可区 (进入许可证 2) 退出许可区 (进入许可证 2) 延时 (500) 判断循环尾 () 本文来自猴岛游戏论坛 ：/r4596562_u/
4、使用“退出许可区”解锁该许可代码区，以便让其他线程进入。若想使多个线程同时运行，我 们可以为每个线程建立一个进入许可证，进入许可区与退出许可区连着进行使多个线程同步运行。
5、当退出程序时，要删除进入许可证以释放系统资源。
（三）、下面的示例代码同时运行两个线程，一个是连续随机画圆，一个是连续随机画矩形：
画圆判断 ＝ 取反 (画圆判断) 判断 (画圆判断 ＝ 真) 如果 (进入许可证 1 ≠ 0) 如果真 (启动线程 (&画圆线程) ＝ 真) 按钮 1.标题 ＝ “停止画圆” 如果真结束 否则 信息框 (“创建进入许可证 失败”, 0, ) 如果结束 默认 按钮 1.标题 ＝ “开始画圆” 判断结束
在线程体内，如果该线程完全独立，与其它的线程没有数据存取等资源操作上的冲突，则可按 照通常单线程的方法进行编程。但是，在多线程处理时情况常常不是这样，线程之间经常要同时访 问一些资源。例如，一个线程负责公式计算，另一个线程负责结果的显示，两个线程都要访问同一 个结果变量。这时如果不进行冲突控制的话，则很可能显示的是不正确的结果。
ReleaseSemaphore(); 信号对象允许同时对多个线程共享资源的访问，在创建对象时指定最大可同时访问的线程数。 当一个线程申请访问成功后，信号对象中的计数器减一；调用 ReleaseSemaphore 函数后，信号对象
中的计数器加一。其中，计数器值大于等于 0，小于等于创建时指定的最大值。利用信号对象，我 们不仅可以控制共享资源的访问，还可以在应用的初始化时候使用。假定一个应用在创建一个信号 对象时，将其计数器的初始值设为 0，这样就阻塞了其它线程，保护了资源。待初始化完成后，调 用 ReleaseSemaphore 函数将其计数器增加至最大值，进行正常的存取访问
对共享资源进行访问引起冲突是不可避免的，但我们可用以下办法来进行操作控制：
(1) 通过设置线程的互斥体对象，在可能冲突的地方进行同步控制。 首先，建立互斥体对象，得到句柄：
HANDLE CreateMutex( ); 然后，在线程可能冲突区域的开始（即访问共享资源之前），调用 WaitForSingleObject 将句柄 传给函数，请求占用互斥体对象：
(2) 设置信号：在操作共享资源前，打开信号；完成操作后，关闭信号。这类似于互斥体对象 的处理。
首先，创建信号对象：
HANDLE CreateSemaphore( ); 或者打开一个信号对象：
HANDLE OpenSemaphore( ); 然后，在线程的访问共享资源之前调用 WaitForSingleObject。 共享资源访问完后，释放对信号对象的占用：
5、退出许可区：指示当前线程将退出许可代码区，并允许其它使用同一进入许可证的线程进入此 许可代码区。
（二）、易语言的多线程编程过程大约如下：
1、先用“创建进入许可证”命令为一个线程进入一个指定的许可代码区建立一个许可证。
2、用“启动线程”命令创建并启动一条线程，以运行一个线程的子程序。
3、在一个线程子程序里用“进入许可区”使该线程占用一个许可代码区，并锁定该代码区不让其 他线程进入，并锁定其他线程运行，以避免线程冲突。
══════════════════════════════
子程序：画圆线程
判断循环首 (画圆判断 ＝ 真) 置随机数种子 () 画板 1.刷子颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) 画板 1.画笔颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) 画板 1.画椭圆 (取随机数 (1, 画板 1.宽度), 取随机数 (1, 画板 1.高度), 取随机数 (1, 画板 1.宽度), 取随机数 (1, 画板 1.高度)) 进入许可区 (进入许可证 1) 退出许可区 (进入许可证 1) 延时 (500) 判断循环尾 ()
BOOL TerminateThread( HANDLE hThread, DWORD dwExitCode );
但应注意：该函数可能会引起系统不稳定，而且线程所占用的资源也不释放。因此，一般情况 下，建议不要使用该函数。
如果要中止的线程是进程内的最后一个线程，则在线程被中止后相应的进程也应中止。
2、用 Win32 函数控制线程对共享资源的访问
BOOL SetThreadPriority( HANDLE hThread, int nPriority);
来设置线程的优先权。
当线程的函数返回后，线程自动中止。如果在线程的执行过程中中止的话，则可调用函数：
VOID ExitThread( DWORD dwExitCode);
如果在线程的外面中止线程的话，则可调用下面的函数：
══════════════════════════════
子程序：_按钮 2_被单击
画矩形判断 ＝ 取反 (画矩形判断) 判断 (画矩形判断 ＝ 真) 如果 (进入许可证 2 ≠ 0) 如果真 (启动线程 (&画矩形线程) ＝ 真) 按钮 2.标题 ＝ “停止画矩形” 如果真结束 否则 信息框 (“创建进入许可证 失败”, 0, ) 如果结束 默认 按钮 2.标题 ＝ “开始画矩形” 判断结束
══════════════════════════════
子程序：__启动窗口_创建完毕