Fungsi Exit Sub Pada Visual Studio 2010

Pada kesempatan ini saya akan coba membagikan artikel sederhana mengenai exit sub yang terdapat pada visual studio 2010. Exit Sub digunakan untuk menghentikan alur kode yang terdapat pada suatu prosedure pada kondisi tertentu sebelum alur kode itu benar-benar selesai.

Exit sub bisa digunakan pada Event dan Sub Procedure, sementara pada function biasanya proses berakhir setelah terdapat Return. Berikut implementasinya,,

Buat desain seperti ini

Selanjutnya masukan script berikut :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Button1.Text = "Tambah"

    End Sub

    Private Sub Tambah(ByVal nilai As Integer)

        For i As Integer = 0 To nilai

            If i = 5 Then

                ListBox1.Items.Add("Kelewat Batas")

                Exit Sub

            Else

                ListBox1.Items.Add("Nilai: " & i.ToString)

            End If

        Next

    End Sub

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

        ListBox1.Items.Clear()

        Tambah(CInt(TextBox1.Text))

    End Sub

End Class

Maka hasilnya seperti berikut :

Note : Pada script diatas dibatasi kondisi maksimal 5 atau dibatasi 5. Jadi jika data yang diimput lebih dari 5 maka kelewat batas. Sekian dari saya semoga bermanfaat.. Great Dayy !!!