Contoh Program Multithreading Sederhana VB.Net
Multithreading berguna untuk menjalankan proses lebih dari satu, contohnya komputer yang kita gunakan bukankan dapat kita saksikan begitu banyak proses yang dijalankannya, membuka webbrowser, musik, video, game dalam satu waktu. Nah disini kami akan mencoba memberikan contoh program VB.Net yang menggunakan multithreading, yang mungkin saja bisa digunakan sebagai referensi dari sobat programmer sekalian.
- Pertama buatlah project baru VB.Net, disini kami menggunakan VB.Net 2008.
- Kemudian tambahkan 3 button(Tombol) dan 3 label contoh tampilan formnya seperti ini
- Lalu klik dua kali dibagian mana saja pada form, sehingga terbuka halaman script/kode.
- Kemudian kopi script dibawah ini dan ganti semua script yang ada pada form sebelumnya.
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
- Sekarang coba run/jalankan program tersebut, dan coba klik ketiga tombol pada aplikasi yang kita buat tadi, jika ketiganya melakukan pengulangan maka percobaan kita berhasil.
Sekian yang dapat kami sampaikan pada artikel ini, semoga dapat bermanfaat. Terima kasih telah berkunjung.
Rewrite dan dikembangkan dari : Dasar Multithreading Pada VB.Net
Terimakasih telah berkunjung dan membaca artikel di Blog ini. Tinggalkan kritik, saran, dan pertanyaan pada kolom komentar.