Perulangan VB.NET
Struktur For - Next
Struktur For-Next digunakan untuk mengulang blok perintah dalam jumlah yang
sudah ditentukan.Pada struktur ini Anda tidak perlu menuliskan kondisi yang
akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel
penghitung. Nilai variabel penghitung ini akan secara otomatis bertambah atau
berkurang setiap kali suatu pengulangan dikerjakan. Bentuk penulisan dari
struktur For-Next sebagai berikut :
For var = awal to akhir step pertambahan
... ekspresi ...
Next
Keterangan :
var=Nama variabel
integer yang digunakan untuk melakukan proses pengulangan.
awal=Nilai suatu
variabel integer untuk menentukan nilai awal suatu perulangan.
akhir =Nilai suatu
variabel integer untuk menentukan nilai akhir suatu perulangan.
pertambahan = Besarnya
nilai perubahan dari nilai awal sampai nilai akhir. Jika pengulangannya menurun
yaitu dari nilai yang besar menuju nilai yang kecil, maka nilai pertambahannya
harus negatif. Nilai standart Visual Basic .Net untuk nilai pertambahanadalah
1, kecuali jika Anda mendefinisikan sendiri.
ekspresi =Suatu blok
perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi
syarat.
Struktur Do While - Loop
Struktur Do While – Loop digunakan untuk melakukan pengulangan
terus-menerus selama kondisi memenuhi syarat (bernilai True). Pengulangan ini
akan berhenti jika kondisinya tidak memenuhi syarat (bernilai False).
Bentuk penulisan dari
struktur If-Then-ElseIf-Then sebagai berikut :
Do while (kondisi)
... ekspresi ...
Loop
Struktur Do Until - Loop
Struktur Do Until – Loop digunakan untuk melakukan pengulangan terus-menerus selama kondisi tidak memenuhi syarat (bernilai False). Pengulangan ini akan berhenti jikakondisinya memenuhi syarat (bernilai True). Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut :
Do until (kondisi)
... ekspresi ...
Loop
Struktur While – End
While
Struktur While – End
While digunakan untuk melakukan pengulangan terus-menerus selama kondisi
memenuhi syarat (bernilai True). Pengulangan ini akan berhenti jika kondisinya
tidak memenuhi syarat (bernilai False). Bentuk penulisan dari struktur
If-Then-ElseIf-Then sebagai berikut :
While (kondisi)
... ekspresi ...
End While
Berikut adalah contoh dari masing-masing perulangan
Keterangan:
|
Keterangan
|
Name Object
|
|
Nilai Awal
|
Textboxt1
|
|
Nilai Akhir
|
Textboxt2
|
|
Langkah
|
Textboxt3
|
|
For
|
Button1
|
|
Do While
|
Button2
|
|
Do Until
|
Button3
|
|
While
|
Button4
|
|
Penampung
|
Textboxt4
|
Kode Program
Public Class Perulangan
Dim nilaiawal As Integer = 0
Dim nilaiakhir As Integer = 0
Dim langkah As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox4.Text =
nilaiawal = Val(TextBox1.Text)
nilaiakhir = Val(TextBox2.Text)
langkah = Val(TextBox3.Text)
For i = nilaiawal To nilaiakhir Step +langkah
TextBox4.Text = TextBox4.Text &
i & vbCrLf
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox4.Text =
nilaiawal = Val(TextBox1.Text)
nilaiakhir = Val(TextBox2.Text)
langkah = Val(TextBox3.Text)
Do While nilaiawal = nilaiakhir
TextBox4.Text = TextBox4.Text &
nilaiawal & vbCrLf
nilaiawal = nilaiawal + langkah
Loop
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TextBox4.Text =
nilaiawal = Val(TextBox1.Text)
nilaiakhir = Val(TextBox2.Text)
langkah = Val(TextBox3.Text)
Do Until nilaiawal > nilaiakhir
TextBox4.Text = TextBox4.Text &
nilaiawal & vbCrLf
nilaiawal = nilaiawal + langkah
Loop
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TextBox4.Text =
nilaiawal = Val(TextBox1.Text)
nilaiakhir = Val(TextBox2.Text)
langkah = Val(TextBox3.Text)
While nilaiawal = nilaiakhir
TextBox4.Text = TextBox4.Text &
nilaiawal & vbCrLf
nilaiawal = nilaiawal + langkah
End While
End Sub
End Class
Tidak ada komentar:
Posting Komentar