Struktur Perulangan pada Visual Basic 6

Struktur Perulangan pada Visual Basic 6 

Pada dasarnya struktur beberapa perulangan pada VB 6, yaitu:

A.    Perulangan Do While – Loop
B.    Perulangan Do Until – Loop 
C.    Perulangan While - Wend 
D.    Perulangan For – Next 
E.    Perulangan For Each - Next

A.   Do While – Loop atau Do – Loop While

Perulangan Do While – Loop adalah perulangan yang akan dijalankan jika kondisi bernilai TRUE (memenuhi syarat) dan akan berhenti pada saat kondisi bernilai FALSE (tidak memenuhi syarat).

Struktur kode 1:

Do While {kondisi}

     {pernyataan}

Loop

Struktur kode 2:

Do

     {pernyataan}

Loop While {kondisi}

Cara baca: “Lakukan perulangan {pernyataan} jika {kondisi} bernilai True”

Perbedaan pada struktur kode 1 dan struktur kode 2 hanya pada saat pertama kali perulangan dijalankan.

Pada struktur kode 1, kondisi akan diperiksa terlebih dahulu. Jika kondisi bernilai True maka perulangan dari pernyataan akan diproses.

Sedangkan pada struktur kode 2, pernyataan perulangan akan dijalankan terlebih dahulu kemudian baru melakukan pemeriksaan kondisi. Dengan begitu maka akan menghasilkan perulangan minimal 1 kali.

B.   Do Until – Loop atau Do – Loop Until

Kebalikan dari Perulangan Do While – Loop  adalah Do Until – Loop yaitu perulangan yang akan dijalankan jika kondisi bernilai FALSE (tidak memenuhi syarat) dan akan berhenti pada saat kondisi bernilai TRUE (memenuhi syarat).

Struktur kode 1:

Do Until {kondisi}

     {pernyataan}

Loop

Struktur kode 2:

Do

     {pernyataan}

Loop Until {kondisi}

Cara baca: “Lakukan perulangan {pernyataan} jika {kondisi} bernilai False”  atau “Lakukan perulangan {pernyataan} sampai/hingga {kondisi} bernilai benar sehingga perulangan berhenti”

Perbedaan pada struktur kode 1 dan struktur kode 2 hanya pada saat pertama kali perulangan dijalankan.

Pada struktur kode 1, kondisi akan diperiksa terlebih dahulu. Jika kondisi bernilai False maka perulangan dari pernyataan akan diproses.

Sedangkan pada struktur kode 2, pernyataan perulangan akan dijalankan terlebih dahulu kemudian baru melakukan pemeriksaan kondisi. Dengan begitu maka akan menghasilkan perulangan minimal 1 kali.

C.   Perulangan While - Wend

Jenis perulangan While-Wend hampir sama dengan Do-While – Loop, hanya beda struktur dalam penulisan kode-nya saja.

Struktur kode:

While {kondisi}

{aksi}

Wend

Pada struktur perulangan While-Wend, jika kondisi bernilai True, maka aksi akan dijalankan.

D.   Perulangan For - Next

Perulangan For-Next adalah jenis perulangan dengan jumlah perulangan (looping) sudah ditentukan terlebih dahulu (dengan variabel ber-type integer).  

Struktur kode:

For {penghitung} = {awal} to {akhir}

{pernyataan}

Next {penghitung}

Atau struktur kode dengan pertambahan:

For {penghitung} = {awal} To {akhir} Step {pertambahan}

{pernyataan}

Next {penghitung}

Cara baca: “Lakukan perhitungan {pernyataan} mulai dari nilai {awal} sampai dengan {akhir} dengan pertambahan ke {penghitung} sebesar {pertambahan}”

Penjelasan:

{penghitung} adalah variabel bertipe integer yang nilainya berubah-ubah sesuai jumlah perulangan yang terpenuhi. {awal} adalah nilai awal dari variabel {penghitung} yang akan diproses pertamakali dalam perulangan. {akhir} adalah nilai akhir dari variabel {penghitung} yang akan mengakhiri proses perulangan. {pertambahan} adalah nilai pertambahan yang akan ditambahkan ke variabel {penghitung} untuk proses perulangan selanjutnya (berlaku jika ditambahkan kode Step). Jika tidak memakai pertambahan Step maka secara default nilai pertambahannya adalah 1.

Untuk perulangan bernilai positif ( menaik ) maka nilai {awal} harus lebih kecil atau sama dengan nilai {akhir}. Sedangkan untuk perulangan bernilai negatif (menurun) maka nilai {awal} harus lebih besar atau sama dengan nilai {akhir}.

 

E.   Perulangan For Each- Next

Perulangan ini adalah perulangan untuk operasi kontrol pada suatu object atau container.

Struktur kode :

For Each {element} In {group}

     {pernyataan} 

Next

Contoh: 
Misalnya, pada sebuah Form dengan name Form1 mempunyai 12 Textbox dengan name Text1 – Text12. Form tersebut tersedia sebuah tombol / Command dengan nama Command1 yang berfungsi untuk mengosongkan teks pada semua textbox yang ada pada form tersebut. Penulisan kode untuk tombol Command1 sebagai berikut

Tuliskan kodenya seperti di bawah ini: 

Private Sub Command1_Click()

‘Menggunakan perulangan For Each - Next

For Each txt In Form1.Controls

     If typeOf txt Is TextBox Then

           Txt.Text = ””

     End If 

Next

End Sub

Posted in: Program,Visual Basic