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 :
- Procedure Sub, prosedur yang tidak mengembalikan nilai setelah tugasnya selesai
- Procedure Function, prosedur yang mengembalikan nilai setelah tugasnya selesai
- Procedure Event, prosedur untuk suatu event pada sebuah object. Dan digunakan dalam sebuah class module
- 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.
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
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
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:
