Membuat Program Perhitungan dengan If

Author: · Published: May 3, 2009 · Category: Komputer Dasar, Pemrograman VB 

Arief Susanto

Pembayaran
Masalah : buatlah suatu program dengan design dibawah ini kemudian saat di klik Komputer pada Combobox akan tampil harga secara otomatis di textharga, dengan ketentuan sebgai berikut:
Keyboard : Rp 15.000,-
Monitor : Rp 800.000,-
Mouse : Rp 30.000,-

Jika di klik tombol bayar maka akan timbul angka pada text bayar, potongan, total bayar tapi ingat Jumlah barang harus sudah terisi lho.. Gunakan Perintah If

1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi caption di kosongkan saja (INGAT pada name bukan caption)

2. Klik cbojenis dan isi pada list klik segitiga bawah di bagian properties Dengan Kata Monitor, Mouse, Keyboard saat mengisi Kayboard kemudian tekan enter

3. Kemudia pada cbojenis klik 2 kali dan isikan

Private Sub cboJenis_Click()
If cboJenis = “Keyboard” Then
txtharga = 15000
ElseIf cboJenis = “Monitor” Then
txtharga = 800000
ElseIf cboJenis = “Mouse” Then
txtharga = 30000
End If
txtjumlah.SetFocus
End Sub

4. Kemudia pada txtbayar klik 2 kali dan isikan
Private Sub cmdBayar_Click()
txtbayar = Val(txtharga) * Val(txtjumlah)
If txtjumlah >= 20 Then
txtpotong = 0.1 * txtbayar
ElseIf (txtjumlah = 10) Then
txtpotong = 0.05 * txtbayar
ElseIf txtjumlah < 10 Then
txtpotong = 0
End If
txttotal = Val(txtbayar) – Val(txtpotong)
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

A. Operasi Matematik
Masalah :
Jika diisi nilai pada nilai1 dan nilai2 kemudian dipilih operatornya maka hasilnya akan timbul di Hasil. Gunakan Printah Case
1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi text di kosongkan saja (INGAT pada name bukan text)

2. Klik 2 kali pada list1(atau * / + – ) dan isikan
Private Sub List1_Click()
Select Case List1
Case Is = “*”
txtHasil = Val(txtN1) * Val(txtN2)
Case Is = “/”
txtHasil = Val(txtN1) / Val(txtN2)
Case Is = “+”
txtHasil = Val(txtN1) + Val(txtN2)
Case Is = “-”
txtHasil = Val(txtN1) – Val(txtN2)
End Select
End Sub

Related Articles

  1. Membuat Program Paint sederhana dengan VB 6
  2. Membuat Popup Menu dengan Visual Basic 6.0
  3. Pembuatan If dan Case pada Pascal
  4. Sejarah Mouse
  5. Tutorial Pemanfaatan Layanan ZoneEdit.Com untuk Membuat Private Nameserver
  6. Membuat Laptop menjadi Hotspot / Access Point di Ubuntu
  7. Cara Cepat Membuka Aplikasi di Windows
  8. Jalan Pintas Membuka Program Aplikasi
  9. Tips Dan Trik: Kumpulan Tombol Pintas (Shortcut) Windows XP
  10. Install Netbeans di Open Suse 12.1
  11. Membuat File DLL dengan Borland Delphi
  12. Tips Menyimpan File Otomatis di Password
  13. Install Eclipse di Open Suse 12.1
  14. Memanipulasi Registry Windows
  15. Akses Registry Windows Menggunakan VB.NET
  16. Mencari Karakter Tertentu Dalam Textbox
  17. Tips Memasarkan Program Reseller
  18. Multithreading pada Python – Bagian 3 ( Sinkronisasi Menggunakan Buffer)
  19. Keyboard Shorcut di Microsoft Windows 98
  20. Sedikit Trik Rahasia Facebook