Tugas Teori 5 | Latihan Function Visual Lanjutan
Awesome Image

Assalamualaikum wr.wb

Pada pertemuan kali ini saya akan membahasa Materi "Function" Yuk langsung simak dibawah ini :
 
1. Function
Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
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 : Latihan 4 Function Parameter
 
 
Source Code :
Public Class Form4
    '2017230092
    'Naufal Farisi Zamzam
    Function BagiDua(ByVal sNilai As Single) As Single
        Return sNilai / 2
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Naufal Farisi Zamzam"
        TextBox1.Text = BagiDua(5)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim psn As String
        psn = MsgBox("Yakin Mau Cabut?", vbYesNo, "naufalfz.my.id")
        If psn = vbYes Then
            End
        End If
    End Sub
End Class
 
Contoh : Latihan 5 Function 2 Parameter
 
 
Source Code :
Public Class Form5
    '2017230092
    'Naufal Farisi Zamzam
    Private Function HasilBagi(ByVal sNilai As Single, ByVal sBagi As Single) As Single
        Return sNilai / sBagi
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Naufal Farisi Zamzam"
        TextBox1.Text = HasilBagi(7, 2)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim psn As String
        psn = MsgBox("Yakin Mau Cabut?", vbYesNo, "naufalfz.my.id")
        If psn = vbYes Then
            End
        End If
    End Sub
End Class
 
Contoh : Latihan 6 Sub Function dengan Parameter Optonal
 
 
Source Code :
Public Class Form6
    '2017230092
    'Naufal Farisi Zamzam
    Public Function TampilkanPesan(Optional ByVal IsiPesan As String = "") As String
        Me.Text = "Naufal Farisi Zamzam"
        If IsiPesan = "" Then
            Return "Tidak ada pesan"
        Else
            Return "Isi pesan adalah " & IsiPesan
        End If
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TampilkanPesan()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TampilkanPesan("Welcome Fellas!")
    End Sub
 
Sekian Materi "Function" kali ini kurang lebihnya mohon maaf, jika ada pertanyaan, masukan dan saran silahkan kontak saya di bawah ini.
 
Wassalamualaikum wr.wb