Pemrograman Visual: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

Praktikum

Perulangan FOR

• Buat project baru dengan nama Prak8.
• Desain Tampilan form seperti gambar berikut ini:
• Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

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

• Klik ganda pada Form1, kemudian ketikkan kode program berikut ini:

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

• Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
• Simpan aplikasi Anda.

Perulangan WHILE

• Tambahkan Form baru, dengan nama Form3.
• Desain Tampilan form seperti gambar berikut ini:
• Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: