Program Penjualan Memakai Visual Basic

                                                       UTS UTS malah posting,,,ckkckkkc,,,hehhe. Beginilah kehidupan mahasiswa, kadang susah dimengerti apa maunya.Postingan kali ini tentang buat program pakai Visual Basic tentang program penjualan yang hasil nya seperti gambar di atas itu..

Sebenernya program ini udah lama dibuat waktu smster 2 tapi baru bisa sempet diposting sekarang pas lagi UTS.hehhe

Program nya gampang dibuat nya ,yang penting kalian bikin design nya seperti gambar dibawah ini yah..

 

setelah itu masuk kan koding di bawah ini

dan ini pejelasan tentang coding nya :

Private Sub Command1_Click() >menyatakan awal dari sebuah perintah

End > keluar dari program

End Sub >akhir dari sebuah perintah

Private Sub Command2_Click() >menyatakan awal dari sebuah perintah

barang.Text = " "

harga.Text = " "

total.Text = " "

JUMLAH.Text = " "

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

>Mengosongkan  semua .text untuk membuatnya menjadi clear

End Sub >akhir dari sebuah perintah

Private Sub PROSES_Click() >menyatakan awal dari sebuah perintah

If TV.Value = "true" Then

barang.Text = "TV"

harga.Text = 5000

>jika tv.value adalah true,maka barang adalah tv dan harga adalah 5000

ElseIf majalah.Value = "true" Then

barang.Text = "majalah"

harga.Text = 10000

>selain itu jika majalah.value adalah true,maka barang adalah majalah dan harga adalah 10000

ElseIf koran.Value = "true" Then

barang.Text = "koran"

harga.Text = 2000

>selain itu jika koran.value adalah true,maka barang adalah koran dan harga adalah 2000

End If  >akhir dari perintah if

total.Text = harga.Text * JUMLAH.Text

>total merupakan harga satuan dikali jumlah barang

If total.Text > 50000 Then

Text2.Text = "10%"

End If

>jika total lebih besar dari 50000 maka akan mendapat discount 10%

Text3.Text = total.Text * 0.9

>harga setelah discount adalah total dikali 0.9

End Sub >akhir dari sebuah perintah

nahh jadi kan...mudah bgt,,hhe

semoga dapet berguna bagi kalin ,terutama adik kelas saya nanti pas kuliah di gunadarma,,

terima kasih  

jangan lupa yah budayakan commrnt,,:)))