Looping pada Vbnet
Looping adalah perulangan dimana harus menemui kondisi tertentu baru berjalan (if) dan berhenti sampai (while,until) berikut ini adalah pembahasan fungsi fungsi looping pada visual basic khususnya vb2008:looping mempunyai 4 macam
1. Do … Until dapat dikatakan sebagai kebalikan dari Do-While. Do-Until digunakan untuk melakukan proses pengulangan selama kondisi yang dibandingkan tidak memenuhi syarat (bernilai false). Pengulangan ini akan dilakukan secara berulangulang sampai (until) kondisi memenuhi syarat (bernilai true). Bentuk sintaxnya adalah sebagai berikut :
Do Until Kondisi
Aksi1
Loop
Atau
Do Kondisi
Aksi1
LoopUntil kondisi
2.
Perulangan Do..While
Do … While digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
Do … While digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah
tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true)
sampai
kondisi
tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :
Do While Kondisi
Aksi1
Exit Do
Aksi2
Loop
Atau
Do Kondisi
Aksi1
Exit Do
Aksi2
Loop While kondisi
3.
3. For
… Next. Digunakan
untuk mengulangi suatu perintah dalam jumlah yang telah ditentukan. Dengan menggunakan For-Next anda dapat menentukan
berapa kali pengulangan akan dilakukan. Bentuk sintaxnya adalah sebagai berikut
:
For cacah = Awal to Akhir
Aksi
Next
contoh program perulangan untuk menampilkan hasil
kali dua bilangan menggunakan perulangan for…next
4.
4.
End While: digunakan untuk mengulang sebuah blok aksi (perintah/statement)
pada
jumlah
tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true)
sampai
kondisi
tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :
While kondisi
perintah
perintah
End While
Contoh program looping menampil kan angka 1-10 memakai toolbox listbox
memakai syntax do until
Public Class Form2
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
halaman As Byte
halaman = 1
Do Until halaman = 11
ListBox1.Items.Add(halaman)
halaman =
halaman + 1
Loop
End Sub
End Class
Contoh program looping menampil kan angka 1-10 memakai toolbox comboBox
memakai syntax FOR
Public Class Form3
Private Sub Form3_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
halaman As Byte
For
halaman = 1 To 10
ComboBox1.Items.Add(halaman)
Next
End Sub
End Class
Contoh program looping
perkalian
memakai toolbox listbox memakai syntax for
Public Class Form5
Private Sub Form5_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
For x =
1 To 10
Perkalian_1.Items.Add(x & " x 1 = " & x * 1)
Next
For x =
1 To 10
Perkalian_2.Items.Add(x & " x 2 = " & x * 2)
Next
For x =
1 To 10
Perkalian_3.Items.Add(x & " x 3 = " & x * 3)
Next
For x =
1 To 10
Perkalian_4.Items.Add(x & " x 4 = " & x * 4)
Next
End Sub
End Class
Contoh program looping
menampilkan
angka 10-1 memakai toolbox listbox memakai syntax END WHILE
Public Class Form6
Private Sub Form6_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
ListBox1.Items.Clear()
i = 10
While i
> 0
ListBox1.Items.Add(i)
i -= 1
End While
End Sub
End Class
Contoh program looping
membuat
bilangan berpangkat memakai toolbox listbox memakai syntax do
while dan FOR
Public Class latihan
Private Sub latihan_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
halaman As Byte
halaman = 1
Do While halaman <= 10
bilangan.Items.Add(halaman)
halaman =
halaman + 1
Loop
End Sub
Private Sub
bilangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
bilangan.SelectedIndexChanged
Dim
halaman As Byte
halaman = 1
Do While halaman <= 10
pangkat.Items.Add(halaman)
halaman =
halaman + 1
Loop
End Sub
Private Sub pangkat_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
pangkat.SelectedIndexChanged
Dim
xhasil As Double
= 1
For i =
1 To Val(pangkat.Text)
xhasil = xhasil * bilangan.Text
Next
hasil.Text = xhasil
End Sub
End Class