Archive for Maret 2013
LOOPING : PERULANGAN MEMAKAI VB
LOOPING
NIKI-ISWANTI
Materi hari rabu dosen nya mesran.net
STMIK BUDIDARMA
MEDAN
Looping adalah perulangan
looping mempunyai 4 macam
1. 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.
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
SELAMAT MENCOBA YAHHHH SEMOGA BERHASIL
DAN JALAN PROGRAM NYA SESUAI YANG ANDA INGIN KAN……
