Multithreading berfungsi untuk menjalankan proses lebih dari satu, contohnya pada komputer kita, bisa dilihat pada task manager banyaknya proses yang terjadi sewaktu komputer kita dihidupkan atau dijalankan. Disini kami akan mencoba menjelaskan dan membagikan kode dasar multithreading pada VB.Net.
- Pertama-tama buatlah sebuah project pada VB.Net, kami disini menggunakan VB.Net 2008.
- Kemudian tambahkan 2 button dan 2 label atau form seperti ini
- Lalu klik pada bagian mana saja pada form untuk membuka bagian kode dari form.
- Hapus semua kode pada form dan salin atau copy paste kode dibawah ini.
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = 0 'Mengatur nilai label1 0
Dim thread1 As New Threading.Thread(AddressOf proses1) 'deklarasikan thread1 sebagai thread yang mengolah proses1
thread1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = 0 'Mengatur nilai label2 0
Dim thread2 As New Threading.Thread(AddressOf proses2) 'deklarasikan thread2 sebagai thread yang mengolah proses2
thread2.Start()
End Sub
Sub proses1()
For i As Integer = 0 To 1000000 'melakukan pengulangan dari 0 hingga 1juta
Label1.Text += 1 'setiap pengulangan nilai label1 akan bertambah 1
Next
End Sub
Sub proses2()
For i As Integer = 0 To 1000000 'melakukan pengulangan dari 0 hingga 1juta
Label2.Text += 1 'setiap pengulangan nilai label2 akan bertambah 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckForIllegalCrossThreadCalls = False
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = 0 'Mengatur nilai label1 0
Dim thread1 As New Threading.Thread(AddressOf proses1) 'deklarasikan thread1 sebagai thread yang mengolah proses1
thread1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = 0 'Mengatur nilai label2 0
Dim thread2 As New Threading.Thread(AddressOf proses2) 'deklarasikan thread2 sebagai thread yang mengolah proses2
thread2.Start()
End Sub
Sub proses1()
For i As Integer = 0 To 1000000 'melakukan pengulangan dari 0 hingga 1juta
Label1.Text += 1 'setiap pengulangan nilai label1 akan bertambah 1
Next
End Sub
Sub proses2()
For i As Integer = 0 To 1000000 'melakukan pengulangan dari 0 hingga 1juta
Label2.Text += 1 'setiap pengulangan nilai label2 akan bertambah 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckForIllegalCrossThreadCalls = False
End Sub
End Class
Jalankan program tersebut, maka tampilannya akan seperti dibawah ini. Coba klik kedua tombol tersebut, apabila sudah berjalan keduanya maka berhasil.
Baiklah sekian sedikit yang dapat kami sampaikan, semoga bermanfaat.
Mantab
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapus