Aplikasi Penjualan Alat Tulis
Aplikasi ini di buat untuk
menghitung jumlah harga barang agar lebih cepat,
Disini saya
hanya baru memasukan 4 jenis barang saja, yaitu : BUKU TULIS, BUKU GAMBAR,
PENGGARIS, PENSIL.
Dengan harga
sebagai berikut :
BUKU TULIS = RP 2.500
BUKU GAMBAR = RP 3.500
PENGGARIS = RP 1.500
PENSIL = RP 1.000
Selanjutnya…
Seperti
gambar di atas… kita pilih jenis barang yang kita inginkan
Setelah itu
masukan jumlah barang nya..maka otomatis harga akan muncul sendiri
Setelah itu,
tinggal klik TOTAL HARGA maka akan menjadi seperti ini
Masukan
jumlah pembayaran nya maka akan menjadi seperti ini
Nah jika
ingin melakukan pemabayaran via ATM maka tinggal di checklist saja “pembayaran
via ATM” nya
Setelah itu
jika ingin mereset ulang penghitungan nya tinggal klik “RESET”
Dan jika
ingin keluar dari aplikasi tersebut tinggal klik “EXIT”
==============================================================
Nah ini di
coding untuk aplikasi tersebut
"DOUBLE KLIK DI JUMLAH BARANG YANG KE 1"
Public Class Form1
Private Sub
txtjml1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txtjml1.TextChanged
If barang1.Text = "buku
tulis" Then
txtharga1.Text = Val(txtjml1.Text) * 2500
ElseIf barang1.Text = "buku
gambar" Then
txtharga1.Text = Val(txtjml1.Text) * 3500
ElseIf barang1.Text = "penggaris"
Then
txtharga1.Text = Val(txtjml1.Text) * 1500
ElseIf barang1.Text = "pensil"
Then
txtharga1.Text = Val(txtjml1.Text) * 1000
End If
End Sub
"DOUBLE KLIK DI JUMLAH BARANG YANG KE 2"
Private Sub
txtjml2_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txtjml2.TextChanged
If barang2.Text = "buku
tulis" Then
txtharga2.Text = Val(txtjml2.Text) * 2500
ElseIf barang2.Text = "buku
gambar" Then
txtharga2.Text = Val(txtjml2.Text) * 3500
ElseIf barang2.Text = "penggaris"
Then
txtharga2.Text = Val(txtjml2.Text) * 1500
ElseIf barang2.Text = "pensil"
Then
txtharga2.Text = Val(txtjml2.Text) * 1000
End If
End Sub
"DOUBLE KLIK DI BUTTON TOTAL"
Private Sub
btntotal_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btntotal.Click
total1.Text = Val(txtharga1.Text) + Val(txtharga2.Text)
total2.Text = Val(total1.Text)
End Sub
"DOUBLE KLIK DI BUTTON HITUNG"
Private Sub hitung_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles hitung.Click
kembali.Text = Val(bayar.Text) - Val(total2.Text)
End Sub
"DOUBLE KLIK DI BUTTON RESET
Private Sub
reset_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
reset.Click
barang1.Text = ""
barang2.Text = ""
txtjml1.Text = ""
txtjml2.Text = ""
txtharga1.Text = ""
txtharga2.Text = ""
total1.Text = ""
total2.Text = ""
bayar.Text = ""
kembali.Text
= ""
barang1.Focus()
End Sub
"DOUBLE KLIK DI BUTTON SELESAI"
Private Sub
selesai_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
selesai.Click
Dim x = MsgBox("Anda
yakin ingin keluar...?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub
"DOUBLE KLIK DI KOTAK CHECKBOX"
"DOUBLE KLIK DI KOTAK CHECKBOX"
Private Sub
cek2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cek2.Click
Dim x = MsgBox("Anda
yakin ingin membayar dengan ATM BCA..?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
MsgBox("Silahkan Berikan Kartu ATM anda
pada KASIR~", MsgBoxStyle.Question, "Konfirmasi")
End If
If x = vbNo Then
MsgBox("Silahkan memberikan Uang Tunai
kepada Kasir kami~", MsgBoxStyle.Question, "Konfirmasi")
End If
End Sub
End Class
0 Comments:
Subscribe to:
Posting Komentar (Atom)