Contoh program sederhana “LOOPING” pada Visual Studio 2010

Perulangan atau looping digunakan untuk menjalankan satu atau beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja. Dengan menggunakan looping, sebuah program bisa menjalankan statement secara berulang dan akan berjalan terus menerus sampai suatu kondisi yang telah ditentukan terpenuhi. Kenapa harus pake looping...? Contoh sederhananya, misalkan kita akan menjumlahkan deret angka dari 1 sampai 10, ini masih gampang lo yah, Heee... karena kita masih sanggup ngetik iya kan? Kita hanya tinggal membuat coding seperti ini :

Dim jumlah as integer

jumlah = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10

Msgbox(jumlah)

Masih mudah kan, namun jika kita akan menjumlahkan deret angka dari 1 sampai 999.999 gimana? Apa kita akan menuliskan 1+2+3+...999.999 seperti contoh diatas? Pasti keriting jari kita ngetik :-D karena itu, perulangan merupakan bagian yang penting dalam pemrograman karena dengan adanya pengulangan, pembuat program tidak perlu menulis code program sebanyak pengulangan yang diinginkan.

Ada beberapa pernyataan yang dapat digunakan dalam struktur perulangan diantaranya adalah pernyataan For-Next, Do While-Loop, dan Do Until-Loop. Langsung aja, kita liat contoh program sederhananya yaitu menampilkan deret angka menggunakan pernyataan For-Next, Do While-Loop, dan Do Until-Loop

1.Buat project baru

2.Desain form dengan meletakkan 2 label, 5 textbox, 2 groupbox dan 4 button. Kemudian tambahkan kontrol ke form dan atur propertiesnya seperti tabel berikut :

Object	Properties	Nilai
Form1	Name Text	Form1 Form Looping
Label1	Text	Nilai Awal
Label2	Text	Nilai Akhir
Button1	Name Text Backcolor	Button1 For Next System > AppWorkspace
Button2	Name Text Backcolor	Button2 Close System > AppWorkspace
Button3	Name Text Backcolor	Button3 Do While System > AppWorkspace
Button4	Name Text Backcolor	Button4 Do Until System > AppWorkspace
Textbox1	Name	Textbox1
Textbox2	Name	Textbox2
Textbox3	Name Textbox Tasks ScrollBars	Textbox3 Multiline Vertical
Textbox4	Name	Textbox4
Textbox5	Name	Textbox5
Groupbox1	Text	Input
Groupbox2	Text	Output

3 . Klik ganda pada button “For Next”, kemudian ketikan code program berikut ini : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer

        Dim b As Integer

        Dim hasil As String

        Dim i As Integer

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        hasil = ""

        If (a < b) Then

            For i = a To b

                hasil = hasil + i.ToString + vbCrLf

            Next

            TextBox3.Text = hasil

        Else

            If (a > b) Then

                For i = a To b Step -1

                    hasil = hasil + i.ToString + vbCrLf

                Next

                TextBox3.Text = hasil

            End If

        End If

    End Sub

4. Klik ganda button “CLOSE”, kemudian ketikan code berikut :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

End Class

5. Klik ganda button “Do While”, kemudian ketikan code berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim a As Integer

        Dim b As Integer

        Dim hasil As String

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        hasil = ""

        If (a <= b) Then

            Do While a <= b

                hasil = hasil + a.ToString + vbCrLf

                a = a + 1

            Loop

            TextBox4.Text = hasil

        Else

            If (a >= b) Then

                Do While a >= b

                    hasil = hasil + a.ToString + vbCrLf

                    a = a - 1

                Loop

                TextBox4.Text = hasil

            End If

        End If

    End Sub

6. Klik ganda button “Do Until”, kemudian ketikan code berikut :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim a As Integer

        Dim b As Integer

        Dim hasil As String

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        hasil = ""

        If (a <= b) Then

            Do Until a > b

                hasil = hasil + a.ToString + vbCrLf

                a = a + 1

            Loop

            TextBox5.Text = hasil

        Else

            If (a >= b) Then

                Do Until a < b

                    hasil = hasil + a.ToString + vbCrLf

                    a = a - 1

                Loop

                TextBox5.Text = hasil

            End If

        End If

    End Sub

7.Jalankan program dengan menekan F5 (di keyboard), atau melalui icon start debuging di toolbar, atau melalui menu Debug > Start Debuging.

8.Simpan project anda. Hasilnya dapat dilihat dibawah ini !
 

Inti dari program diatas adalah program ingin menampilakan deret angka dari nilai yang ada pada textbox1 sampai nilai yang ada pada textbox2.  Jika kondisi nilai angka pada textbox1 lebih kecil dari nilai angka pada textbox2, maka proses akan mengurutkan deret angka dari yang nilainya terkecil (nilai pada textbox1) sampai terbesar (nilai pada textbox2), dan sebaliknya jika kondisi nilai angka pada textbox1 lebih besar dari nilai angka pada textbox2, maka proses akan mengurutkan deret angka dari yang nilainya terbesar (nilai pada textbox1) sampai terkecil (nilai pada textbox2). Proses akan terus berjalan hingga kondisi yang diminta program terpenuhi.

Selamat mencoba !!!
Semoga bermanfaat :-)