Membuat Aplikasi Penjualan Alat Tulis Sederhana VB.NET

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