Lahul Mu’min

Tanggal ini 26/06/2014 adalah dimana spesial buat aku ditanggal inilah aku menemukan kebahagian dan selama itulah aku orang yang paling bahagia sampai akhirnya semua berakhir di tanggal 05/07/2014  …
Aku cuk

image

up bahagia semoga tuhan mempertemukan kita di waktu yang indah Amin O:)

Terimakasih buat semuanya :)

#my deary *RL ♡♡

Membuat Aplikasi Penjualan Alat Tulis Sederhana VB.NET 2008

Membuat Aplikasi Penjualan Alat Tulis Sederhana VB.NET 2008

 

 

Latihan 2 VB.NET 

Membuat Aplikasi Penjualan Alat Tulis Sederhana

Pertama-tama bukalah vb.net 2008 dan klik new project  selanjutnya pilih windows form application

Buatlah form seperti pada gambar :

 

 

 

 

  • 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 untuk 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

 

Itulah sedikit ilmu dari saya J

 

Selamat mencoba !!!!!! :D

 

# share this gan ;)

 

salam woless :)

 

 

Cara Merubah Tampilan GOOGLE dengan nama Sendiri ( caranya mudah & gampang pingin tau kunjungi blog saya) (COVER)

caranya mudah kawan pertama :

Step1 : Isi Nama yang kamu inginkan

  • Step2 : Pilih jenis tampilan yang kamu inginkan

Copy addresnya dan save sebagai homenya. Tools —> internet option ——> paste addresnya di home pagenya.

contohnya ini…. [google]

na gimana ?? mudah kann  :) selamat mencoba semoga berhasil :)

#salam woles ;)