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.

                b.    ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.


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

Postingan populer dari blog ini

Input dan Output pada Bahasa Pemrograman C++

Pengenalan DFD

DIAGRAM DEPLOYMENT