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
Contoh Program Multithreading Sederhana VB.Net

  • 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

  • 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.


Contoh Program Multithreading Sederhana VB.Net


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.