Ini adalah tampilan awal dari program kasir sederhana buatan kami.
KOMPONEN | PORPERTY | |
Label | Name = Label1 | Caption = Nama Barang |
Label | Name = Label2 | Caption = Harga |
Label | Name = Label3 | Caption = Jumlah |
Label | Name = Label4 | Caption = Total Harga |
Label | Name = Label5 | Caption = Jumlah Uang Kembalian |
Label | Name = Label6 | Caption = 0 |
Label | Name = Label7 | Caption = Rupiah |
Label | Name = Label8 | Caption = Jumlah Uang Yang Diberi |
Label | Name = Label9 | Caption = Mesin Kasir Rhatavarium |
Label | Name = Label10 | Caption = Daftar Item |
Label | Name = Label11 | Caption = Makanan |
Label | Name = Label12 | Caption = Minuman |
Label | Name = Label13 | Caption = Other |
Label | Name = Label14 | Caption = http://rhatavarium.blogspot.com/ |
Label | Name = LblBarang | Caption ( dikosongkan ) |
Label | Name = LblHarga | Caption ( dikosongkan ) |
Command | Name = Command1 | Caption = Hitung Total |
Command | Name = Command2 | Caption = Refresh |
Command | Name = Command3 | Caption = Hitung Jumlah |
Command | Name = Command4 | Caption = Masukan Minuman |
Command | Name = Command5 | Caption = Refresh |
Command | Name = Command6 | Caption = Keluar Program |
Command | Name = Command7 | Caption = Masukan Makanan |
Command | Name = Command8 | Caption = Masukan Other |
Textbox | Name = Textbox 3 | Text = ( dikosongkan ) |
Textbox | Name = Textbox 4 | Text = ( dikosongkan ) |
Textbox | Name = Textbox 5 | Text = ( dikosongkan ) |
Listbox | Name = List1 | |
Listbox | Name = List2 | |
Listbox | Name = List3 | |
Sekarang kita masuk ke codingnya
1. Ini adalah koding di formnya. Fungsi dari label7 dan label8 .visible = False adalah. Agar di awal program di jalankan label7 dan label 8 di perintahkan untuk menghilang
2. List1, list2, list3 .additem berfungsi sebagai menambah daftar kedalam list
Tampilan sebelum program di jalankan
Tampilan sesudah program di jalankan
Lihat rupiah dan jumlah uang yang di berinya menghilang.
1. Seharusnya yang menhilang adalah angka 0 dan jumlah uang yang di berinya. Karena sudah terlanjur jadi dan malas untuk menggantinya jadi gpp yah.
2. List1 2 dan 3 terdapat barang di jual,
Coding untuk command7
[ dim jumlah as integer ] sebenarnya ini ga kepake cuman males aja ngapusnya jadi ikutan ke printscreen :P
If List1.text = “” then
Fungsi ini berguna untuk mengingatkan kita jika kita belum memilih barang.
Ini tampilan jika kita tidak memilih barang
Select case list1.text
Terdapat 4 case di sini yang artinya ada 4 barang yang di jual.
Lblbarang.caption = list1.text
Fungsi ini berguna untuk memindahkan item yang kita pilih yang berada di list1.text ke lblbarang.
Lblharga.caption = harga
Fungsi ini berguna untuk memindahkan item yang berada di case [ pada kata harga ] ke lblharga.
Coding untuk command1
Jumlah = text3.text
Fungsi ini berguna untuk member nama text3.text sebagai jumlah
Harga = lblharga
Sama seperti jumlah = text3.text
Text4.text = jumlah * harga
Di sini penjumlahannya. Text4.text akan menampilkan hasil dari jumlah dikali harga. Jika kita menklik command1
Coding untuk command3
D = int (text4.text)
Int adalah agar computer membacanya sebagai number
F = e – d
Jika kita mengklik command3, maka command3 akan menjumlahkan text4.text – text5.text, yang kemudian akan di tampilkan di label6
Label6.caption = f
Contoh pengaplikasianya
Refensi :
Krisna Visual basic 6
0 comments:
Post a Comment