Contoh Fungsi Dan Prosedur Di Visual Basic [Pertemuan: VI]

Prosedur dan fungsi merupkana blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut. Dengan prosedur penulisan program menjadi lebih modular dan terstruktur. Prosedur tidak mengembalikan nilai sedangkan fungsi mengembalikan nilai. Secara garis besar ada tiga jenis prosedur yaitu : Sub prosedur, Function prosedur dan event prosedur.

Pada Sub prosedur dapat memiliki parameter ataupun tidak. Parameter tersebut bisa berjumlah lebih dari satu. Pernyataan yang ada didalam prosedur akan dieksekusi ketika prosedur tersbut dipanggil. Sebuah prosedur didefinisikan dengan kata kunci Sub dan End Sub.

ByVal merupakan sebuah cara melewatkan nilai dari sebuah argumen ke sebuah prosedur pengganti dari melewatkan alamatnya. Hal ini mengizinkan prosedur untuk mengakses sebuah salinan dari variabel. Sebagai sebuah hasil, nilai variabel sebenarnya tidak dapat diganti oleh prosedur yang melewatkannya.

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

3 Buah GroupBox
- GroupBox1 : Text : Jenis Bilangan
- GroupBox2 : Text : Hasil
- GroupBox3 : Text : Perhitungan
1 Buah ComboBox
- Items :
  - Ganjil
  - Genap
  - Prima
  - Fibonaci
1 Buah ListBox : (name) : bilangan
3 Buah Text Box
- TextBox1 : (name) : txtbilsatu
- TextBox2 : (name) : txtbildua
- TextBox3 :(name) : txthasil
2 Buah Button
- Button 1 : (name) : btnInputBil | Text : Input Bilangan
- Button 2 : (name) : btnExit | Text : Exit

4. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :

Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click
        Dim strGanjil, strGenap, strPrima, strFibo As Integer
        proses(strGanjil, strGenap, strPrima, strFibo)
        ShowSum(txtbilsatu.Text, txtbildua.Text)

End Sub

5. Lalu tambahkan koding koding ini di bagian halaman kodingnya, (dibawah koding no.4)

Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
        Dim intSum As Integer

        intSum = intNum1 + intNum2

        txthasil.Text = intSum
    End Sub

    Sub proses(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibo As String)
        If (ComboBox1.SelectedIndex.Equals(0)) Then
            BilGanjil()

        ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
            BilGenap()

        ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
            BilPrima()

        ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
            BilFibo()
        End If
    End Sub

    Sub BilGanjil()
        Dim ganjil As Integer
        bilangan.Items.Clear()
        ganjil = 1
        Do While ganjil <= 20
            bilangan.Items.Add(ganjil)
            ganjil = ganjil + 2
        Loop
    End Sub

    Sub BilGenap()
        Dim genap As Integer
        bilangan.Items.Clear()
        genap = 0
        Do While genap <= 20
            bilangan.Items.Add(genap)
            genap = genap + 2
        Loop
    End Sub

    Sub BilPrima()
        Dim prima As Integer

        bilangan.Items.Clear()

        Dim x As Integer
        Dim y As Integer
        Dim z As Integer

        For x = 2 To 100
            z = 0
            For y = 2 To x
                prima = x Mod y
                If prima = 0 Then
                    z = z + 1
                End If
            Next y
            If z <= 1 Then
                bilangan.Items.Add(x)
            End If
        Next x
    End Sub

    Sub BilFibo()
        bilangan.Items.Clear()
        Dim a As Integer = 0
        Dim b As Integer = 1
        Dim fib As Integer = 0

        bilangan.Items.Add(“1″)
        Do
            fib = a + b
            a = b
            b = fib
            bilangan.Items.Add(fib.ToString)
        Loop While fib <= 100
    End Sub

6. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar. Maka hasilnya jika kita menekan tombol “Input Bilangan” maka hasilnya akan jalan 2 2 nya.

Hasilnya :

Sekian dan Terima Kasih.

Monday 16 March 2015

Contoh Fungsi Dan Prosedur Di Visual Basic [Pertemuan: VI]