в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:04Z

1 версия

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

==Create Threads==

<source lang="vbnet">Module Module1
Sub TaskA()
Dim I As Integer
For I = 0 To 250
System.Console.Write("A")
Next
End Sub
Sub TaskB()
Dim I As Integer
For I = 0 To 250
System.Console.Write("B")
Next
End Sub
Sub TaskC()
Dim I As Integer
For I = 0 To 250
System.Console.Write("C")
Next
End Sub
Sub Main()
Dim A As System.Threading.Thread = New Threading.Thread(AddressOf TaskA)
Dim B As System.Threading.Thread = New Threading.Thread(AddressOf TaskB)
Dim C As System.Threading.Thread = New Threading.Thread(AddressOf TaskC)
A.Start()
B.Start()
C.Start()
End Sub
End Module</source>
<pre class=codeResult>AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAAAAAA"</pre>

==Create two threads==

<source lang="vbnet">Imports System.Threading
public class Test
public Shared Sub Main
Dim thread1 As New Thread(AddressOf method1)
Dim thread2 As New Thread(AddressOf method2)
thread1.Start()
thread2.Start()
End Sub
Private Shared Sub method1()
Dim i As Integer
For i = 1 To 4
Console.WriteLine("Method1: " & i)
Thread.CurrentThread.Sleep(250)
Next
End Sub

Private Shared Sub method2()
Dim i As Integer
For i = 1 To 4
Console.WriteLine("Method2: " & i)
Thread.CurrentThread.Sleep(250)
Next
End Sub
End class</source>
<pre class=codeResult>Method1: 1
Method2: 1
Method1: 2
Method2: 2
Method1: 3
Method2: 3
Method1: 4
Method2: 4</pre>

==Read a file in a thread==

<source lang="vbnet">Imports System.IO
Imports System.Text
Imports System.Threading

Public Class Tester
Public Shared Sub Main
Dim readThread As Thread
readThread = New Thread(AddressOf ReadFile)
readThread.Start()
End Sub

Private Shared Sub ReadFile()
Dim myFileStream As FileStream
Dim intByte As Integer
Dim bteRead(128) As Byte
Dim intloop As Integer = 0
Try
myFileStream = New FileStream("test.txt", FileMode.OpenOrCreate, FileAccess.Read)
Do
intByte = myFileStream.Read(bteRead, 0, 128)
Console.WriteLine(Encoding.ASCII.GetString(bteRead))
Thread.Sleep(500)
intloop += 1
Loop While Not (intByte = 0 Or intByte < 128)
myFileStream.Close()
Catch ex As IOException
Console.WriteLine(ex.Message)
End Try
End Sub

End Class</source>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия