PERULANGAN

POKOK BAHASAN:

   1.       For…Next

   2.       Do…Loop

4.1 For…Next

Statemen ini akan mengulangi suatu blok pernyataan sebanyak jumlah yang ditentukan. Statemen ini digunakan jika banyaknya jumlah perulangan sudah diketahui.

Sintaks:

For <Variabel_Pengulang> = NilaiAwal To NilaiAkhir [Step Tingkat] <Pernyataan_1>  ...  <Pernyataan_n>  Next <Variabel_Pengulang>

Statemen ini digunakan untuk kondisi yang mempunyai nilai berurutan dan variable yang mempunyai nilai numerik.

 Default untuk Step adalah 1, jadi untuk perulangan dengan urutan menaik 1, nilai step tidak perlu ditulis. Sedangkan untuk perulangan menurun (Nilai awal > Nilai Akhir), nilai step diawali dengan tanda minus(-).

 Misalnya : For i = 10 To 1 Step -1.

Contoh:

Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan

dengan memberi listing program sebagai berikut:

For i = 1 To 10 List1.Additem  i Next i

1.2     Do…Loop

Statemen ini mengulang blok statemen bila kondisi benar atau sampai kondisi menjadi benar. Bila tidak ada perintah keluar, proses perulangan (loop) akan terus berlangsung. Statemen ini digunakan untuk kondisi yang mempunyai nilai tidak pasti dan tidak berurutan.Statemen ini memiliki dua buah bentuk logika.

1.       Statemen Do...Loop...While

Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai benar, dan akan berhenti ketika kondisi sudah bernilai salah.

Sintaks:

Do While <Kondisi> Do <Pernyataan_1> <Pernyataan_1>  ...  atau  ...  <Pernyataan_n> <Pernyataan_n>  Loop Loop While <Kondisi>

2.       Statemen Do...Loop...Until

Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai salah, dan akan berhenti ketika kondisi mencapai nilai benar.

Sintaks:

Do Until <Kondisi> Do <Pernyataan_1> <Pernyataan_1> ... atau ... <Pernyataan_n> <Pernyataan_n> Loop

1.3          Latihan Soal

1.       Listing Source

Public Class Form1     Private Sub bkeluar_Click(sender As Object, e As EventArgs) Handles bkeluar.Click         End     End Sub     Private Sub bproses_Click(sender As Object, e As EventArgs) Handles bproses.Click         Dim teks As String         Dim jumlah As Integer         teks = txttulis.Text         jumlah = txtjumlah.Text         For i = 1 To jumlah             ListBox1.Items.Add(teks)         Next i     End Sub     Private Sub bclear_Click(sender As Object, e As EventArgs) Handles bclear.Click         txttulis.Text = ""         txtjumlah.Text = ""         ListBox1.Items.Clear()     End Sub End Class

2.       Output

1.       Listing Source

Public Class Form1     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         ListBox1.Items.Clear()         For i = 1 To 10             ListBox1.Items.Add("for Next : " & i)         Next     End Sub     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         ListBox1.Items.Clear()         Dim i As Integer = 0         Do While i <= 10             ListBox1.Items.Add("Do While : " & i)             i = i + 1         Loop     End Sub     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click         ListBox1.Items.Clear()         Dim i As Integer = 0         Do Until i > 10             ListBox1.Items.Add("Do Until : " & i)         Loop     End Sub End Class

2.       Output