不同任务之间可以通过一个标志符来实现互斥事件。
程序代码:
Task2
<span style="font-size:12px;">begin
while true
wait(!bTaskFlag)
cls()
gotoxy(1,1)
put("这是Task1")
gotoxy(1,2)
if bTaskFlag
put("BFlag:true ")
else
put("BFlag:false ")
endIf
delay(1)
bTaskFlag=true
endWhile
end</span>
主程序:
<span style="font-size:12px;">begin
title("Task线程通讯:")
taskCreate "Task1",10,Task1()
taskCreate "Task2",10,Task2()
while true
delay(0)
endWhile
end</span>