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
