Langsung ke konten utama

Materi Mengenai Perulangan (For .. Next, Nested For .. Next, dan While .. End While)

Struktur FOR .... NEXT


    Struktur for ... next digunakan untuk mengulang perintah dalam jumlah yang sudah ditentukan. Pada struktur for ... next kita tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan.
Bentuk Struktur for ... next :
            For counter = awal to akhir step pertambahan
                        …ekspresi…
            next counter
Keterangan :
Ø  Counter: variabel integer yang digunakan untuk melakukan proses pengulangan
Ø  Awal: nilai awal suatu variabel untuk menentukan awal pengulangan
Ø  Akhir: nilai suatu variabel untuk menentukan akhir dari pengulangan
Ø  Pertambahan: besarnya perubahan nilai dari nilai awal sampai nilai akhir.
Jika pengulangannya menurun  yaitu dari besar menuju terkecil, maka perubahannya harus bernilai negatif. Nilai standar perubahan vb 6.0 adalah 1.(bisa diubah sesuai keinginan)
Ø Ekspresi: blok perintah yang akan dikerjakan jika kondisi dari pengulangan memenuhi syarat.
Contoh: 
Dim x As Integer
For x = 1 To 10
    Listbox1.Items.Add(x)
Next x

Struktur Nested For ... Next


        Terkadang di dalam perulangan struktur for-next diletakan pula struktur for-next lainnya. Bentuk semacam ini dinamakan nested for. Pada proses semacam ini setiap satu proses pengulangan di struktur for-next bagian luar akan mengerjakan proses pengulangan di struktur for-next bagian dalam sekian kali, sesuai dengan seberapa banyak pengulangan tersebut dilakukan.
Bentuk penulisan dari nested...for seperti berikut:
for counter_1 = awal_1 to akhir_1 step pertambahan
                 for counter_2 = awal_2 to akhir_2 step pertambahan
…ekspresi…
     next counter
next counter
Contoh :
     Dim x, y As Integer
     For x = 1 To 3
     For y = 1 To 2
          ListBox1.Items.Add(x & y)
        Next y
     Next x

Struktur 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.
Berikut Contohnya :
    Dim x as Integer
    x = 1
    While x < = 10\
        ListBox1.Items.Add(x)
        x = x + 1
    End While

Keterangan:     • Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.

     • Jika kondisi While bernilai benar maka ekspresi akan dijalankan sampai dengan perintah End While, maka akan dikembalikan lagi ke kondisi While untuk diuji kembali kondisi yang sama.
     • Jika kondisinya masih benar maka prosesnya akan diulang, sedangkan jika kondisinya salah maka program akan dilanjutkan dengan menjalankan perintah dibawah End While. 


Komentar

Posting 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  ...
Posting Komentar
Baca selengkapnya

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 ...
Posting Komentar
Baca selengkapnya

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        ...
Posting Komentar
Baca selengkapnya