Cara Menggunakan Struktur Kontrol Pengulangan Visual Basic 6.0

Cara Menggunakan Struktur Kontrol Pengulangan Visual Basic 6.0

Ketik Visual Basic! - Jika pada kesempatan sebelumnya kita membahas struktur kontrol keputusan maka kali ini kita akan membahas struktur ko... 22.28

Ketik Visual Basic! - Jika pada kesempatan sebelumnya kita membahas struktur kontrol keputusan maka kali ini kita akan membahas struktur kontrol pengulangan atau looping. Dan perlu diingat kembali bahwa struktur kontrol berfungsi mengendalikan jalannya sebuah program.

Di dalam visual basic 6.0 terdapat dua jenis kontrol pengulangan atau looping yaitu'

1. Struktur FOR ... NEXT
2. Struktur DO ... LOOP

1. Struktur Kontrol FOR ... NEXT mempunyai bentuk penulisan atau syntax

FOR (pencacah) = (batas awal) TO (batas akhir) [STEP (langkah)]
               (KodeProgram)
NEXT (pencacah)

• (pencacah) adalah variabel tipe integer yang digunakan untuk menyimpan angka pengulangan
• (batas awal) adalah nilai awal dari sebuah (pencacah)
• (batas akhir) adalah nilai akhir dari sebuah (pencacah) atau looping
• (langkah) adalah perubahan nilai (pencacah) setiap kali perubahan dan sifatnya optional boleh dipakai atau tidak. secara default bernilai 1

2. Struktur kontrol DO ... LOOP mempunyai bentuk penulisan atau syntax

Bentuk pertama
DO WHILE <Kondisi>
      <KodeProgram>
LOOP

Pada bentuk pertama perulangan <KodeProgram> akan dijalankan jika sebuah <Kondisi> bernilai TRUE dan akan berhenti jika <Kondisi> bernilai FALSE


Bentuk kedua:
DO UNTIL <Kondisi>
      <KodeProgram>
LOOP

Pada bentuk kedua perulangan <KodeProgram> akan dijalankan sampai <Kondisi> bernilai TRUE dan akan berhenti jika <Kondisi> bernilai FALSE

Contoh Aplikasi Cara Menggunakan Struktur Kontrol Perulangan Visual Basic 6.0

1. Buatlah sebuah user interface (UI) seperti berikut

2. Aturlah property dan value masing-masing object seperti tabel berikut

Object	Property	Value
Form1	Capttion	Aplikasi Kontrol Perulangan
List1	-	-
Text1	Alignment BackColor BorderStyle Font Font Style Size MultiLine	2-Center &H80000005& 0 - None MS Sans Serif Bold 14 True
Command1	Caption	Piramida
Command2	Caption	A - Z
Command3	Caption	Z - A
Label1	Caption	Silahkan klik tombol "Piramida" untuk membuat piramida, Silahkan klik tombol "A-Z" untuk menampilkan huruf A sampai Z, Silahkan klik tombol "Z-A" untuk menampilkan huruf Z sampai A

3. Buka jendela kode (code editor) seperti gambar berikut

4. Copy dan paste kode program berikut kedalam jendela kode (code editor)

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 9 Step 2
    Text1 = Text1 & String(i, "*") & vbCrLf
Next
End Sub

Private Sub Command2_Click()
    List1.Clear
    i = Asc("A")
    Do Until i > Asc("Z")
        List1.AddItem "Huruf " & Chr(i)
        i = i + 1
    Loop
End Sub

Private Sub Command3_Click()
    List1.Clear
    i = Asc("Z")
    Do While i >= Asc("A")
        List1.AddItem "Huruf " & Chr(i)
        i = i - 1
    Loop
End Sub

Penjelasan Aplikasi Struktur Kontrol Perulangan

1. Jalankan aplikasi yang barusan dibuat dengan cara menekan tombol F5 (Run)

2. Klik tombol "Piramida" untuk menghasilkan gambar piramida
3. Klik tombol "A - Z" untuk menampilkan huruf A sampai Z
4. Klik tombol "Z - A" untuk menampilkan huruf Z sampai A

Penjelasan Kode Pemrograman Aplikasi Kontrol Perulangan Visual Basic 6.0

Blok pertama
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 9 Step 2
       Text1 = Text1 & String(i, "*") & vbCrLf
Next
End Sub

Ketika tombol "Piramida" ditekan maka pertama kali akan dideklarasikan variabel "i" bertipe integer. Nah pada blok ini digunakan struktur perulangan For...Next untuk membuat sebuah piramida. "Step 2" yang menentukan jumlah baris. "vbCrLf" digunakan untuk melakukan pemotongan.

Untuk lebih jelasnya gantilah For i = 1 To 9 Step 2 menjadi For i = 1 To 5 Step 2 dan amati perubahan yang terjadi. Hapuslah "vbCrLf" dan amati perubahan yang terjadi


Blok kedua
Private Sub Command2_Click()
List1.Clear
i = Asc("A")
Do Until i > Asc("Z")
     List1.AddItem "Huruf " & Chr(i)
i = i + 1
Loop
End Sub

Ketika tombol "A - Z" ditekan maka perintah pertama dijalankan adalah menghapus daftar Listbox. Kemudian mendeklarasikan dan memberikan nilai data pada variabel i (i = Asc("A")) kemudian melakukan perulangan penulisan Huruf mulai dari Huruf A sampai dengan Huruf Z.

Hal ini berlaku juga untuk penulisan Huruf Z sampai Huruf A, yang dilakukan dengan melakukan pembalikan saja. Selamat menikmati dan mencoba, dengan langsung praktek akan lebih mudah memahami daripada hanya membaca.