langs a-z

Task/Dining-philosophers/Visual-Basic-.NET/dining-philosophers-3.visual

@@ -0,0 +1,31 @@
+MustInherit Class PhilosopherBase
+   Implements IDisposable
+
+   Protected m_Disposed As Boolean
+   Protected ReadOnly m_Left As Fork
+   Protected ReadOnly m_Right As Fork
+   Protected ReadOnly m_Name As String
+   Public Sub New(ByVal name As String, ByVal right As Fork, ByVal left As Fork)
+       m_Name = name
+       m_Right = right
+       m_Left = left
+       Dim t As New Thread(AddressOf MainLoop)
+       t.IsBackground = True
+       t.Start()
+   End Sub
+   Protected Overridable Sub Dispose(ByVal disposing As Boolean)
+       m_Disposed = True
+   End Sub
+
+   Public Sub Dispose() Implements IDisposable.Dispose
+       Dispose(True)
+       GC.SuppressFinalize(Me)
+   End Sub
+   Public ReadOnly Property Name() As String
+       Get
+           Return m_Name
+       End Get
+   End Property
+
+   Public MustOverride Sub MainLoop()
+End Class