Struktur Procedure dan Function

Modular Programming

         Pemrograman Modular adalah suatu teknik pemrograman di mana program yang biasanya cukup besar dibagi-bagi menjadi beberapa bagian program yang lebih kecil sehingga akan mudah dipahami dan dapat digunakan kembali, baik untuk program itu sendiri maupun program lain yang memiliki proses yang sama. Modul pada bahasa VB .Net dikenal dengan nama Procedure dan  fungsi (function). Bahasa VB .Net terdiri dari fungsi-fungsi, baik yang langsung dideklarasikan dalam program ataupun dipisah di dalam program. Procedure / Fungsi yang selalu ada pada program VB .Net adalah fungsi main

Kelebihan Modular

• Program lebih pendek
• Mudah dibaca dan dimengerti
• Mudah didokumentasi
• Mengurangi kesalahan dan mudah mencari kesalahan
• Kesalahan yang terjadi bersifat “lokal”

Procedure

       Prosedur adalah kumpulan dari pernyataan program yang dipanggil dan dieksekusi sebagai satu kesatuan. Prosedur dapat dipanggil dan dieksekusi berulang kali selama dibutuhkan, sehingga akan menyebabkan adanya pengurangan kode.

Procedure di bagi menjadi 2

• Menggunakan Paramenter (Subrutin)
• Tidak Menggunakan Parameter

Tanpa Parameter

[Private] [Public] Sub Nama_Prosedur ()

… Blok …Perintah….

End Sub

Contoh :
Private Sub TampilPesan()
MsgBox(“Selamat Pagi Dunia”MsgboxStyle.Information + MsgboxStyle.OkOnly,”Pesan”)
End Sub

Dengan Parameter

[Private] [Public] Sub Nama_Prosedur (parameter)

… Blok …Perintah….

End Sub

Contoh:
Private Sub TampilPesan()
MsgBox(“Selamat Pagi Dunia”MsgboxStyle.Information + MsgboxStyle.OkOnly,”Pesan”)
End Sub
Dim Pesan As String = “Selamat Pagi Dunia"

Fungsi

       Fungsi adalah blok kode yang dapat dipanggil untuk mengerjakan suatu tugas tertentu dan menghasilkan nilai kembalian. Perbedaannya dengan prosedure adalah sebuah function akan mengembalikan sebuah nilai balik pada pemanggilnya, sehingga pemanggil sebuah fuction harus memiliki penampung dari hasil function,
Penampung tersebut dapat berupa sebuah variabel atau lainnya. Biasanya fuction dibuat untuk kode program pehitungan, atau kode program lain yang akan melakukan pengembalian nilai data.

Fuction juga terdiri dari 2 jenis,

• Menggunakan Paramenter (Subrutin)
• Tidak Menggunakan Parameter

Tanpa Parameter

[Private] [Public] Function Nama_Function () as TipeDataNilaiBalik
Isi Function
Return NilaiBalik
End Sub

Dengan Parameter

[Private] [Public] Function Nama_Function (Param  as Tipe Data, Param2 as TipeData) As Tipe Data
Isi Function
Return NilaiBalik
End Sub



Contoh Fungsi:

Function CkeF(ByVal celcius As Double) As Double

Return (((0.9 / 0.5) * celcius) + 32)

End Function


VB 2010 juga menyediakan Function yang sering di pakai. Berikut Function dari VB

• Fungsi String

 Asc(), Chr(), Lcase, Left(), Len(), Ltrim(), Mid(), Right(),  Str() , Ucase(), Val(), Trim(), Dsb

• Fungsi Numerik

Abs(), Atn(),  Avg(), cos(), Count(), Exp(), Int(), Log(), Max(), Min(), Mod(), Sin(), Sqr(), Sum(), Tan(), Dsb ...

•  Fungsi Tanggal

Date, Day, Hour, Minute, Mounth, Now, Second, Time...

Pemanggilan Procedure dan Function 

Procedure
Private sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
TampilPesan() 'Tanpa Parameter
TampilPesan('Halo') 'Dengan Parameter
End Sub

Private sub Form1_Load(ByVal sender As System.Object, ByVal e As

TxtFahrenheit.Text = CkeF(txtCelcius.Text)
End Sub

Parameter

Umumnya sebuah prosedur yang dipanggil menyertakan variabel. Variabel ini disebut dengan parameter.

Parameter Di bagi menjadi 2 Jenis

• Parameter Nyata (Actual Parameter) 

Parameter yang dikirim dari modul utama ke prosedur .

• Parameter Formal 

Parameter yang ada/dituliskan pada judul prosedur 

       Parameter nyata yang dikirim secara Nilai (By Value atau ByVal) ke dalam sebuah prosedur, tidak menyebabkan perubahan-perubahan yang terjadi pada nilai parameter formal. Pada subrutin yang menggunakan parameter ByVal maka Subrutin akan memiliki salinan lokal sendiri dari variabel yang memanggil (parameter) dan proses perubahan tidak akan mengubah nilai variabel asal. Parameter nyata yang dikirim secara Acuan (By Reference atau ByRef) ke dalam sebuah prosedur, menyebabkan perubahan-perubahan yang terjadi pada nilai parameter formal. Pada subrutin yang menggunakan parameter ByRef maka Subrutin tidak akan membuat salinan terpisah dari variabel parameter. Nilai baru yang dihasilkan subrutin akan digunakan sebagai referensi ke parameter asli.


Sub CostPlusInterest(ByRef Cost As Single, ByRef Total As Single)
Cost = Cost * 1.05 'add 5% to cost...
Total = Int(Cost) 'then make integer and return
End Sub

Dim Price, TotalPrice As Single
Price = 100
TotalPrice = 0
CostPlusInterest(Price, TotalPrice)
MsgBox(Price & " at 5% interest is " & TotalPrice)

Sub CostPlusInterest(ByVal Cost As Single, ByRef Total As Single)
Cost = Cost * 1.05 'add 5% to cost...
Total = Int(Cost) 'then make integer and return
End Sub

Dim Price, TotalPrice As Single
Price = 100
TotalPrice = 0
CostPlusInterest(Price, TotalPrice)
MsgBox(Price & " at 5% interest is " & TotalPrice)