VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 6-16 使用SyncLock语句实现线程的同步

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
 
先看以下代码:
 
    Sub sample12()
        For i As Integer = 0 To 5
            Dim sample12_Thread As New Thread(AddressOf sample12_doALoop1)
            sample12_Thread.Start(i)
        Next
 
        Thread.Sleep(1000)
        Console.ReadKey()
    End Sub
 
    Sub sample12_doALoop1(ByVal number As Integer)
        Dim counter As Integer = CType(number, Integer)
        For i As Integer = 1 To 100
            Console.Write(" " & counter)
        Next
    End Sub
得到的结果可能如下,关键的地方我用红框标记出来了:
 
 
 
可以看到上面的输出比较混乱,这是由于线程是由系统控制,我们也不知道在哪个位置,系统就将线程1停了启动了线程2,接着又将线程2停了,切换运行线程4……。本来想完整地输出100个0、100个1……(什么?你还想按照0至5的顺序输出?我这里只谈如何完整地输出100个0、100个1……不谈顺序),这段代码实现不了的,也许偶尔会正确。
 
解决上面的问题,就需要使用 SyncLock 语句。
MSDN:SyncLock 语句可确保多个线程不在同一时间执行语句块。 SyncLock 防止各个线程进入该语句块,直到没有其他线程执行它为止。SyncLock 的最常见作用是保护数据不被多个线程同时更新。 如果操作数据的语句必须在没有中断的情况下完成,请将它们放入 SyncLock 块。使用方法如下:
 
SyncLock lockobject
    [ block ]  ‘独占锁时要执行的语句块
End SyncLock
需要注意的是,lockobject应该满足以下条件:
1、值不能是Nothing
2、不应使用 Me 关键字为实例数据提供锁定对象
3、应该是引用类型,不要使用Integer这样的值类型
4、必须定义为线程间可以共享的变量,下面的例子将定义为模块级变量
 
根据以上介绍,修改后的代码如下:
 
定义一个模块级变量:
 
 Private lockObj As Object
修改后的主程序:
 
    Sub sample12()
        lockObj = New Object
        For i As Integer = 0 To 5
            Dim sample12_Thread As New Thread(AddressOf sample12_doALoop2)
            sample12_Thread.Start(i)
        Next
 
        Thread.Sleep(1000)
        Console.ReadKey()
    End Sub
 
    Sub sample12_doALoop2(ByVal number As Integer)
        Dim counter As Integer = CType(number, Integer)
        SyncLock lockObj
            For i As Integer = 1 To 100
                Console.Write(" " & counter)
            Next
        End SyncLock
    End Sub
我们将子线程的循环块代码锁定,确保它完成。运行结果如下:
 
 
 
还强调的是,虽然看着是按照0-5的顺序调用线程,但是输出顺序确实不能控制。除非是采用别的代码实现,留给各位朋友自己来写。
 
 
 
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识,请参看 vb.net 教程 目录
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/UruseiBest/article/details/87898010

相关教程