MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG

Tampilan from Desain form:1 Form1        (Name) : frmPersegiPanjang                      Text : Luas dan Keliling Persegi Panjang                      FormBorderStyle : FixedSingle                     ...

PENJUALAN BARNG

frm penjualn brang jika pembeli adalah MEMBER KODE YANG DIGUNAKAN Public Class frmListBoxPenjualanD3 Dim PilihanBarang, MEMBER As String Dim Diskon, Total, TotalSetelahDiskon, dibayar, kembali, harga, PPN, totSetelahPPN, qty As Single Sub KosongkanForm() Me.ListBox1.Focus() Me.txtNamaBarang.Text = "" Me.txtHarga.Text = 0 Me.txtJmlBeli.Text = 0 Me.txtTotal.Text = 0 Me.txtDiskon.Text = 0 Me.txtTotalSetelahDiskon.Text = 0 txtPPN.Text = 0 txtTotalSetelahPPN.Text = 0 cmbMember.Text = "" dibayar = 0 kembali = 0 txtdibayar.Text =...