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:

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

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

        Dim angka As Integer
    ListBox1.Items.Clear()
    angka = 1
    While angka <= Val(TxtBatas.Text)
        ListBox1.Items.Add(angka)
        angka = angka + 1
    End While

• 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 DO WHILE…LOOP

• Tambahkan Form baru, dengan nama Form4.
• 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 DO WHILE … LOOP
Label1	Text	Angka
TextBox1	Name	TxtAngka
Button1	Name	Button1
	Text	Proses

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

        Dim X%
        X = TxtAngka.Text
        Do
            X = X Mod 2
            If X = 0 Then
                MsgBox("Bilangan Genap")
                Exit Do
            ElseIf X = 1 Then
                MsgBox("Bilangan Ganjil")
                Exit Do
            End If
        Loop While Not X

• 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 FOR EACH … IN…NEXT

• Tambahkan Form baru, dengan nama Form5.
• Desain Tampilan form seperti gambar berikut ini:

• Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form5	Name	Form5
	Text	Perulangan FOR EACH … IN…NEXT
Button1	Name	Button1
	Text	Button1
Button2	Name	Button2
	Text	Button2
Button3	Name	Proses
	Text	Button3

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

For Each ctrl In Controls
    ctrl.Text = "Tombol"
Next

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