PERULANGAN WHILE 

A. TUJUAN 
Memahami bentuk-bentuk perulangan While.
Memiliki strategi dalam penggunaan perulangan.
Mampu menyelesaikan kasus-kasus yang melibatkan perulangan.
.
B. DASAR TEORI 
Pengulangan Dengan While… Pengulangan dengan While... adalah bentuk pengulangan terkendali dengan proses akan diulang selama kondisi yang diberikan masih dipenuhi. Format penulisan pengulangan ini adalah:

While <Kondisi> 
<Proses selama kondisi dipenuhi> 
End While 

Variabel kontrol pada jenis looping tidak otomatis bertambah/berkurang seperti pada looping dengan
For...Next, sehingga penambahan atau pengurangan nilai dilakukan dengan menggunakan
akumulator yang dituliskan dengan

                                 var = var + step

Meskipun hal ini bukan suatu keharusan. Karena tidak setiap looping membutuhkan akumulator,
variabel yang terus-menerus bertambah atau berkurang.

Contoh 1: 
Menampilkan bilangan bulat ganjil dari satu sampai dengan 11, ini merupakan looping dengan
akumulator yang dapat dituliskan sebagai berikut:

                  bilangan = 1 
        While bilangan <= 11 
            ListBox1.Items.Add(bilangan) 
            bilangan = bilangan + 2 
        End While

Contoh 2: 
Menuliskan nilai kuadrat dari 1 sampai n dimana nilai kuadratnya < 100, serta menuliskan nilai n.

       n = 1 
        While y < 100 
            y = n ^ 2 
            n = n + 1
            ListBox1.Items.Add(y) 
        End While 
            TextBox1.Text = n 

Pengulangan Dengan Do Loop Until 
Pengulangan dengan Do Loop Until adalah bentuk pengulangan terkendali dengan proses akan
diulang sampai kondisi yang diberikan dipenuhi. Format penulisan pengulangan ini adalah:

        Do 
        <Proses selama kondisi belum dipenuhi> 
        Loop Until <Kondisi> 

Contoh 3: 
Menampilkan bilangan bulat ganjil dari satu sampai dengan 11, ini merupakan looping dengan
akumulator yang dapat dituliskan sebagai berikut:

               bilangan = 1 
               Do 
                      ListBox1.Items.Add(bilangan) 
                      bilangan = bilangan + 2 
               Loop Until bilangan > 11 

Contoh 4: 
Menuliskan nilai kuadrat dari 1 sampai n dimana nilai kuadratnya < 100, serta menuliskan nilai n.
        n = 1 
        Do 
            y = n ^ 2 
            n = n + 1 
            ListBox1.Items.Add(y) 
        Loop Until y >= 100 

           TextBox1.Text = n