不同任务之间可以通过一个标志符来实现互斥事件。
程序代码:
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>