Pertemuan 3,19 maretTutorial For Next, Do While, dan Do Until Menggunakan Visual Basic 2010

Tutorial For Next, Do While, dan Do Until Menggunakan Visual Basic 2010

Ass.Wr.Wb, kali ini saya akan membuat sebuah Tutorial Looping menggunakan For Next, Do While, dn Do Until menggunakan Visual Basic 2010.

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

• 1 Buah ListBox
• ListBox1 : (name) : tampil | HorizontalScroll : True | MultiColumn : True
• 3 Buah Button
• Button 1 : (name) : btnForNext | Text : For Next
• Button 2 : (name) : btnDoWhile | Text : Do While
• Button 3 : (name) : btnDoUntil | Text : Do Until

4. Klik 2X pada Button1 (btnForNext), lalu isikan koding seperti berikut :

Private Sub btnForNext_Click(sender As System.Object, e As System.EventArgs) Handles btnForNext.Click
Dim i As Byte
For i = 1 To 100
tampil.Items.Add(i)
Next
End Sub

5. Klik 2X pada Button2 (btnDoWhile), lalu isikan koding seperti berikut :

Private Sub btnDoWhile_Click(sender As System.Object, e As System.EventArgs) Handles btnDoWhile.Click
tampil.Items.Clear()
Dim x As Byte
x = 1
Do While x <= 50
tampil.Items.Add(x)
x = x + 1
Loop
End Sub

6. Klik 2X pada Button2 (btnDoUntil), lalu isikan koding seperti berikut :

Private Sub btnDoUntil_Click(sender As System.Object, e As System.EventArgs) Handles btnDoUntil.Click
tampil.Items.Clear()
Dim a As Byte
a = 1
Do Until a >= 20
tampil.Items.Add(a)
a = a + 1
Loop
End Sub

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.