Dasar Multithreading Pada VB.Net

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

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.