Assalamu’alaikum Wr. Wb.
Alooohaaa…!! Di kategori ini aku akan mencoba men-share-kan hasil belajar yang selama ini aku dapat tentang apapun di bidang komputer (karena kebetulan itu bidangku he..hee.). Dengan tujuan agar tidak lupa dan mungkin dapat berguna juga untuk teman-teman dengan tidak bermaksud untuk menggurui. Insya Allah…
Program iseng yang pertama ini adalah tentang DoEvents di VB .NET. Apaan tuh?? Setauku sih DoEvents adalah suatu prosedur yang berfungsi untuk selalu mengecek apakah ada interupsi dari luar (terjadi event lain) selama proses looping. Jadi kita bisa melakukan proses lain tanpa mengganggu proses looping (konsepnya seperti thread tapi lebih simpel).
Dalam program ini terdapat 2 buah button,yaitu button Start yang digunakan untuk memulai proses looping dan button Stop yang digunakan untuk menghentikan proses looping. Selain button juga terdapat sebuah label yang digunakan untuk menampilkan hasil looping. Lebih jelasnya dapat dilihat pada gambar di bawah ini:
Setelah itu tekan F7 untuk menampilkan halaman source code dan tuliskan coding seperti di bawah ini:
Public Class Form1
Inherits System.Windows.Forms.Form
Dim x As Boolean = False
Dim i As Integer = 0
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
x = True
MsgBox("Data : " & i)
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
btnStop.Focus()
x = False
While x = False
i += 1
lblCounter.Text = i
Application.DoEvents()
End While
End Sub
End Class
Tekan F5 untuk menjalankan Programnya, kemudian tekan button Start untuk memulai proses looping dan coba tekan button Stop. Dijamin deh proses loopingnya pasti langsung berhenti dan muncul pesan pada sebuah messagebox tentang data loopingnya.
Untuk merasakan bedanya coba hilangkan perintah Application.DoEvents() pada prosedur btnStart_Click(..) dan jalankan lagi programnya kemudian tekan button Start dan setelah itu tekan button Stop. Apa yang terjadi?? lebih sulit ditekan kan!! Itulah fungsinya DoEvents.
Kalau teman-teman menggunakan VB6 cukup ketik DoEvents() aja tapi untuk VB .NET harus diketikkan Application.DoEvents() atau lengkapnya System.Windows.Forms.Application.DoEvents()
Okee..selamat mencoba.
Wassalamu’alaikum Wr. Wb.
