Val编程-任务编程

84 阅读 0 评论 56 点赞

我是靠谱客的博主过时花瓣，最近开发中收集的这篇文章主要介绍Val编程-任务编程，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

不同任务之间可以通过一个标志符来实现互斥事件。

程序代码：

Task2

 
     
    <span style="font-size:12px;">begin
  while true
    wait(bTaskFlag)
    cls()
    gotoxy(1,1)
    put("这是Task2")
    gotoxy(1,2)
    if bTaskFlag
      put("BFlag:true     ")
    else
      put("BFlag:false   ")
    endIf
    delay(1)
    bTaskFlag=false
     
  endWhile
end</span> 
    
 Task1: 
   

<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>