Jumat, 18 Januari 2013

Visual Basic : Program Penjualan Barang


Ini adalah tampilan form untuk membuat program penjualan barang. Setelah membuat form seperti di bawah ini, buat agar textbox Nama Barang, Harga Satuan, Total Harga, Discount, PPN, Total Bayar dan Kembali tidak dapat di akses (properti Enabled di set ke false).




Berikut Listingnya :
Option Explicit
Dim nama As String
Dim harga As Currency
Dim diskon As Currency
Dim total As Currency
Dim totalhrg As Currency
Dim ppn As Currency

Private Sub Combo1_Click()
‘Listing untuk combo1
If Combo1.Text = "A001" Then
nama = "Mesin Cuci"
harga = "1000000"
ElseIf Combo1.Text = "B002" Then
nama = "Kulkas"
harga = "1500000"
ElseIf Combo1.Text = "C003" Then
nama = "Televisi"
harga = "1250000"
ElseIf Combo1.Text = "D004" Then
nama = "Komputer"
harga = "3500000"
End If
Text1.Text = nama
Text2.Text = Format(harga, "###,###")
End Sub

Private Sub Command1_Click()
‘Listing Tombol Hitung
totalhrg = harga * Val(Text3.Text)
ppn = totalhrg * 0.1
If Val(Text3.Text) > 5 Then
totalhrg = totalhrg
diskon = totalhrg * 0.3
Else
totalhrg = totalhrg
diskon = 0
End If
Text4.Text = Format(totalhrg, "###,###")
Text5.Text = Format(diskon, "###,###")
Text6.Text = Format(ppn, "###,###")
total = (totalhrg - diskon) + ppn
Text7.Text = Format(total, "###,###")
End Sub

Private Sub Command2_Click()
‘Listing Tombol Ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Text = "-Pilih-"
Combo1.SetFocus
End Sub

Private Sub Command3_Click()
‘Listing Tombol Kembali
End
End Sub

Private Sub Form_Load()
‘Listing untuk Form
Combo1.Text = "-Pilih-"
Combo1.AddItem "A001"
Combo1.AddItem "B002"
Combo1.AddItem "C003"
Combo1.AddItem "D004"
End Sub

Private Sub Text8_LostFocus()
‘Listing untuk Text8
Text9.Text = Format(CSng(Text8.Text) - CSng(Text7.Text), "Standard")
Command2.SetFocus
End Sub

Ini Outputnya :



Artikel Terkait :

Bagikan :

7 komentar:

  1. Mantap gan, untuk pengembangan ke arah yang lebih kompleks lagi saya punya reverensi untuk kita belajar video tutorialnya ni ada di sini :http://www.jualtutorialku.com/tutorial-programing

    BalasHapus
  2. KENAPA SYA NDA BISA MEMPROSES. MALA CMAN TEXT1 DGN TEXT 2 YG TERISI PAS DI TEKAN HITUNG KOSONG SMUA,,,

    BalasHapus
  3. INI CMA KHUSUS SATU MACAM BARANG SAJA???

    BalasHapus
  4. beri tahu saya mengapa text tidak muncul didepan freme

    BalasHapus
  5. mbk kok saya pencet hitung ,ditext 456789 gak bisa muvul ya harganya

    BalasHapus