06. april 2004 - 15:41
Der er
3 kommentarer og
1 løsning
Runtime dim af classes - kan det lade sige gøre ?
Hej
Eksemplet her er lidt kedeligt, men hurtigere at forklare..
Det jeg vil have er at man i programmet kan starte en ny class som får sin egen tråd, denne tråd står bare og tæller til 2 mill, hvorefter den starter forfra.
Jeg vil så gerne i programmet kunne se hvor mange classes der er blevet startet og hente et status på hvorlangt de er nået med
at tælle... men hvordan kan man gøre dette ??
dim x(100) as class ??? eller hvordan
Med venlig hilsen
Kim Hansen
06. april 2004 - 20:44
#2
Prøv og kig lidt på dette eksempel:
Imports System
Imports System.Threading
Public Class T
Private Shared rng As Random = New Random
Private n As Integer
Public Sub New()
n = 0
End Sub
Public Sub Run()
While True
Thread.Sleep(rng.Next(100))
n = n + 1
End While
End Sub
Public ReadOnly Property NN As Integer
Get
Return n
End Get
End Property
End Class
Class MainClass
Public Shared Sub Main(ByVal args As String())
Dim t(3) As T
Dim i As Integer
For i = 0 To t.Length-1
t(i) = New T
Next
For i = 0 To t.Length-1
Call (New Thread (New ThreadStart (AddressOf t(i).Run))).Start
Next
While True
For i = 0 To t.Length-1
Console.Write(" " & t(i).NN)
Next
Console.WriteLine
Thread.Sleep(1000)
End While
End Sub
End Class
