Merupakan lanjutan/pengembangan dari
latihan 1 Membuat Aplikasi Penjualan Alat Tulis Sederhana
Buatlah form seperti gambar dibawah ini
- Tambahkan Tool-toolnya sbb :
Label 7 buah
label1 properties Text = Penjualan alat tulis
label2 properties Text = Alat tulis
label3 properties Text = Harga Satuan
label4 properties Text = JML
label5 properties Text = Buku
label6 properties Text = Pensil
label7 properties Text = Penghapus
Textbox 8 buah
textbox1 propertiesnya: Text = 3000 (harga buku 3000), TextAlign= right (rata kanan)
textbox2 propertiesnya: Text = 2500 (harga pensil 2500), TextAlign= right (rata kanan)
textbox3 propertiesnya: Text = 2000 (harga pensil 2000), TextAlign= right (rata kanan)
textbox4 propertiesnya: Text = 0 , TextAlign= right(rata kanan) untuk menampilkan hasil penjumlahan/total harga
textbox5 propertiesnya: Text = 0, (JML buku)
textbox6 propertiesnya: Text = 0, (JML pensil)
textbox7 propertiesnya: Text = 0, (JML penghapus)
textbox8 propertiesnya: Text = 0, (untuk menampilkan hasil jumlah barang)
Button 1 buah
Button1 propertiesnya : text = total harga (tombol untuk melakukan perhitungan)
- Selanjutnya adalah memasukan kode pemprogramannya
- Doubel klik pada button1/total harga kemudian copy code dibawah ini
alangkah baiknya diketik ulang unuk mengetahui bahwa vb.net 2008 bisa
mencari kata kunci coding secara otomatis
Dim bk As Decimal = TextBox1.Text
Dim ps As Decimal = TextBox2.Text
Dim ph As Decimal = TextBox3.Text
Dim JMLbk As Decimal = TextBox5.Text
Dim JMLps As Decimal = TextBox6.Text
Dim JMLph As Decimal = TextBox7.Text
TextBox8.Text = JMLbk + JMLps + JMLph
TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)
Penjelasan kode pemprogramanya :
Setiap ada variabel kita dahulukan dengan kata
Dim artinya
dimensi kita gunakan
As/sebagai
decimal karena perhitungan angka.
- variabel dari buku disingkat jadi bk
- variabel dari pensil disingkat jadi ps
- variabel dari penghapus disingkat jadi ph
- variabel dari Jumlah buku disingkat jadi JMLbk
- dst
Rumus perhitungan
TextBox8.Text = JMLbk + JMLps + JMLph
TextBox8.Text untuk menampilkan jml seluruh barang
menghitung jumlah seluruh barang uang dijual merupakan penjumlahan dari juml buku + jumlah pensil + jumlah penghapus
TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)
TextBox4.Text Menampilkan total harga merupakan penjumlahan dari harga barng x dengan jml barng
Doubel klik pada button1/total harga kemudian ketik code dibawah ini
Dim bk As Decimal = TextBox1.Text
Dim ps As Decimal = TextBox2.Text
Dim ph As Decimal = TextBox3.Text
Dim JMLbk As Decimal = TextBox5.Text
Dim JMLps As Decimal = TextBox6.Text
Dim JMLph As Decimal = TextBox7.Text
TextBox8.Text = JMLbk + JMLps + JMLph
TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)
Penjelasan kode pemprogramanya :
Setiap ada variabel kita dahulukan dengan kata dim artinya dimensi kita gunakan
AS/sebagai decimal untuk perhitungannya
variabel dari buku disingkat jadi bk
variabel dari pensil disingkat jadi ps
variabel dari penghapus disingkat jadi ph
variabel dari Jumlah buku disingkat jadi JMLbk
dst
TextBox8.Text = JMLbk + JMLps + JMLph
TextBox8.Text untuk menampilkan jml seluruh barang
menghitung jumlah seluruh barang uang dijual merupakan penjumlahan dari
juml buku + jumlah pensil + jumlah penghapus
TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)
TextBox4.Text Menampilkan total harga merupakan penjumlahan dari harga
barng x dengan jml barng
Create
Sumber: http://www.tipsh4re.com/2011/04/membuat-aplikasi-penjualan-alat-tulis.html