в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:31Z

1 версия

Новая страница

==Thread Wait and PulseAll==

<source lang="vbnet">
Imports System
Imports System.Threading
Public Class MainClass
Private Money As Integer
Private Week As Integer = 1

Public Shared Sub Main()
Dim mClass As MainClass = New MainClass()

Dim aThreadStart As New ThreadStart(AddressOf mClass.Produce)
Dim bThreadStart As New ThreadStart(AddressOf mClass.Consume)
Dim aThread As New Thread(aThreadStart)
Dim bThread As New Thread(bThreadStart)
aThread.Name = "Produce"
aThread.Start()
bThread.Name = "Consume"
bThread.Start()
End Sub

Public Sub Produce()
Thread.Sleep(500)
Do
Monitor.Enter(me)
Do While Money > 0
Monitor.Wait(Me)
Loop
Money = 1000
Monitor.PulseAll(Me)
Monitor.Exit(Me)
Loop
End Sub
Public Sub Consume()
Console.WriteLine("AM in consume thread")
Do
Monitor.Enter(Me)
Do While Money = 0
Monitor.Wait(Me)
Loop
Console.WriteLine("Dear parent I just spent all your money in week " & Week)
Week += 1
If Week = 21 * 52 Then System.Environment.Exit(0)
Money = 0
Monitor.PulseAll(Me)
Monitor.Exit(Me)
Loop
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Thread/Thread Wait - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия