PERULANGAN
A. Perulangan
Struktur
perulangan atau looping merupakan salah satu alat kontrol program yang
digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses
perulangan akan terus dilakukan secara terus menerus atau berulang-ulang selama
kondisi tersebut belum terpenuhi (bernilai benar/true). jika kondisi sudah
bernilai salah/false, maka perulangan akan berhenti.
Perulangan atau
Looping dalam Visual Basic terdiri dari :
1.
For-Next
2.
Do While-Loop
3.
Do Loop Until
B. Macam-Macam Perulangan pada Visual Basic
1.
For Next
Digunakan
untuk mengulang perintah dalam jumlah yang ditentukan. pada for-next kita tidak
perlu menuliskan kondisi yang akan yang akan di uji, tetapi cukup hanya
memberikan nilai step awal dan akhir nilai.
Sintak :
For variabel = nilai_awal To nilai_akhir
ekspresi
Next
Keterangan :
a.
variabel : nama integer yang
digunakan untuk melakukan proses perulangan
b.
nilai_awal : nilai awal suatu
variabel untuk menentukan awal perulangan
c.
nilai_akhir : nilai suatu variabel
untu menentukan akhir dari perulangan
d.
ekpresi : blok perintah yang akan
dilakukan jika kondisi perulangan memenuhi syarat.
2.
Do While-Loop
Perulangan
yang akan terus menerus dilakukan selama kondisi memenuhi syarat (bernilai
benar) dan akan berhenti jika kondisi bernilai salah.
Sintak :
Do While (Kondisi)
ekspresi
Loop
Keterangan :
a.
kondisi : suatu kondisi berupa
syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus
dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan
berhenti.
b.
ekpresi : blok perintah yang akan
dilakukan jika kondisi perulangan memenuhi syarat.
3.
Do Loop
Until
Merupakan
perulangan yang metodenya kebalikan dari do-while Loop. Perulangan ini akan
menjalankan suatu kondisi secara terus menerus jika kondisi bernilai salah
(false) dan perulangan akan berhenti jika kondisi bernilai benar (true).
Sintak :
Do
ekspresi
Loop Until (Kondisi)
Keterangan :
a.
kondisi : suatu kondisi berupa
syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus
dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan
berhenti.
TUTORIAL
PRAKTIKUM PERULANGAN
A. Alat dan Bahan
Alat
dan bahan yang perlu digunakan dalam praktikum form dan objek kontrol kedua ini
adalah sebagai berukut.
1.
Laptop
2.
Software
Visual Studio Community 2013
B. Langkah-Langkah Praktikum Perulangan
Berikut ini adalah
langkah-langkah praktikum perulangan :
Perulangan For
1.
Buat
projek baru dengan nama Prak5, sama
dengan praktikum sebelumnya.
2.
Maka akan
tampil pada tampilan form seperti berikut.
3.
Klik pada Form1 untuk mengatur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form1 |
Text
|
Perulangan For |
|
StartPosition |
CenterScreen |
Sehingga judul pada
tampilan form sebagai berikut.
4.
Selanjutnya
pada Toolbox, cari Button. Kemudian double klik Button tersebut.
Disini kita menggunakan 3 Button.
5.
Sehingga
tampilannya sebagai berikut.
6.
Atur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Button1 |
Name |
btnFor |
|
Text
|
Perulangan
For, tampil 1 - 10 |
|
|
Button2 |
Name
|
btnExit |
|
Text
|
Berhenti
ketika angka = 7 |
|
|
Button3 |
Name
|
btnContinue |
|
Text
|
Melompati
angka 7 dengan Continue |
Sehinggan judul
pada button berubah seperti berikut.
7.
Pada Toolbox, cari ListBox. Kemudian double
klik ListBox tersebut.
8.
Sehingga tampilannya
sebagai berikut.
9.
Lalu atur
properti-propertinya berikut :
|
Object |
Properties |
Nilai |
|
ListBox1 |
Name
|
LB |
10. Maka tampilannya sebagai berikut.
11. Selanjutnya kita memulai untuk memasukkan
codingan agar Form tersebut dapat dijalankan saat di running. Klik ganda pada btnFor,
masuukan kode berikut.
|
Private Sub btnFor_Click(sender As Object, e As EventArgs) Handles btnFor.Click LB.Items.Clear() 'memberikan list box dari
data-data sebelumnya For angka = 1 To 10 LB.Items.Add(angka) Next End Sub |
12. Klik ganda pada btnExit, masukkan kode berikut.
|
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click LB.Items.Clear() 'memberikan list box dari
data-data sebelumnya For angka = 1 To 10 LB.Items.Add(angka) If angka = 7 Then Exit For 'keluar dari perulangan End If Next End Sub |
13. Klik ganda pada btnContinue, masukkan kode berikut.
|
Private Sub
btnContinue_Click(sender As Object, e As EventArgs) Handles btnContinue.Click LB.Items.Clear() 'memberikan list box dari
data-data sebelumnya For angka = 1 To 10 If angka = 7 Then Continue For 'melompati angka 7 End If LB.Items.Add(angka) Next End Sub |
14. Klik Start
untuk menjalankan program, dan hasilnya seperti berikut. Klik pada Perulangan For, tampil 1 – 10, maka
hasilnya sebagai berikut.
15.
Klik Berhenti ketika angka = 7, maka
hasilnya sebagai berikut.
16. Klik Melompati angka 7 dengan Continue, maka hasilnya sebagai berikut.
Perulangan Do While
1.
Buat form
baru sama dengan seperti sebelumnya dengan nama Form2.
2.
Maka akan
tampil pada tampilan form seperti berikut.
3.
Klik pada Form2 untuk mengatur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form2 |
Text
|
Perulangan While |
|
StartPosition |
CenterScreen |
Sehingga judul pada
tampilan form sebagai berikut.
4.
Selanjutnya
pada Toolbox, cari Button. Kemudian double klik Button tersebut.
Disini kita menggunakan 3 Button.
5.
Sehingga
tampilannya sebagai berikut.
6.
Atur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Button1 |
Name |
btnWhile |
|
Text
|
Perulangan
While, tampil 1 – 10 |
|
|
Button2 |
Name
|
btnExit |
|
Text
|
Berhenti
ketika angka = 7 |
|
|
Button3 |
Name
|
btnContinue |
|
Text
|
Melompati
angka 7 dengan Continue |
Sehinggan judul
pada button berubah seperti berikut.
7.
Pada Toolbox, cari ListBox. Kemudian double
klik ListBox tersebut.
8.
Sehingga tampilannya
sebagai berikut.
9.
Lalu atur
properti-propertinya berikut :
|
Object |
Properties |
Nilai |
|
ListBox1 |
Name
|
LB |
10. Maka tampilannya sebagai berikut.
11. Selanjutnya kita memulai untuk memasukkan
codingan agar Form tersebut dapat dijalankan saat di running. Klik ganda pada btnWhile,
masuukan kode berikut.
|
Private Sub btnWhile_Click(sender As Object, e As EventArgs) Handles btnWhile.Click Dim angka As Integer = 1 LB.Items.Clear() 'membersihkan listbox
dari data-data sebelumnya Do While angka <= 10 LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental Loop End Sub |
12. Klik ganda pada btnExit, masukkan kode berikut.
|
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Dim angka As Integer = 1 LB.Items.Clear() 'membersihkan listbox
dari data-data sebelumnya Do While angka <= 10 LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental If angka = 7 Then Exit Do 'keluar dari perulangan End If Loop End Sub |
13. Klik ganda pada btnContinue, masukkan kode berikut.
|
Private Sub
btnContinue_Click(sender As Object, e As EventArgs) Handles btnContinue.Click Dim angka As Integer = 1 LB.Items.Clear() 'membersihkan listbox
dari data-data sebelumnya Do While angka <= 10 If angka = 7 Then angka += 1 'menambahkan angka secara
incremental Continue Do 'melompati perulangan End If LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental Loop End Sub |
14. Setelah itu, pindahkan terlebih dahulu Signing nya ke Form2, sama seperti sebelumnya. Karena jika tidak dipindahkan maka
saat di running tetap akan berfungsi di Form1.
Klik kanan pada My Project terlebih
dahulu. Lalu klik Open. Pada Signing ganti Form1 nya menjadi Form2.
15. Klik Start
untuk menjalankan program, dan hasilnya seperti berikut. Klik pada Perulangan While, tampil 1 – 10, maka
hasilnya sebagai berikut.
16.
Klik Berhenti ketika angka = 7, maka
hasilnya sebagai berikut.
17. Klik Melompati
angka 7 dengan Continue, maka hasilnya sebagai berikut.
Perulangan Do Until
1.
Buat form
baru sama dengan seperti sebelumnya dengan nama Form3.
2.
Maka akan
tampil pada tampilan form seperti berikut.
3.
Klik pada Form3 untuk mengatur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form3 |
Text
|
Perulangan Until |
|
StartPosition |
CenterScreen |
Sehingga judul pada
tampilan form sebagai berikut.
4.
Selanjutnya
pada Toolbox, cari Button. Kemudian double klik Button tersebut.
Disini kita menggunakan 3 Button.
5.
Sehingga
tampilannya sebagai berikut.
6.
Atur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Button1 |
Name |
btnUntil |
|
Text
|
Perulangan
Until, tampil 1 – 10 |
|
|
Button2 |
Name
|
btnExit |
|
Text
|
Berhenti
ketika angka = 7 |
|
|
Button3 |
Name
|
btnContinue |
|
Text
|
Melompati
angka 7 dengan Continue |
Sehinggan judul
pada button berubah seperti berikut.
7.
Pada Toolbox, cari ListBox. Kemudian double
klik ListBox tersebut.
8.
Sehingga tampilannya
sebagai berikut.
9.
Lalu atur
properti-propertinya berikut :
|
Object |
Properties |
Nilai |
|
ListBox1 |
Name
|
LB |
10. Maka tampilannya sebagai berikut.
11. Selanjutnya kita memulai untuk memasukkan
codingan agar Form tersebut dapat dijalankan saat di running. Klik ganda pada btnUntil,
masukkan kode berikut.
|
Private Sub btnUntil_Click(sender As Object, e As EventArgs) Handles btnUntil.Click Dim angka As Integer = 1 LB.Items.Clear() ' membersihkan listbox dari
data-data sebelumnya Do Until angka > 10 LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental Loop End Sub |
12. Klik ganda pada btnExit, masukkan kode berikut.
|
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Dim angka As Integer = 1 LB.Items.Clear() ' membersihkan listbox
dari data-data sebelumnya Do Until angka > 10 LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental If angka = 7 Then Exit Do 'keluar dari perulangan End If Loop End Sub |
13. Klik ganda pada btnContinue, masukkan kode berikut.
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim angka As Integer = 1 LB.Items.Clear() ' membersihkan listbox dari
data-data sebelumnya Do Until angka > 10 If angka = 7 Then angka += 1 'menambahkan angka secara
incremental Continue Do 'melompati perulangan End If LB.Items.Add(angka) angka += 1 'menambahkan angka secara
incremental Loop End Sub |
14. Setelah itu, pindahkan terlebih dahulu Signing nya ke Form3, sama seperti sebelumnya. Karena jika tidak dipindahkan maka
saat di running tetap akan berfungsi di Form2.
Klik kanan pada My Project terlebih
dahulu. Lalu klik Open. Pada Signing ganti Form2 nya menjadi Form3.
15. Klik Start
untuk menjalankan program, dan hasilnya seperti berikut. Klik pada Perulangan Until, tampil 1 – 10, maka
hasilnya sebagai berikut.
16.
Klik Berhenti ketika angka = 7, maka
hasilnya sebagai berikut.
17. Klik Melompati
angka 7 dengan Continue, maka hasilnya sebagai berikut.
Aplikasi Tabel Celcius -
Fahreinheit
1.
Buat form
baru sama dengan seperti sebelumnya dengan nama Form4.
2.
Maka akan
tampil pada tampilan form seperti berikut.
3.
Klik pada Form4 untuk mengatur
properti-propertinya sebagai berikut.
|
Object |
Properties |
Nilai |
|
Form4 |
Text
|
Tabel Celcius - Fahreinheit |
|
StartPosition |
CenterScreen |
Sehingga judul pada
tampilan form sebagai berikut.
4.
Selanjutnya
pada Toolbox, cari DataGridView. Kemudian double klik DataGridView tersebut.
5.
Sehingga
tampilannya sebagai berikut.
6.
Atur
properti-properti pada DataGridView
sebagai berikut.
|
Object |
Properties |
Nilai |
|
DataGridView1 |
Name |
DG |
|
AutoSizeColumnMode |
Fill
|
7.
Selanjutnya
kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat
di running. Klik ganda pada Form4, masukkan kode berikut.
|
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim F As Double DG.RowCount = 101 DG.ColumnCount = 2 DG.Columns(0).HeaderText = "Celcius" DG.Columns(1).HeaderText = "Fahrenheit" DG.ColumnHeadersDefaultCellStyle.Font
= New Font(DG.ColumnHeadersDefaultCellStyle.Font,
FontStyle.Bold)
DG.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter For C = 0 To 100 F = (9 / 5 * C) + 32 DG.Rows(C).Cells(0).Value = C DG.Rows(C).Cells(1).Value = F Next End Sub |
8.
Setelah
itu, pindahkan terlebih dahulu Signing
nya ke Form4, sama seperti
sebelumnya. Karena jika tidak dipindahkan maka saat di running tetap akan
berfungsi di Form3. Klik kanan pada My Project terlebih dahulu. Lalu klik Open. Pada Signing ganti Form3 nya
menjadi Form4.
9.
Klik Start untuk menjalankan program, dan
hasilnya seperti berikut.
Komentar
Posting Komentar