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
Penjelasan kode pemprogramanya :
Setiap ada variabel kita dahulukan dengan kata Dim artinya dimensi kita gunakan As/sebagai decimal karena perhitungan angka.
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......!!!!
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)
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
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