Sabtu, 15 September 2012

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

Untuk lebih jelasnya silahkan download file pdfnya disini Latihan 2 VB.NET

Selamat mencoba dan berkarya......!!!!

Tidak ada komentar:

Posting Komentar