Langsung ke konten utama

Materi mengenai Perulangan (While ... loop, Do ... Loop While, Do Until ... Loop, Do ... Loop Until)

Do While ... loop


            Pengulangan Do While ... Loop merupakan loop yang sangat mirip dengan While ... End While. Yang membedakan Do While ... Loop dengan While ... End While adalah perintah Exit Do. Perintah tersebut adalah perintah untuk memaksa program menghentikan pengulangan sebelum pengulangan berakhir pada bentuk pengulangan Do While ... Loop. Perintah ini digunakan pada kondisi tertentu saja. Jika menggunakan perintah ini harus ada kondisi yang mendahuluinya.

Bentuk Strukturnya adalah :
      Do While (kondisi)
             … ekspresi …
      Loop

Keterangan :
* Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi. 
* Jika kondisinya terpenuhi maka blok program di ekspresi akan dijalankan, sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program di bawah Loop.
Contoh :
     Dim i As Integer = 0
     Do While i < 10
        i = i + 1
        ComboBox1.Items.Add(i)
        If i = 5 Then
        Exit Do
      End If
     Loop

Do ... Loop While

           Bentuk pengulangan Do ... Loop While berhenti jika kondisi telah bernilai salah (false). Selama kondisi masih bernilai benar (true), pengulangan akan dilakukan terus. Bentuk pengulangan Do ... Loop While merupakan bentuk pengulangan yang kondisinya terletak di akhir pengulangan.
Bentuk Strukturnya adalah :
     Do 
          … ekspresi …
     Loop While (kondisi) 
Keterangan: 
* Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menjalankan blok program ekspresi.
* Kemudian akan memeriksa kondisi pada Loop While, jika kondisi bernilai benar maka ekspresi akan dijalankan kembali (berulang).
* Jika kondisinya salah maka prosesnya akan berhenti dan program akan dilanjutkan dengan menjalankan perintah dibawah Loop While.
Contoh :
    Dim i As Integer = 0
    Do
       i = i + 1
       ComboBox1.Items.Add(i)
    Loop While i < 10

Do Until ... Loop

           Bentuk pengulangan Do Until ... Loop hampir sama dengan pengulangan While ... End While dan Do While ... Loop. Perbedaannya adalah kalau pada pengulangan bentuk While ... End While dan Do While ... Loop pengulangan dihentikan pada waktu kondisi bernilai salah (false), sedangkan pada bentuk Do Until ... Loop pengulangan dihentikan pada waktu kondisi bernilai benar (true).
Bentuk Strukturnya adalah :
     Do Until (kondisi)
           … ekspresi … 
     Loop
Keterangan : 
* Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.
* Jika kondisinya terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program di bawah Loop, sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan dikerjakan.
Contoh :
    Dim i As Integer = 0
    Do Until i >= 10
       i = i + 1
       ComboBox1.Items.Add(i)
    Loop

Do ... Loop Until

           Bentuk pengulangan Do ... Loop Until sama dengan bentuk Do ... Loop While. Pengulangan berhenti jika kondisi telah bernilai benar (true). Jadi selama kondisi masih bernilai salah (false), pengulangan akan dilakukan terus. Bentuk pengulangan Do ... Loop While merupakan pengulangan yang memeriksa kondisinya terletak di akhir pengulangan sehingga pengulangan minimal dilakukan 1 kali (mirip dengan Do ... Loop While).
Bentuk Strukturnya adalah :
    Do
        ... ekspresi …
    Loop Until (kondisi)
Keterangan : 
* Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menjalankan blok program ekspresi.
* Kemudian akan memeriksa kondisi pada Loop Until, jika kondisi bernilai salah maka ekspresi akan dijalankan kembali (berulang).
* Jika kondisinya benar maka prosesnya akan berhenti dan program akan dilanjutkan dengan menjalankan perintah dibawah Loop Until.
Contoh :
    Dim i As Integer = 0
    Do
       i = i + 1
       ComboBox1.Items.Add(i)
    Loop Until i >= 10

Komentar

Postingan populer dari blog ini

Latihan menggunakan If-then-Else dan Nested-If

Latihan 1 menggunakan (IF – THEN –ELSE) Berikut Source Codenya : Public Class latihan1    'nadiahtami 2017230007     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim keterangan As String         If TextBox1.Text >= 80 Then             keterangan = "Selamat Anda Lulus"         Else             keterangan = "Mohon Maaf Anda Belum Lulus"         End If         TextBox2.Text = keterangan     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String         pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")         If pesan = vbYes Then  ...

Latihan Menggunakan Procedure dan Function pada VB.Net

Latihan 1 Menggunakan Procedure Berikut Source Codenya : Public Class proc1     'nadiahtami 2017230007     Private Sub gantitext(ByVal teksbaru As String)         TextBox1.Text = teksbaru     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         'btn pilih         gantitext("unsada")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         'btn keluar         Dim pesan As String         pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")         If pesan = vbYes Then             End         End If     End Sub End Class Latihan 2 ...

Contoh Latihan dan Kasus Menggunakan Array Satu Dimensi pada VB.NET

Latihan 1 menggunakan Satu Dimensi Berikut Source Codenya : Public Class latihan1     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim makanan(3) As String         makanan(0) = "Nasi Goreng"         makanan(1) = "Ayam Goreng"         makanan(2) = "Nasi Rames"         makanan(3) = "Gado-Gado"         For Each element As String In makanan             ComboBox1.Items.Add(element)         Next         ComboBox1.Text = "Menu Makanan"     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String        ...