創(chuàng)建并返回一個(gè)進(jìn)入許可證數(shù)值，此許可證值用作進(jìn)入程序中的指定許可代碼區(qū)，以避免多線程沖突。成功返回非零整數(shù)值，失敗返回0。所創(chuàng)建的許可證在不再使用后，必須使用“刪除進(jìn)入許可證”命令將其刪除。本命令為初級(jí)命令。

刪除進(jìn)入許可證：

刪除由“創(chuàng)建進(jìn)入許可證”命令所創(chuàng)建返回的進(jìn)入許可證。成功返回真，失敗返回假。本命令為初級(jí)命令。

參數(shù)	數(shù)據(jù)類型	說明
進(jìn)入許可證	“整數(shù)型（int）	本參數(shù)應(yīng)提供由“創(chuàng)建進(jìn)入許可證”命令所創(chuàng)建并返回的數(shù)值。

進(jìn)入許可區(qū)：根據(jù)已經(jīng)創(chuàng)建的許可證進(jìn)入指定許可代碼區(qū)，在此線程未退出之前，其它線程如要通過同一個(gè)進(jìn)入許可證進(jìn)入該許可代碼區(qū)則必須先等待此線程退出許可代碼區(qū)，從而保證了指定許可代碼區(qū)在任何時(shí)候都只能有一條線程進(jìn)入并執(zhí)行。本命令為初級(jí)命令。

參數(shù)	數(shù)據(jù)類型	說明
進(jìn)入許可證	整數(shù)型（int）	本參數(shù)應(yīng)提供由“創(chuàng)建進(jìn)入許可證”命令所創(chuàng)建并返回的數(shù)值。

.版本 2
.支持庫(kù) EThread

.程序集 窗口程序集1
.程序集變量 線程句柄, 整數(shù)型, , "10"
.程序集變量 num, 整數(shù)型

.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 i, 整數(shù)型

i ＝ 1
num ＝ 10
.判斷循環(huán)首 (i ≤ 10)
  啟動(dòng)線程 (&子程序1, , 線程句柄 )
  啟動(dòng)線程 (&子程序2, , 線程句柄 [i ＋ 1])
  關(guān)閉線程句柄 (線程句柄 )
  關(guān)閉線程句柄 (線程句柄 [i ＋ 1])
  i ＝ i ＋ 2
.判斷循環(huán)尾 ()


.子程序 子程序1

num ＝ num － 1
輸出調(diào)試文本 (num)

.子程序 子程序2

num ＝ num － 1
輸出調(diào)試文本 (num)

調(diào)試輸出結(jié)果：

* 8
* 9
* 7
* 6
* 5
* 4
* 3
* 2
* 1
在執(zhí)行一次：
* 8
* 7
* 9
* 6
* 5
* 4
* 3
* 2
* 1
* 0

我們可以明顯的發(fā)現(xiàn)問題，，雖然最終是把num減到了0，但是結(jié)果完全是亂的。

利用許可證解決上面的問題：

.版本 2
.支持庫(kù) EThread

.程序集 窗口程序集1
.程序集變量 線程句柄, 整數(shù)型, , "10"
.程序集變量 num, 整數(shù)型
.程序集變量 許可證, 整數(shù)型

.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 i, 整數(shù)型

許可證 ＝ 創(chuàng)建進(jìn)入許可證 ()

i ＝ 1
num ＝ 10
.判斷循環(huán)首 (i ≤ 10)
  啟動(dòng)線程 (&子程序1, , 線程句柄 )
  啟動(dòng)線程 (&子程序2, , 線程句柄 [i ＋ 1])
  關(guān)閉線程句柄 (線程句柄 )
  關(guān)閉線程句柄 (線程句柄 [i ＋ 1])
  i ＝ i ＋ 2
.判斷循環(huán)尾 ()

.如果真 (num ＝ 0)
  刪除進(jìn)入許可證 (許可證)
.如果真結(jié)束


.子程序 子程序1

進(jìn)入許可區(qū) (許可證)
num ＝ num － 1
退出許可區(qū) (許可證)
輸出調(diào)試文本 (num)

.子程序 子程序2

進(jìn)入許可區(qū) (許可證)
num ＝ num － 1
退出許可區(qū) (許可證)
輸出調(diào)試文本 (num)

輸出結(jié)果：