Perulangan pada Visual Basic

Posted by : Panji Maulana Putra Saturday, December 2, 2017

Perulangan

Proses perulangan dalam pemrograman dilakukan untuk mengerjakan suatu proses operasi secara bertahap demi tahap dengan nilai variabel yang menaik atau menurun. Dalam Visual BASIC proses perulangan dapat dilakukan dengan beberapa statemen, diantaranya adalah statemen For...Next dan Do...Loop.

1. For...Next

Statemen ini akan mengulangi suatu blok pernyataan sebanyak jumlah yang ditentukan. Statemen ini digunakan jika banyaknya jumlah perulangan sudah diketahui.

Sintaks:

For <Variabel_Pengulang> = NilaiAwal To NilaiAkhir [Step Tingkat] <Pernyataan_1>

...

<Pernyataan_n>

Next <Variabel_Pengulang>

Statemen ini digunakan untuk kondisi yang mempunyai nilai berurutan dan variabel yang mempunyai nilai numerik.

Default untuk Step adalah 1, jadi untuk perulangan dengan urutan menaik 1, nilai step tidak perlu ditulis. Sedangkan untuk perulangan menurun (Nilai awal > Nilai Akhir), nilai step diawali dengan tanda minus(-). Misalnya : For i = 10 To 1 Step -1.

Contoh:

Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut:

For i = 1 To 10

List1.Additem i

Next i

2. Do...Loop

Statemen ini mengulang blok statemen bila kondisi benar atau sampai kondisi menjadi benar. Bila tidak ada perintah keluar, proses perulangan (loop) akan terus berlangsung. Statemen ini digunakan untuk kondisi yang mempunyai nilai tidak pasti dan tidak berurutan.

Statemen ini memiliki dua buah bentuk logika.

a. Statemen Do...Loop...While

Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai benar, dan akan berhenti ketika kondisi sudah bernilai salah.

Sintaks:

Do While <Kondisi>		Do
<Pernyataan_1>		<Pernyataan_1>
...	atau	...
<Pernyataan_n>		<Pernyataan_n>
Loop		Loop While <Kondisi>

Contoh:

Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut:

i = 1

Do While i <= 10

List1.Additem i

i = i + 1

Loop

b. Statemen Do...Loop...Until

Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai salah, dan akan berhenti ketika kondisi mencapai nilai benar.

Sintaks:

Do Until <Kondisi>		Do
<Pernyataan_1>		<Pernyataan_1>
...	atau	...
<Pernyataan_n>		<Pernyataan_n>
Loop		Loop Until <Kondisi>

Contoh:

Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut:

i = 1

List1.Additem i

i = i + 1

Loop Until i > 10

Program V : Program Perulangan Teks

Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 5.1.

Gambar 5.1. Desain Form Program V

Pengaturan Properti :

Komponen	Properti	Nilai

Form1	(Name)	frmulang
	Caption	Program Perulangan Teks

Label1	Caption	Teks

Label2	Caption	Jumlah Pengulangan

Textbox1	(Name)	Txtteks
	Text	(kosongkan)

Textbox2	(Name)	Txtjumlah
	Text	(kosongkan)