不同任務之間可以通過一個標志符來實現互斥事件。
?
程序代碼:
Task2
<span style="font-size:12px;">beginwhile truewait(!bTaskFlag)cls()gotoxy(1,1)put("這是Task1")gotoxy(1,2)if bTaskFlagput("BFlag:true ")elseput("BFlag:false ")endIfdelay(1)bTaskFlag=trueendWhile
end</span>
主程序:
<span style="font-size:12px;">begintitle("Task線程通訊:")taskCreate "Task1",10,Task1()taskCreate "Task2",10,Task2()while truedelay(0)endWhileend</span>