Program Salon

Public Class Class1


Public Function fpembayaran(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer, ByVal bil4 As Integer) As Integer

fpembayaran = Val(bil1) + Val(bil2) + Val(bil3) + Val(bil4)

End Function

End Class










Public Class Form1

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

Dim obj As New Class1

Label9.Text = obj.fpembayaran(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
MsgBox("Total Harga adalah Rp " + Label9.Text + " ")

End Sub
End Class