Membuat Tabel Pembelian Barang dgn Vb.Net
Tampilan Awal Form1.vb [Design]
Listing Program untuk Form1.vb [Design]
Public Class Form1
Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
TxtTotal.Text = "Rp " & (TxtJlh.Text * TxtHarga.Text)
End Sub
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
CmbChoice.Text = ""
TxtJlh.Text = ""
TxtHarga.Text = ""
TxtTotal.Text = ""
BtnCancel.Enabled = True
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
End
End Sub
End Class
Tampilan Program setelah di-RUN
