My.Camp.Life: Tutorial Tentang Program Perulangan (While .... End While) Dengan VB

Apa itu struktur perulangan dalam Visual Basic ?
Struktur perulangan dalam Visual Basic adalah salah satu statement penting di dalam pemograman. Struktur ini digunakan untuk mengulang satu atau beberapa statement selama kondisinya masih terpenuhi.

Struktur Perulangan terdiri dari :
- For .... Next
- For .... Each .... Next
- While .... End While
- Do .... Loop Until

Dan, sekarang saya akan mengajari kalian tentang cara membuat program dalam bentuk struktur perulangan While .... End While.

- Penjelasan tentang struktur While
   Struktur While digunakan untuk menjalankan perintah-perintah di dalam blok program selama kondisi masih terpenuhi. Aturan penulisan struktur perulangan adalah :

   While <kondisi>
   Statement
   End While

Untuk lebih mudah di pahami, saya akan mengajari kalian untuk membuat program yang simple.

pertama, buka Visual Basic Studio 2005 atau versi yang kalian memiliki. Setelah itu, create new project dan ganti nama Windows Application1 dengan FPerulangan atau yang kalian mau.

Window Application1 diganti menjadi FPerulangan

Lalu, klik OK

Setelah itu, buat program dengan memasukkan Tiga Button,Tiga Label,Dua ListBox dan Tiga TextBox, seperti gambar di bawah ini :

Contoh Program

Setelah itu ganti nama Form1 menjadi ' Perulangan While .... End While ' dan ganti yang lain sebagai berikut ini :

* Label1 = Awal

* Label2 = Langkah

* Label3 = Akhir

* Button1 = Mulai

* Button2 = Proses

* Button3 = Selesai

Seperti gambar di bawah ini :

Contoh Program setelah digantikan nama

Lalu, tambahkan kode untuk masing-masing button :

- Pada Button1 = Mulai, klik ganda dan ketikkan code program pada blok program :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Clear()

ListBox2.Items.Clear()

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox1.Focus()

End Sub

End Class

- Selanjutnya pada Button2 = Proses ketikkan code program berikut ini :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   Dim X As Byte
   X = TextBox1.Text

   While X <= TextBox3.Text
   ListBox1.Items.Add(X)
   X = X + TextBox2.Text
   End While

   X = TextBox3.Text

   While X >= TextBox1.Text
   ListBox2.Items.Add(X)
   X = X - TextBox2.Text
   End While

   End Sub

Pada code program ini, kita harus ingat untuk menambahkan Variable.

Dan terakhir, tambahkan code program pada Button3 = Selesai sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If MessageBox.Show(" Apakah ingin keluar ?", "Information") = Windows.Forms.DialogResult.No Then

Exit Sub

Else

End

End If

End Sub

Contoh Gambar Code Program :

* Gambarnya boleh di klik besar untuk melihat codingnya *

Sesudah semua coding dimasukkan ke masing-masing Button, sekarang kita boleh mencoba untuk memainkan program tersebut dengan klik Debug - Start Debugging.