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

Percabangan (Struktur If-Then sd Nested IF)

- PERCABANGAN (If – Then) merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok If akan dilompati serta program akan melakukan tindakan berikutnya. Berikut Strukturnya : If (kondisi) Then … Ekspresi … End If • Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. • Ekspresi : Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya memenuhi syarat “Benar”. - PERCABANGAN (If – Then – Else) merupakan struktur percabangan di mana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lainnya yang dikerjakan. Berikut Strukturnya : If (kondisi) Then … Ekspresi 1 … Else … Ekspresi 2 … ...

Latihan dan Kasus Array Multidimensi pada VB.NET

Latihan 1 Array Multidimensi Berikut Source Codenya : Public Class latihan4     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim arr(4) As String         arr(0) = TextBox1.Text         arr(1) = TextBox2.Text         arr(2) = ComboBox1.Text         arr(3) = ComboBox2.Text         Dim list As New ListViewItem         list = ListView1.Items.Add(arr(0))         list.SubItems.Add(arr(1))         list.SubItems.Add(arr(2))         list.SubItems.Add(arr(3))         TextBox1.Text = TextBox1.Text + 1         TextBox2.Text = ""         ComboBox1.Text = ""         C...

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 ...