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 :

10 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
  6. Selamat datang di intanqq

    Ayo bergabung bersama kami, tersedia 7 permainan dalam 1 ID:
    - Sakong (New Game)
    - Bandar Poker (New Game)
    - BandarQ (Hot Game)
    - Poker
    - Domino
    - Capsa Online
    - AduQ

    Apa kelebihan bermain di intanqq? Berikut kelebihannya:
    - BONUS TURNOVER 0.3% SETIAP HARI
    - BONUS XTRA TURNOVER SETIAP MINGGUNYA
    - BONUS REFERAL 10% +10% SEUMUR HIDUP!!
    - MIN DEPO IDR 15.000 dan Proses super cepat 1 menit.
    - Bisa dimainkan di Smartphone Versi Android dan Iphone.
    - Win rate 98%
    - No robot
    - Fair play 100% player vs player

    Tunggu apalagi? Ayo segera bergabung sebelum ketinggalan promonya :)

    bandarq
    dominoqq
    domino99 online terpercaya
    Domino Qiu Qiu
    dominoqq

    BalasHapus
  7. Selamat datang di intanqq

    Ayo bergabung bersama kami, tersedia 7 permainan dalam 1 ID:
    - Sakong (New Game)
    - Bandar Poker (New Game)
    - BandarQ (Hot Game)
    - Poker
    - Domino
    - Capsa Online
    - AduQ

    Apa kelebihan bermain di intanqq? Berikut kelebihannya:
    - BONUS TURNOVER 0.3% SETIAP HARI
    - BONUS XTRA TURNOVER SETIAP MINGGUNYA
    - BONUS REFERAL 10% +10% SEUMUR HIDUP!!
    - MIN DEPO IDR 15.000 dan Proses super cepat 1 menit.
    - Bisa dimainkan di Smartphone Versi Android dan Iphone.
    - Win rate 98%
    - No robot
    - Fair play 100% player vs player

    Tunggu apalagi? Ayo segera bergabung sebelum ketinggalan promonya :)

    bandarq
    dominoqq
    domino99 online terpercaya
    Domino Qiu Qiu
    dominoqq

    BalasHapus
  8. Mantabs Tutornya gan, bisa dijadikan referensi nih
    jangan lupa mampir juga gan
    http://carakuvb6.blogspot.co.id

    BalasHapus