Visual Basic Lanjutan Teori 5 - Procedure dan Function

LaptopInformatika.com - Kali ini kita akan Membahas tentang Procedure dan Function. 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.

Untuk Latihan-latihan sebelumnya ada di link bawah ini, jika kalian ingin mempelajari semuanya silahkan klik link di bawah ini :

1. Visual Basic Lanjutan Teori 1 Variabel dan Type Data
2. Visual Basic Lanjutan Praktikum 1 Operator
3. Visual Basic Lanjutan Teori 2 Percabangan (Struktur If-Then, If-Then-Else, Nested IF)
4. Visual Basic Lanjutan Praktikum 2 Percabangan (IIF dan Select Case)
5. Visual Basic Lanjutan Teori 3 - Perulangan
6. Visual Basic Lanjutan Praktikum 3 - Perulangan (Do While - Loop)
7. Visual Basic Lanjutan Teori 4 - Array Dimensi Satu
8. Visual Basic Lanjutan Praktikum 4 - Array Dimensi Dua

Keuntungan Menggunakan Penggunaan Procedure

• 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.

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.

Read More : Pemrosesan Transaksi dalam Sistem Manajemen Database yang Wajib Anda Ketahui

Bentuk Umum

[accessibility] Sub nama_prosedur ( parameter )
            statement
      End Sub

• Accessibility bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
• Accessibility bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
• 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.

Pemanggilan Sub Procedure

• Sub Procedure dengan parameter opsional (boleh diisi boleh tidak tetapi memiliki nilai default):
• call subprocedure(argumentlist)

Public Class Contoh

      Private Sub UbahPesan(Optional ByVal pesan As String = "")

            If Pesan = "" Then

                   MsgBox("Tidak ada pesan")

            Else

                   MsgBox(pesan)

            End If

            End Sub

      Privat Sub Button1_click(ByVal sender  As System.Object, ByVal e As 

      System.EventArgs) Handles Button1.Click

            Call UbahPesan()

      End Sub

Contoh Procedure

• Sub Procedure dengan 1 parameter:

Private Sub GantiTeks(ByVal TeksBaru As String)
            Textbox1 = TeksBaru
      End Sub

Latihan 1

• Source Code

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

    Private Sub GantiTeks(ByVal TeksBaru As String) 'LaptopInformatika.com
        TextBox1.Text = TeksBaru
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GantiTeks("UNIVERSITAS DARMA PERSADA") 'LaptopInformatika.com
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 2

• Source Code

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

    Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)
        MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 'LaptopInformatika.com
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TampilkanPeringatan("Isi Sesuai dengan Format...!", "Peringatan") 'LaptopInformatika.com
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Read More : 6 Tips dan Triks Data Recovery RAID yang Perlu Anda Ketahui

Latihan 3

• Source Code

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

    Private Sub UbahPesan(Optional ByVal Pesan As String = "")
        If Pesan = "" Then
            MsgBox("Tidak Ada Pesan")
        Else
            MsgBox(Pesan) 'LaptopInformatika.com
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call UbahPesan() 'LaptopInformatika.com
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call UbahPesan("Selamat Datang") 'LaptopInformatika.com
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 4

• Source Code

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

    Function BagiDua(ByVal sNilai As Single) As Single 'LaptopInformatika.com
        Return sNilai / 2
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = BagiDua(5) 'LaptopInformatika.com
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 5

• Source Code

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

    Function HasilBagi(ByVal sNilai As Single, ByVal sBagi As Single) As Single 'LaptopInformatika.com
        Return sNilai / sBagi 'LaptopInformatika.com
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = HasilBagi(7, 2) 'LaptopInformatika.com
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Read More : The Best SEO untuk Tahun 2020

Latihan 6

• Source Code

Public Class Form6

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

        Me.Text = "LaptopInformatika.com"

    End Sub

    Public Function TampilkanPesan(Optional ByVal IsiPesan As String = "") As String 'LaptopInformatika.com

        If IsiPesan = "" Then 'LaptopInformatika.com

            Return "Tidak Ada Pesan"

        Else

            Return "Isi Pesan Adalah" & IsiPesan

        End If

    End Function

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

        TextBox1.Text = TampilkanPesan() 'LaptopInformatika.com

    End Sub

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

        TextBox1.Text = TampilkanPesan("Selamat Datang") 'LaptopInformatika.com

    End Sub

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

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Share this post

Berlangganan update artikel terbaru via email: