LISTING:
Dim harga, total As Currency
Dim diskon As Single
Dim satuan As String
Private Sub hapus_Click()
lblbarang.Caption = ""
lblharga.Caption = ""
lbljumlah.Caption = ""
lbldiscount.Caption = ""
lbltotal.Caption = ""
End Sub
Private Sub keluar_Click()
MsgBox "Terima kasih anda telah mamakai program ini dengan baik"
Unload Me
End Sub
Private Sub Form_Load()
List1.AddItem "Disket"
List1.AddItem "Buku"
List1.AddItem "Kertas"
List1.AddItem "Pulpen"
End Sub
Private Sub proses_Click()
Select Case List1.Text
Case Is = "Disket"
harga = 35000
satuan = "Box"
Case Is = "Buku"
harga = 25000
satuan = "Lusin"
Case Is = "Kertas"
harga = 28000
satuan = "Rim"
Case Is = "Pulpen"
harga = 20000
satuan = "Pak"
Case Else
MsgBox "mohon kita klik Barangnya Dulu supaya bisa jalan!"
Exit Sub
End Select
If Val(Text1.Text) > 20 Then
diskon = 20
ElseIf Val(Text1.Text) > 10 Then
diskon = 15
ElseIf Val(Text1.Text) > 0 Then
diskon = 0
Else
MsgBox " ingat'ki Jumlah Barangta Kosong Brow!!!"
Exit Sub
End If
total = harga * Val(Text1.Text) - (harga * Val(Text1.Text) * diskon / 100)
lblbarang.Caption = "Nama Barang : " & List1.Text
lblharga.Caption = "Harga Barang : " & harga & "/" & satuan
lbldiscount.Caption = "Diskon sebesar " & diskon & "%"
lbljumlah.Caption = "Banyaknya barang " & Text1.Text & " " & satuan
lbltotal.Caption = total
End Sub
Note: edit sendiri ki Formnya???????
Note: edit sendiri ki Formnya???????
Ditulis oleh:
Ismail Mujaddid™ - Senin, 17 Oktober 2011 - Rating: 5
Terima kasih sudah membaca artikel kategori Download
dengan judul Program Penjualan (VB). Anda bisa bookmark halaman ini dengan URL http://reshuffle-blog.blogspot.com/2011/10/program-penjualan.html. Jangan lupa share ke teman-teman ya.
Belum ada komentar untuk "Program Penjualan (VB)"
Posting Komentar