Penerapan Subroutine dan Fungsi Pada Visual Basic 2008

Pengertian  Subroutine
Subroutine atau procedure adalah suatu blok program terpisah yang digunakan untuk mengerjakan suatu pekerjaan tertentu. Kegunaan yang umum dari subroutine adalah menghemat kode program bila terjadi proses yang sama diulang berkali-kali. Salah satu bentuk subroutine di dalam visual basic dikenal dengan event dari komponen. Penulisan subroutine di dalam Visual Basic dibedakan menjadi 3 macam:
(1) Subroutine yang bersifat event dari komponen tertentu (subroutine ini sudah tersedia dalam library Visual Basic sebagai modul OOP dalam Visual Basic) dituliskan dengan:
Private Sub Komponen_Event(Input)
<blok program dalam subroutine>
…………………………………………………………………………………
End Sub
(2) Subroutine yang bersifat metode private dimana pemanggilan subroutinenya hanya ditulis dengan nama subroutine (Subroutine ini adalah subroutine yang dibuat sendiri), dituliskan dengan:
Private Sub Nama_Fungsi(Input)
<blok program dalam subroutine>
…………………………………………………………………………………
End Sub
(3) Subroutine yang bukan event atau metode, dimana pemanggilannya menggunakan call NamaSubroutine, dituliskan dengan:
Sub Komponen_Event(Input)
<blok program dalam subroutine>

Pengertian  Fungsi
Fungsi atau Function adalah suatu blok program yang digunakan untuk suatu pekerjaan tertentu. Bedanya fungsi dan subroutine adalah subroutine tidak menghasilkan nilai sedangkan fungsi menghasilkan nilai. Fungsi sering kali digunakan untuk proses-proses perhitungan. Pernyataan fungsi secara umum dituliskan dengan:

Output = Fungsi (Input)
Sebagai contoh untuk menyatakan fungsi f dengan input x dan output y dituliskan dengan y=f(x).
Definisi fungsi di dalam Visual Basic mengikuti aturan fungsi dimana ada input dan ada output dituliskan dengan:
Private Function NamaFungsi(Input) As Tipe_Data_Output
<Blok di dalam fungsi>
………………………………………………
NamaFungsi=<Nilai yang keluar dari Fungsi>
End Function

Contoh Program
1. Program Perkalian

Script Programnya

Module Module1

    Dim a As Integer

    Public Sub DisplayResult(ByVal result As Integer)

        MessageBox.Show(Str(a))

    End Sub

    Public Function penjumlahan(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

        a = value1 + value2

        Return a

    End Function

    Public Function pengurangan(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

        a = value1 - value2

        Return a

    End Function

    Public Function perkalian(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

        a = value1 * value2

        Return a

    End Function

    Public Function pembagian(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

        a = value1 / value2

        Return a

    End Function

    Public Function pangkat(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

        a = value1 ^ value2

        Return a

    End Function

End Module

Script kedua :

Public Class Form1

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

        If ComboBox1.SelectedIndex = 0 Then

            DisplayResult(penjumlahan(value1:=TextBox1.Text, value2:=TextBox2.Text))

        ElseIf ComboBox1.SelectedIndex = 1 Then

            DisplayResult(pengurangan(value1:=TextBox1.Text, value2:=TextBox2.Text))

        elseif ComboBox1.selectedIndex= 2 then

            DisplayResult(perkalian(value1:=TextBox1.Text, value2:=TextBox2.Text))

        ElseIf ComboBox1.SelectedIndex = 3 Then

            DisplayResult(pembagian(value1:=TextBox1.Text, value2:=TextBox2.Text))

        ElseIf ComboBox1.SelectedIndex = 4 Then

            DisplayResult(pangkat(value1:=TextBox1.Text, value2:=TextBox2.Text))

        End If

    End Sub

End Class

Hasil tampilannya :
Kalkulator Penjumlahan

Kalkulator Perkalian

Kalkulator Pembagian dan Perkalian