PROSEDUR ,FUNCTION DAN MODUL

PROSEDUR ,FUNCTION DAN MODUL

1.      Procedure (Prosedur)

            Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu.Prosedur adalah sebuah blog kode program yang akan mengerjakan perintah-perintah. Jika di dalam program yang akan dibuat terdapat beberapa perintah yang akan mempunyai tugas atau fungsi yang sama maka kita dapat membuat sebuah prosedur atas perintah tersebut.. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan.

beberapa macam jenis prosedur yang ada di visual basic :

1. Procedure Sub, prosedur yang tidak mengembalikan nilai setelah tugasnya selesai
2. Procedure Function, prosedur yang mengembalikan nilai setelah tugasnya selesai
3. Procedure Event, prosedur untuk suatu event pada sebuah object. Dan digunakan dalam sebuah class module
4. Procedure Property, prosedur untuk mengubah (let) atau mengambil (get) nilai property pada sebuah object. Dan digunakan dalam sebuab class module

Fungsi dibuatkan sebuah prosedur adalah dapat menghemat penulisan kode program karena perintah-perintah yang begitu banyak tetapi mempunyai fungsi yang sama dapat dibuat dalam satu bagian saja. Jika terjadi kesalahan dapat dengan mudah dicari kesalahan kemudian dilakukan perbaikan.

Bentuk Umum :

[Private|Public] Sub subname [(argumentlist)]

      Statements

End sub

Sub Procedure dapat dipanggil dengan perintah :

[call] subname [(argumentlist)]

Keterangan :

Sub procedure (Procedure) sebaiknya menggunakan kata kerja (verb)

Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me.

Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference). Jika menggunakan by value, nilai pada argument tidak berubah. Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesuai dengan perintah dalam procedure.

Secara default, argument dimasukkan melalui nilai (by value) dapat menggunakan kata kunci ByVal dan ByRef untuk By Reference.

Syntaks argument :

[ByVal|ByRef] variabelname as type

Contoh :

1.      Procedure dengan argument di passing sebagai value

SSub HitungVal(byVal as Decimal)

            A+=1

            textAkhir.text=a

Eend sub

2.      Procedure dengan argument di passing sebagai value

SSub HitungRef(byRef as Decimal)

            A+=1

            textAkhir.text=a

eend sub

3.      pemanggilan procedure

HitungVal(textAwal.Text)

2.Function (Fungsi)

Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

hdi

Function adalah bagian dari prosedur dimana function berfungsi untuk mengembalikan nilai dan penggunaannya menggunakan bentuk sintaks khusus dalam bahasa pemrograman VB.Net. Function secara Opsional menerima satu atau lebih parameter yang disebut juga parameter formal.
Karena function bagian dari prosedur maka kita harus tau apa itu prosedur. Prosedur adalah sekelompok pernyataan yang bersama-sama melakukan tugas saat dipanggil, setelah prosedur dijalankan, kontrol akan kembali ke pernyataan yang memanggil prosedur VB.Net.

Fungsi mempunyai banyak kemiripan dengan sub procedure. Bedanya, fungsi selalu mengembalikan nilai (return value).

Function digunakan untuk mendeklarasikan sebuah nama, parameter dan kode yang menentukan prosedur function.

Sintaks fungsi dituliskan sebagai berikut :

[Private|Public] function functionname[(argumentlist)] [As type]

      Statements{

      Functionname=expression | {return expression}

End function

Keterangan :

-          Perbedaan antara fungsi dengan procedure hanyalah pada pengembalian nilai saja (return value). Sebagai contoh :

Menggunakan argument berupa nilai (by value) dan reference (by reference)

-          Pengembalian nilai dapat dilakukan dengan menggunakan operator assignment “=” pada fungsi atau biasanya dengan perintah return.

Contoh :

Private  Function cekData() as Boolean
      if IsNumeric(TextAwal.text) then
            return true
      else
            return false
      endif
end function

Pemanggilan fungsi

      if cekData()=true then
            HitungRef(textAwal.text)
      else
            messageBox.Show(“Data yang dimasukkan bukan angka”,”Kesalahan data”, MessageBoxButtons.OK,
                 MessageBoxIcons.Error)
      endif

Keuntungan mengunakan Function dan Prosedur di VB:

#   Terkadang karena banyaknya sintaks program kita suka ouble-double  membuat perintah dalam program, nah untuk mengatasinya biar tidak double-double dan tidak berulang-ulang menulis sintaks maka sebaiknya gunakan Fuction atau prosedure agar tidak duplikasi sintaks.

#   Memperkecil masalah-masalah yang kompleks dalam program.

#   Perintah atau sintaks anda jadi mudah di baca

#   Punulisan kode program jadi semakin jelas.

#. Informasi kode tersembunyi Kode bisa di pakai berulang kali dalam sebuah progam.

 #   . Mengurangi duplikasi kode program

#.       Mengatasi masalah yang kompleks menjadi potongan-potongan yang lebih      sederhana

#.       Meningkatkan kejelasan kode

#.       Kode yang mudah dibaca

#.       Informasi kode bersembunyi

#.       Dapat dipakai berulang kali

perbedaan antara procedure dan function

	Procedure	Function
Definisi	Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya	Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
Parameter	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
Deklarasi	Menggunakan keyword “Sub”.	Menggunakan keyword “Function”,         untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.

3.      Module (Modul)

module berfungsi untuk menyimpan informasi dalam module itu sendiri yang kemudian mengakses informasi tersebut dari form-form lain dalam aplikasi/project yang kita buat. module dapat digunakan untuk menyimpan fungsi, sub atau bahkan sebuah variable untuk memilah kode Anda, sehingga dapat mengaksesnya dengan lebih mudah. Jika kita membuat sebuah program besar, dimana harus menyimpan banyak fungsi, sub ataupun variabel maka dengan mudah dapat menggunakan module untuk memilah data menjadi beberapa kategori.

Modul merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form.

-          Umumnya modul dideklarasikan secara public (public) agar dapat digunakan di dalam kode dimanapun

-          Modul dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai

-          Modul merupakan salah satu argumentasi code  reuse yang bertujuan agar program lebih efesien.

Sintaks pembuatan modul sebagai berikut :

Module moduleName

      Statement

End module

Contoh :

Module Module

    Public intResponce, RoleId, Msg As Integer

    Public Username, Password, Nama As String

End Module

Pada Visual basic  menyediakan module yang dapat digunakan untuk fungsi, subrutin, konstanta, variabel, dan tipe ciptaan yang akan disediakan bagi keseluruhan project. Untuk module dalam  project anda dapat menggunakan perintah Project > Add Module.

Setelah menambahkan module, maka pada jendela project Ekplorer akan tampak module1

Pada modul anda dapat mendeklarasikan variabel dengan awalan DIM, PRIVATE, maupun PUBLIC, dimana awalan DIM dan PRIVATE membentuk variabel module level (hanya berlaku pada pemakaian module bersangkutan), sedangkan awalan PUBLIC akan menghasilkan variabel global yang akan berfungsi bagi keseluruhan program.

Contoh:

Setiap kali prosedur dipanggil, maka pernyataan-pernyataan yang berada di antara Sub dan End Sub akan di jalankan. Argumen pada prosedur adalah nilai yang akan di lewatkan saat pemanggilan procedure.

contoh program prosedur dan function Data Barang untuk mencari jumlah stok:

Kita ketikkan codingnya dengan cara double klik pada form nya;

Public Class Form3

    Sub Bersih()

        TxtKode.Text = ""

        TxtNama.Text = ""

        TxtJumlah.Text = ""

        TxtLaku.Text = ""

        TxtStok.Text = ""

    End Sub

    Private Function Hitung()

        Dim jumlah, laku, stok As Integer

        jumlah = Val(TxtJumlah.Text)

        laku = Val(TxtLaku.Text)

        jumlah = Val(jumlah - laku)

        TxtStok.Text = jumlah

        Return stok

    End Function

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

        Call Bersih()

        Call Hitung()

    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click

        Call Hitung()

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Call Bersih()

Kita panggil atau kita jalankan, maka hasilnya akan seperti di bawah ini: