Perulangan
atau looping digunakan untuk menjalankan satu atau beberapa pernyataan hanya
dengan menuliskan pernyataan tersebut satu kali saja. Dengan menggunakan
looping, sebuah program bisa menjalankan statement secara berulang dan akan
berjalan terus menerus sampai suatu kondisi yang telah ditentukan terpenuhi. Kenapa
harus pake looping...? Contoh sederhananya, misalkan kita akan menjumlahkan deret
angka dari 1 sampai 10, ini masih gampang lo yah, Heee... karena kita masih
sanggup ngetik iya kan? Kita hanya tinggal membuat coding seperti ini :
Dim
jumlah as integer
jumlah
= 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10
Msgbox(jumlah)
Masih
mudah kan, namun jika kita akan menjumlahkan deret angka dari 1 sampai 999.999
gimana? Apa kita akan menuliskan 1+2+3+...999.999 seperti contoh diatas? Pasti
keriting jari kita ngetik :-D karena itu, perulangan merupakan bagian yang
penting dalam pemrograman karena dengan adanya pengulangan, pembuat program
tidak perlu menulis code program sebanyak pengulangan yang diinginkan.
Ada
beberapa pernyataan yang dapat digunakan dalam struktur perulangan diantaranya adalah
pernyataan For-Next, Do While-Loop, dan Do Until-Loop. Langsung
aja, kita liat contoh program sederhananya yaitu menampilkan deret angka
menggunakan pernyataan For-Next, Do While-Loop, dan Do Until-Loop
1.Buat
project baru
2.Desain
form dengan meletakkan 2 label, 5 textbox, 2 groupbox dan 4 button. Kemudian tambahkan
kontrol ke form dan atur propertiesnya seperti tabel berikut :
Object
|
Properties
|
Nilai
|
Form1
|
Name
Text
|
Form1
Form Looping
|
Label1
|
Text
|
Nilai Awal
|
Label2
|
Text
|
Nilai Akhir
|
Button1
|
Name
Text
Backcolor
|
Button1
For Next
System >
AppWorkspace
|
Button2
|
Name
Text
Backcolor
|
Button2
Close
System >
AppWorkspace
|
Button3
|
Name
Text
Backcolor
|
Button3
Do While
System >
AppWorkspace
|
Button4
|
Name
Text
Backcolor
|
Button4
Do Until
System >
AppWorkspace
|
Textbox1
|
Name
|
Textbox1
|
Textbox2
|
Name
|
Textbox2
|
Textbox3
|
Name
Textbox Tasks
ScrollBars
|
Textbox3
Multiline
Vertical
|
Textbox4
|
Name
|
Textbox4
|
Textbox5
|
Name
|
Textbox5
|
Groupbox1
|
Text
|
Input
|
Groupbox2
|
Text
|
Output
|
3 . Klik
ganda pada button “For Next”, kemudian ketikan code program berikut ini :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim a As Integer
Dim b As Integer
Dim
hasil As String
Dim i As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
hasil = ""
If (a
< b) Then
For
i = a To b
hasil = hasil + i.ToString +
vbCrLf
Next
TextBox3.Text = hasil
Else
If
(a > b) Then
For
i = a To b Step
-1
hasil = hasil + i.ToString
+ vbCrLf
Next
TextBox3.Text = hasil
End
If
End If
End Sub
4. Klik
ganda button “CLOSE”, kemudian ketikan code berikut :
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Close()
End Sub
End Class
5. Klik ganda
button “Do While”, kemudian ketikan code berikut :
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Dim a As Integer
Dim b As Integer
Dim
hasil As String
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
hasil = ""
If (a
<= b) Then
Do While a <= b
hasil = hasil + a.ToString +
vbCrLf
a = a + 1
Loop
TextBox4.Text = hasil
Else
If
(a >= b) Then
Do
While a >= b
hasil = hasil + a.ToString
+ vbCrLf
a = a - 1
Loop
TextBox4.Text = hasil
End
If
End If
End Sub
6. Klik
ganda button “Do Until”, kemudian ketikan code berikut :
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Dim a As Integer
Dim b As Integer
Dim
hasil As String
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
hasil = ""
If (a
<= b) Then
Do Until a > b
hasil = hasil + a.ToString +
vbCrLf
a = a + 1
Loop
TextBox5.Text = hasil
Else
If
(a >= b) Then
Do
Until a < b
hasil = hasil + a.ToString
+ vbCrLf
a = a - 1
Loop
TextBox5.Text = hasil
End
If
End If
End Sub
7.Jalankan
program dengan menekan F5 (di keyboard), atau melalui icon start debuging di
toolbar, atau melalui menu Debug > Start Debuging.
8.Simpan
project anda. Hasilnya
dapat dilihat dibawah ini !
Inti
dari program diatas adalah program ingin menampilakan deret angka dari nilai
yang ada pada textbox1 sampai nilai yang ada pada textbox2. Jika kondisi nilai angka pada textbox1 lebih kecil dari
nilai angka pada textbox2, maka proses akan mengurutkan deret angka dari yang
nilainya terkecil (nilai pada textbox1) sampai terbesar (nilai pada textbox2),
dan sebaliknya jika kondisi nilai angka pada textbox1 lebih besar dari nilai angka pada
textbox2, maka proses akan mengurutkan deret angka dari yang nilainya terbesar
(nilai pada textbox1) sampai terkecil (nilai pada textbox2). Proses akan terus
berjalan hingga kondisi yang diminta program terpenuhi.
Selamat mencoba !!!
Semoga bermanfaat :-)
