PERULANGAN PADA PEMROGRAMAN VISUAL

 5.1 Perulangan

Perintah perulangan adalah merupakan control perulangan yang berfungsi untuk melakukan perulangan (iterasi) dari suatu blok program secara berulang-ulang.

For … Next

For … Next merupakan suatu control perulangan yang mempunayi nilai tetap, jumlah perulangan telah diketahui sebelumnya.

Format penulisannya adalah sebagai berikut :

For Counter=niali_awal to nilai_akhir         [ Perintah ]  Next (Counter)

 

For Each … In … Next

Merupakan suatu control yang digunakan untuk perulangan yang jumlah pengulangannya sesuai dengan jumlah elemen dari suatu koleksi objek dan biasanya tidak diketahui dengan pasti berapa jumlahnya. Koleksi merupakan kumpulan data atau objek yang didefinisikan dengan kode program.

Format Penulisannya :

For Each elemen In Group     [ Perintah ]     [ Perintah ] Next [elemen]

 

While …

While merupakan suatu control perulangan yang berfungsi untuk melakukan perulangan yang memiliki satu syarat tertentu. Dan akan terus dijalankan selama syarat tersebut terpenuhi dan begitupun sebaliknya jika syarat tidak terpenuhi maka pernyataan tidak akan dijalankan. Format Penulisannya :

While (kondisi)      [perintah1]      [perintah2]       … End While

 

DO While … LOOP

Merupakan suatu control perulangan yang melakukan perulangan terlebih dahulu dan bentuk pengujian dilakukan belakangan atau sebaliknya.

Format penulisannya :

DO While (kondisi) [perintah1]  [Exit Do]  [perintah2] LOOP

 

Bentuk 2

DO [perintah1] [Exit Do] [perintah2] LOOP While (kondisi)

 

DO UNTIL

Jika Do While melakukan perulangan selama kondisi memenuhi until akan melakukan perulangan hingga kondisi memenuhi. Selama kondisi tidak memenuhi, loop akan dijalankan terus.

Format penulisannya :

DO             [perintah1] LOOP UNTIL

 

 

5.1.1        Perulangan FOR

a.       Design :

Object	Properties	Nilai
Form1	Name Text	Form1 Perulangan FOR
Label1	Text	Tgl/Bln/Thn
ComboBox1	Name	CmbTgl
ComboBox2	Name	CmbBln
ComboBox3	Name	CmbThn

 

b.      Code Program

Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim tgl, bln, thn As Integer         For tgl = 1 To 31             CmbTgl.Items.Add(tgl)         Next tgl         For bln = 1 To 12             CmbBln.Items.Add(bln)         Next bln         For thn = 1900 To 9999             CmbThn.Items.Add(thn)         Next thn     End Sub End Class

 

c.       Hasil Running :

5.1.1        Perulangan While

a.       Design :

Object	Properties	Nilai
Form1	Name Text	Form1 Perulangan WHILE
Label1	Text	Batas
Label2	Text	Tampilkan
TextBox1	Name	TxtBatas
ListBox1	Name	ListBox1
Button1	Name Text	Button1 Proses

 

b.       Code Program

Public Class Form2     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim angka As Integer         ListBox1.Items.Clear()         angka = 1         While angka <= Val(TxtBatas.Text)             ListBox1.Items.Add(angka)             angka = angka + 1         End While     End Sub End Class

 

c.      Hasil Program