Visual Basic Lanjutan (Teori 5) - Procedure dan Function

Assalamualaikum Wr.Wb.

Masih Bersama Saya lagi Sulthan Alawy Shihab, Apakabar semua, semoga kita selalu dilindungi Tuhan Yang Maha Esa.

ini adalah tugas TEORI saya pada pertemuan kelima, silahkan simak dan pelajari.

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 Penggunaan Prosedure

·         Program terbagi-bagi menjadi komponen komponen 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 dipanggil 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. 

BENTUK UMUM

·         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 1

Code:

Public Class Form1

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub GantiTeks(ByVal TeksBaru As String)

        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")

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 2

Code:

Public Class Form2

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)

        MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    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")

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 3

Code:

Public Class Form3

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

        Me.Text = "Jembatan Lulus"

    End Sub

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

        If Pesan = "" Then

            MsgBox("Tidak Ada Pesan")

        Else

            MsgBox(Pesan)

        End If

    End Sub

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

        Call UbahPesan()

    End Sub

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

        Call UbahPesan("Selamat Datang") 'Jembatan Lulus

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 4

Code:

Public Class Form4

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Function BagiDua(ByVal sNilai As Single) As Single

        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)

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 5

Code:

Public Class Form5

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

        Me.Text = "Jembatan Lulus"

    End Sub

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

        Return sNilai / sBagi

    End Function

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

        TextBox1.Text = HasilBagi(7, 2)

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 6

Code:

Public Class Form6

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Public Function TampilkanPesan(Optional ByVal IsiPesan As String = "") As String

        If IsiPesan = "" Then

            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()

    End Sub

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

        TextBox1.Text = TampilkanPesan("Dia rindu")

    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, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class