PERTEMUAN 10 : PROCEDURE, FUNCTION & MODULE

                                    

PROCEDURE

Public Class FormProcedure

    Sub Bersih()

        TxtKodeBarang.Text = ""

        TxtNamaBarang.Text = ""

        TxtSatuan.Text = ""

        TxtJumlahBarang.Text = ""

        TxtTotalBayar.Text = ""

        TxtKodeBarang.Focus()

        TxtTotalBayar.Enabled = False

    End Sub

    Private Function Hitung()

        Dim Jumlah, HargaSatuan, Total As Integer

        Jumlah = TxtJumlahBarang.Text

        HargaSatuan = TxtHargaBarang.Text

        Total = Jumlah * HargaSatuan

        TxtTotalBayar.Text = Total

        Return Total

    End Function

    Sub CekDataKosong()

        If TxtKodeBarang.Text = "" Then

            MessageBox.Show("Kode Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        ElseIf TxtNamaBarang.Text = "" Then

            MessageBox.Show("Nama Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtNamaBarang.Focus()

        ElseIf TxtSatuan.Text = "" Then

            MessageBox.Show("Satuan harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        ElseIf TxtJumlahBarang.Text = "" Then

            MessageBox.Show("Harga Satuan Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        Else

            Call Hitung()

        End If

    End Sub

    Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click

        Call Bersih()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Bersih()

    End Sub

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        Call CekDataKosong()

    End Sub

    Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click

        Dim Tutup As String

        Tutup = MessageBox.Show("Yakin Tutup Form Ini ?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Tutup = MsgBoxResult.Yes Then

            End

        Else

            Exit Sub

        End If

    End Sub

End Class

                                                      Function

Public Class FormFunction

    Function Akar(ByVal a As Decimal) As String

        Return Math.Sqrt(a)

    End Function

    Function Pangkat(ByVal a As Decimal, ByVal b As Decimal) As String

        Return a ^ b

    End Function

    Function Pembagian(ByVal a As Decimal, ByVal b As Decimal) As String

        Return a / b

    End Function

    Function Perkalian(ByVal a As Decimal, ByVal b As Decimal) As String

        Return a * b

    End Function

    Function Pemjumlahan(ByVal a As Decimal, ByVal b As Decimal) As String

        Return a + b

    End Function

    Function Pengurangan(ByVal a As Decimal, ByVal b As Decimal) As String

        Return a - b

    End Function

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        If RadioButtonAkarKuadrat.Checked = True Then

            TxtHasil.Text = Akar(TxtVariabel1.Text)

        ElseIf RadioButtonPangkat.Checked = True Then

            TxtHasil.Text = Pangkat(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPembagian.Checked = True Then

            TxtHasil.Text = Pembagian(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPerkalian.Checked = True Then

            TxtHasil.Text = Perkalian(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPenjumlahan.Checked = True Then

            TxtHasil.Text = Pemjumlahan(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPengurangan.Checked = True Then

            TxtHasil.Text = Pengurangan(TxtVariabel1.Text, TxtVariabel2.Text)

        End If

    End Sub

    Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click

        End

    End Sub

End Class

                                                                                                                       MODULE

Module Tes_Module

    Public Panjang As Integer

    Public Lebar As Integer

    Public Function Luas_persegi(ByVal a As Integer, ByVal b As Integer)

        Return (Panjang * Lebar)

    End Function

End Module

Public Class FormModule

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        Try

            Panjang = Me.TxtPanjang.Text

            Lebar = Me.TxtLebar.Text

            Me.TxtHasil.Text = Luas_persegi(Panjang, Lebar)

        Catch ex As Exception

            MsgBox(ex.Message)

            MsgBox("Salah Menginputkan Data Input Angka", MsgBoxStyle.Information, "INFORMATION")

            MsgBox("Error Dalam Menghitung, Harap Masukkan Angka Ya", MsgBoxStyle.Information, "INFORMATION")

        End Try

    End Sub

End Class