Latihan Menggunakan Procedure dan Function pada VB.Net

Latihan 1 Menggunakan Procedure

Berikut Source Codenya :

Public Class proc1

    'nadiahtami 2017230007

    Private Sub gantitext(ByVal teksbaru As String)

        TextBox1.Text = teksbaru

    End Sub

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

        'btn pilih

        gantitext("unsada")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 2 Menggunakan Procedure

Berikut Source Codenya :

Public Class proc2

    'nadiahtami 2017230007'

    Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)

        MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End Sub

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

        'btn proses

        TampilkanPeringatan("Isi Data Sesuai Dengan Format !!", "Peringatan")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 3 Menggunakan Procedure

Berikut Source Codenya :

Public Class proc3

    'nadiahtami 2017230007

    Private Sub ubahpesan(Optional ByVal pesan As String = "")

        If pesan = "" Then

            MsgBox("Tidak ada pesan !!")

        Else

            MsgBox(pesan)

        End If

    End Sub

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

        'btn proses

        Call ubahpesan()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn ubah

        Call ubahpesan("Selamat Datang")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 1 Menggunakan Function

Berikut Source Codenya :

Public Class Function1

    'nadiahtami 2017230007'

    Function bagidua(ByVal nilai As Single) As Single

        Return nilai / 2

    End Function

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

        'btn hitung

        TextBox1.Text = bagidua(5)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 2 Menggunakan Function

Berikut Source Codenya :

Public Class Function2

    Function hasilbagi(ByVal nilai As Single, ByVal bagi As Single) As Single

        Return nilai / bagi

    End Function

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

        'btn hitung

        TextBox1.Text = hasilbagi(7, 2)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 3 Menggunakan Function

Berikut Source Codenya :

Public Class Function3

    'nadiahtami 2017230007

    Public Function tampilkanpesan(Optional ByVal isipesan As String = "") As String

        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

        'btn proses

        TextBox1.Text = tampilkanpesan()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'btn tampil pesan

        TextBox1.Text = tampilkanpesan("Selamat Datang !")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'btn keluar

        Dim pesan As String

        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class