Belajar Procedure dan Function pada Visual Basic 2010

Assalamualaikum pada post kali ini penulis akan share materi tentang Procedure dan Function pada Visual Basic

Untuk materi Visual Basic lainnya bisa klik halaman disini :

1. Tipe Data dan Variabel pada Visual Basic
2. Local, Global Variabe, Structure dan Konversi Data pada Visual Basic
3. Operator pada Visual Basic
4. Percabangan pada Visual Basic
5. Lanjutan Percabangan pada Visual Basic
6. Percabangan pada Visual Basic 2
7. Percabangan pada Visual Basic Select - Case
8. Perulangan pada Visual Basic
9. Perulangan pada Visual Basic 2
10. Perulangan pada Visual Basic 3
11. Array di Visual Basic
12. Array Dua Dimensi

PROCEDURE

Prosedur merupakan bagian dari pemrograman terstruktur, tetapi prosedur masih diperlukan dalam pemrograman berorientasi obyek untuk mempermudah pengembangan suatu program dengan membentuk blok program menjadi bagian dan fungsi tersendiri. Fungsi prosedur selain ditulis dan diuji secara terpisah juga digunakan untuk penerapan tugas yang diulang-ulang, seperti penghitungan yang sering digunakan. Pendekatan memecah aplikasi yang besar menjadi blok-blok kode yang kecil disebut juga dengan pemrograman modular.

Keuntungan menggunakan Prosedure 

• Program terbagi-bagi menjadi komponenkomponen yang mandiri.
• Dengan demikian program menjadi lebih terstruktur sehingga pencarian kesalahan dapat lebih mudah dilakukan.
• Prosedur yang terletak dalam suatu program dapat dipakai berulang-ulang sesuai dengan kebutuhan.
• Tidak ada aturan khusus pada penulisan prosedur, apakah ingin diletakkan di awal program atau di akhir program.

SUB PROCEDURE 

Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. Sub procedure intinya merupakan kumpulan code yang diawali dengan Sub dan diakhiri dengan End Sub.

BENTUK UMUM

[accessibility/access modifier] Sub nama_procedure (parameter)

          statement

End Sub

Keterangan :

• Accessibility/access modifier bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
• nama_prosedur merupakan nama sub procedure yang penamaan nya harus sesuai dengan aturan penamaan.
• parameter dideklarasikan sebagaimana mendeklarasikan variable. Sebuah sub procedure bisa memiliki parameter ataupun tidak. Parameter sub prosedur ada dua jenis yaitu ByVal dan ByRef.

ByVal dan ByRef 

• ByRef = Parameter yang dikirimkan adalah object sehingga perubahan nilai dari object tersebut yang diolah/diubah pada sub/function akan berakibat mengubah juga nilai dari object tersebut secara langsung.
• ByVal = Parameter yang dikirimkan adalah nilai dari sebuah object sehingga tidak dapat mengubah nilai Object tersebut, pengguna hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai object di sub/function tidak akan mengubah nilai object yang sebenarnya.

BAGAIMANA MEMANGGIL SUB PROCEDURE ?

Sub Procedure dengan parameter opsional (boleh diisi boleh tidak tetapi memiliki nilai default):

call subprocedure (argumentlist)

• Latihan 1 (Procedure)

Buat form dibawah ini

Source Code :

Public Class Pertemuan_6_Latihan_1_Teori

    Private Sub GantiTeks(ByVal TeksBaru As String)

        TextBox1.text = TeksBaru

    End Sub

    Private Sub Pertemuan_6_Latihan_1_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_1_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

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

        GantiTeks("Unsada")

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

Running Program :

• Latihan 2 (2 Procedure)

Buat form dibawah ini

Source Code :

Public Class Pertemuan_6_Latihan_2_Teori

    Private Sub ShowWarning(ByVal message As String, ByVal title As String)

        MessageBox.Show(message, title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End Sub

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

        ShowWarning("Fill Data same as Format !!", "salmanteh42.blogspot.com")

    End Sub

    Private Sub Pertemuan_6_Latihan_2_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_2_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

Running Program

• Latihan 3 (dengan parameter optional)

Buat form dibawah ini

Source Code :

Public Class Pertemuan_6_Latihan_3_Teori

    Private Sub ChangeMessage(Optional ByVal message As String = "")

        If message = "" Then

            MsgBox("No Message")

        Else

            MsgBox(message)

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_3_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_3_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

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

        Call ChangeMessage()

    End Sub

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

        Call ChangeMessage("Welcome Welcome")

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

Function 

Kumpulan code yang diawali dengan Function dan diakhiri dengan End Function. Function menjalankan kode diantaranya dan mengembalikan sebuah nilai. Artinya sama seperti sub procedure tetapi function mengembalikan nilai.

BENTUK UMUM

[accessibility] Function nama_function [parameter] [As tipe_data]

          statement

End Function

Keterangan :

• Accessibility bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
• nama_function merupakan nama function yang penamaan nya harus sesuai dengan aturan penamaan. 
• parameter dideklarasikan sebagaimana mendeklarasikan variable. Sebuah function bisa memiliki parameter ataupun tidak. Parameter sub prosedur ada dua jenis yaitu ByVal dan ByRef.

• Latihan 4 (Function)

Buat form dibawah ini

Source Code :

Public Class Pertemuan_6_Latihan_4_Teori

    Function BagiDua(ByVal sNilai As Single) As Single

        Return sNilai / 2

    End Function

    Private Sub Pertemuan_6_Latihan_4_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_4_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

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

        TextBox1.Text = BagiDua(5)

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

• Latihan 5 (Function 2 Parameter)

Buat form dibawah ini

Source Code :

Public Class Pertemuan_6_Latihan_5_Teori

    Private Function HasilBagi(ByVal sNilai As Single, ByVal sBagi As Single) As Single

        Return sNilai / sBagi

    End Function

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

        TextBox1.Text = HasilBagi(7, 2)

    End Sub

    Private Sub Pertemuan_6_Latihan_5_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_5_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = ("salmantech42.blogspot.com")

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

Running Program :

• Latihan 6 (Sub function dengan parameter optional)

Buat form dibawah ini

ketika tombol Proceed di tekan akan muncul "No Message"

ketika tombol Show di tekan akan muncul "Message is Welcome Welcome!!"

Source Code :

Public Class Pertemuan_6_Latihan_6_Teori

    Private Function ShowMessage(Optional ByVal InputMessage As String = "") As String

        If InputMessage = "" Then

            Return "No Message ?"

        Else

            Return "Message is " & InputMessage

        End If

    End Function

    Private Sub Pertemuan_6_Latihan_6_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub Pertemuan_6_Latihan_6_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

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

        TextBox1.Text = ShowMessage()

    End Sub

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

        TextBox1.Text = ShowMessage("Welcome Welcome!!")

    End Sub

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

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

Running Program :

Sekian untuk post kali semoga bermanfaat 
Share post ini jika berkenan 

どうもありがとうございました…!

---

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

---

Subscribe to receive free email updates: