Pemanfaatan Constructor dan Desctructor Pada Visual Basic .Net

Untuk membuat konstruktor untuk kelas, buatlah sebuah prosedur bernama Sub New di manapun dalam definisi kelas. Untuk membuat konstruktor parameterized, tentukan nama dan tipe data argumen ke Sub New seperti Anda akan menentukan argumen untuk prosedur lainnya, seperti pada kode berikut. ntar saya jelakan lagi tekni pembuatanya dengan vidio agar jelas menyelesaikan masalah ini wk wk lagi males banyak ngetik

Public Class Buku Public Judul As String Private Harga As Single Public Total_Potongan, Total_Kotor, Total_Bersih As Single Public Event Penerbit(ByVal Nama_Penerbit As String) Public Function Potongan_Harga(ByVal Jumlah As Integer) As String If Jumlah >= 5 Then RaiseEvent Penerbit("Sulit Komputer") Potongan_Harga = "20%" Total_Kotor = Harga_Buku * Jumlah Total_Potongan = Harga_Buku * Jumlah * 20 / 100 Total_Bersih = Harga_Buku * Jumlah - Total_Potongan Else RaiseEvent Penerbit("Maxikom") Potongan_Harga = "0%" Total_Kotor = Harga_Buku * Jumlah Total_Bersih = Harga_Buku * Jumlah - Total_Potongan End If End Function Public Property Harga_Buku() As Single Get Return Harga End Get Set(ByVal Harga_Buku_Perbuah As Single) Harga = Harga_Buku_Perbuah End Set End Property Public Sub New() Total_Bersih = 0 Total_Kotor = 0 Total_Potongan = 0 End Sub End Class Public Class Form1 Dim WithEvents Penerbit As Buku Dim penjualan As New Buku Private Sub Nama_Penerbit(ByVal nama As String) Handles Penerbit.Penerbit Dim pesan = "Nama Penerbit Buku ini" + (nama) MessageBox.Show(pesan) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load penjualan.Judul = "Visual Basic 2008" penjualan.Harga_Buku = 45000 TxtJudul.Text = penjualan.Judul TxtHarga.Text = penjualan.Harga_Buku TxtPotHrg.Text = penjualan.Total_Potongan TxtTotKotor.Text = penjualan.Total_Kotor TxtTotBersih.Text = penjualan.Total_Bersih End Sub Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click TxtPotPrsen.Text = penjualan.Potongan_Harga(TxtJumlah.Text) TxtPotHrg.Text = penjualan.Total_Potongan TxtTotKotor.Text = penjualan.Total_Kotor TxtTotBersih.Text = penjualan.Total_Bersih End Sub End Class