Logika Perulangan Pada VB

Pernyataan Do…Loop

Visual Basic mendukung beberapa versi statement Do….Looping (perulangan) dengan menggunakan While mungkin yang paling populer digunakan dalam pemrograman Visual Basic. Seperti Statement If…Then, do While juga membutuhkan ekpresi perbandingan untuk keluar dari looping

Syntax Umum

Ada beberapa syntak penggunaan untuk pernyataan Do..Loop

a)      Do While <kondisi>
<VB statement>

         Loop

b)      Do
<VB statement>

         Loop While <kondisi>

Keterangan : VB Statement akan diulang  selama <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai FALSE.

c)      Do Until kondisi

               VB statement

         Loop

d)      Do
VB statement

            Loop Until kondisi

Keterangan : VB Statement akan diulang  sampai <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai FALSE.

Contoh Program : Menampilkan angka 0 sampai 10 di ListBox dengan perintah Do…While dan Do…Until.

Pertama : Silahkan atur Form beserta kontrol yang dibutuhkan seperti pada gambar

Kedua : Ketik kode programnya seperti berikut ini :

Private Sub cmdUntil_Click()

listHasil.Clear

i = 0

Do Until i > 10

 listHasil.AddItem “Angka Ke- ” & i

 i = i + 1

Loop

End Sub

Private Sub cmdWhile_Click()

listHasil.Clear

i = 0

Do While i =< 10

 listHasil.AddItem “Angka Ke- ” & i

 i = i + 1

Loop

End Sub

Penjelasan program :

  • Kode program tersebut akan menampilkan hasil yang sama.
  • Perhatikan pada cmdUntil_Click(). Program akan dijalankan sampai i>10
  • Perhatikan pada cmdWhile_Click(). Program akan dijalankan selama i=<10
  • Kedua statement tersebut memiliki arti yang sama

Ketiga : Cobalah ganti syntaks statement Do Until dan Do While di atas, dengan kode program berikut ini, lihat hasilnya

Private Sub cmdUntil_Click()

lstHasil.Clear

i = 0

Do

    lstHasil.AddItem “Angka Ke- ” & i

    i = i + 1

Loop Until i > 10

End Sub

Private Sub cmdWhile_Click()

lstHasil.Clear

i = 0

Do

    lstHasil.AddItem “Angka Ke- ” & i

    i = i + 1

Loop While i =< 10

End Sub

 

Pernyataan While…Wend

Pengulangan While…Wend akan mengeksekusi sekumpulan statement perintah selama suatu kondisi itu benar. Looping atau perulangan yang menggunakan While..Wend ini mempunyai syntak sebagai berikut :

Syntax Umum :
Ada beberapa syntak penggunaan untuk pernyataan While…Wend

While <kondisi>

VB Statement

Wend

Keterangan : Jika kondisi benar, maka semua statement akan dieksekusi dan ketika mencapai baris Wend, control akan kembali lagi ke statement While untuk mengevaluasi kembali nilai dari kondisi, jika nilai dari kondisi masih memenuhi syarat atau benar maka proses loop/perulangan akan terjadi lagi. Jika nilai kondisinya Salah, maka program akan keluar dari loop dan mengeksekusi perintah-perintah yang ada setelah Wend.

Contoh Program : Statement While berikut akan mengevaluasi nilai numerik yang dimasukkan user lewat keyboard, dan kondisi yang dievaluasi adalah selama nilainya lebih besar atau sama dengan nol, jika nilainya negatif maka program akan berhenti.

Number = 0

While Number >= 0

Number = InputBox(“Silakan masukkan nilai yang lain ?”)

Wend

Contoh  di atas bisa dimodifikasi. Letakkan sebuah command button dan sebuah textbox pada form kemudian, ketikkan listing program berikut dalam tombol command button tersebut. (atur posisinya dengan benar).

Private Sub Command1_click()

Number = 0

While number >= 0

Total = Total + Number

   Number = InputBox(“Silakan masukkan nilai yang lain ?”)

Wend

Text1.Text = Total

End Sub

 

Pernyataan For….Next

Perulangan dengan For … Next merupakan salah satu struktur perulangan yang sering terdapat pada banyak bahasa pemograman, perulangan For … Next menggunakan suatu variabel yang disebut counter untuk melakukan penambahan secara otomatis, sesuai dengan nilai awal dari variabel tersebut. Perulangan dengan For digunakan untuk mengulang statement atau satu blok statement berulang kali, sejumlah yang ditentukan.

Syntax Umum :

FOR <pencacah> = <awal> TO <akhir> [STEP <langkah>]

<blok kode program>

NEXT <pencacah>

Keterangan Syntax :

  • <pencacah> adalah variabel (tipe: integer) yang digunakan untuk menyimpan angka pengulangan.
  • <awal> adalah nilai awal dari <pencacah>.
  • <akhir> adalah nilai akhir dari <pencacah>.
  • <langkah> adalah perubahan nilai <pencacah> setiap pengulangan. Sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai <langkah> adalah 1.

Contoh Program : Program menampilkan angka dari 0 sampai 10 dan sebaliknya (10 sampai 0)

Atur Form dan Kontrol yang dibutuhkan seperti gambar berikut,  Ganti Caption pada Command, masing-masing menjadi ”For Next1” dan For Next2”.

Ketikkan kode program berikut ini :

Private Sub cmdFor1_click()

‘Menampilkan angka 0 sampai 10 di ListBox

lstHasil.Clear,For i = 0 To 10

lstHasil.AddItem “Angka ” & i

Next i

End Sub

Private Sub cmdFor2_click()

‘Menampilkan Angka 10 sampai 0 di ListBox

lstHasil.Clear

For i = 0 To 10 STEP -1

lstHasil.AddItem “Angka ” & i

Next i

End Sub

Jika Anda menginginkan angka dengan kelipatan 2 dst, maka tambahkanlah perintah STEP, contoh : For i = 0 To 10 STEP 3, akan menampilkan angka dari 0 sampai 10 dengan kelipatan 3. Hasilnya : 0, 3, 6, 9

Berikutnya merupakan contoh program menampilkan angka genap pada ListBox. Bilangan genap adalah bilangan yang habis dibagi 2. Memungkinkan user untuk menginputkan batas awal dan akhir. Atur form dengan meletakkan ListBox, 2 TextBox , dan Command untuk proses. Buat properti Column = 3 untuk ListBox

Ketikkan kode program seperti berikut

Private Sub cmdProses_Click()

Dim i, Awal, Akhir As Single

lstHasil.Clear

Awal = txtAwal.Text

Akhir = txtAkhir.Text

For i = Awal To Akhir

    If i Mod 2 = 0 Then

        lstHasil.AddItem i

    End If

Next i

End Sub

Bagaimana jika Anda diminta untuk menampilkan bilangan ganjil? Silakan Anda coba sendiri.

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.