While… End While.

While… End While merupakan salah satu perulangan yang dapat digunakan selain For… Next. Logikanya sama saja seperti For… Next, proses perulangan akan terus dilakukan sampai kondisi perulangan mencapai nilai True.

Syntax While… End While.

While kondisi

  Statemen()

End While

Untuk lebih jelasnya langsung saja kita coba praktekan contoh program untuk melakukan proses pengulangan dengan menggunakan While… End While.

Buat sebuah project baru lalu berinama project baru tersebut dengan Praktek6. Tambahkan sebuah Button dan juga sebuah ListBox. Untuk lebih jelasnya silahkan lihat gambar dibawah ini.

Selanjutnya klik kanan pada menu form lalu pilih View Code selanjutnya silahkan masukan perintah seperti berikut ini :

Public Class Form1

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

        Dim i As Integer = 0

        While i <= 5

            ListBox1.Items.Add("Perulangan dengan while ke " & i)

            i = i + 1

        End While

    End Sub

End Class

Sekarang coba jalankan programnya untuk melakukan test pada perulangan dengan While… End While lalu tekan tombol OK, nanti pada daftar di ListBox1 akan ditampilkan teks bertuliskan “Perulangan dengan while ke 1” secara terus menerus dan juga menambahkan nilai perulangannya sebanyak 5 kali sesuai dengan kondisi yang diberikan.

Seperti itulah bagaimana cara melakukan proses perulangan di VB.Net dengan menggunakan While… End While.