Social Icons

Pages

Kamis, 21 November 2013

Program Belanja Sederhana (VB)

ettho

1. buatlah program seperti gambar diatas
2. Atur Propertinya sebagai Berikut…
Form1 properti Name ‘FrmBelanja’, Caption ‘Program Belanja Sederhana’, StarUpPosition ‘2-Center Screen’…..! Tambahkan Pula 7 buah label dan beri propertieaCaptionnya sesuai dengan gambar diatas….! Trus tambahkan pula 7 buah textbox dengan PropertiesNamenya Txtnama, TxtHarga, TxtJumlah, TxtTotal, TxtDiskon, TxtBayar, TxtBonus…! Dan yang terakhir pasang pula tiga buah CommandButton dengan masing-Masing Properties Caption &Hitung, &Ulang, &Keluar.. serta Properties Namenya CmdHitung, CmdUlang dan CmdKeluar..
3. Double Klick pada Tombol Ulang dan tuliskan listin Berikut… Perlu diketahu pula bahwa tombol ini berfungsi untuk mengulangi hitungan bayar jadi semua textbox haru dalam keadaan kosong.
Private Sub cmdulang_Click()
‘Membersihkan isi Textbox
txtnama.Text = “”
txtharga.Text = “”
txtjumlah.Text = “”
txttotal.Text = “”
txtdiskon.Text = “”
txtbayar.Text = “”
txtbonus.Text = “”
txtnama.SetFocus
End Sub
4. Setelah itu Double Klik pada Tombol Hitung dan tuliskan listing berikut ini
Private Sub cmdhitung_Click()
‘Deklarasi Variabel
Dim Harga, Jumlah As Integer
Dim Total, Diskon, Bayar As Double
Dim Bonus As String
‘Deklarasi Input Harga dan Jumlah
Harga = txtharga.Text
Jumlah = txtjumlah.Text
‘Perhitungan Total Harga
Total = Harga * Jumlah
‘Penentuan Diskon dan Bonus
If Total >= 500000 Then
Diskon = 0.2 * Total
Bonus = “Tas Pinggang”
ElseIf Total >= 200000 Then
Diskon = 0.15 * Total
Bonus = “Payung”
ElseIf Total >= 100000 Then
Diskon = 0.1 * Total
Bonus = “Kaos”
ElseIf Total >= 50000 Then
Diskon = 0.05 * Total
Bonus = “Pena”
Else
Diskon = 0
Bonus = “Tidak Ada”
End If
‘Perhitungan Total Bayar
Bayar = Total – Diskon
‘Deklarasi Keluaran Total Harga, Diskon, Total Bayar, dan Bonus
txttotal.Text = Total
txtdiskon.Text = Diskon
txtbayar.Text = Bayar
txtbonus.Text = Bonus
End Sub
5. Dan yang terakhir Ketik Unload Me Pada event onclik pada tombol keluar.
Coba Programnya di Run…..! hahahaha aku bisa ya…!

Tidak ada komentar:

Poskan Komentar