Oleh: IRGI RAFAEL

Membuat Program Perhitungan dengan If

Author: Irgi Rafael 

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. Shortcut Keyboard untuk Photoshop
2. Membuat Gambar ASCII
3. Akses Registry Windows Menggunakan VB.NET
4. Beberapa Strategi Menghasilkan Uang Melalui Internet
5. Teknik Seleksi Photoshop CS
6. Merubah Foto Gelap Menjadi Lebih Soft dan Terang
7. Cara Cepat Membuka Aplikasi di Windows
8. Sedikit Trik Rahasia Facebook
9. Membuat Program Perhitungan dengan If
10. TCP/IP dan Praktek Sekuriti Jaringan
11. Langkah Mudah Mengurutkan Data di Excel 2007
12. Membuat Dialog Killer dengan Delphi 7.0
13. Form Cantik dengan Delphi
14. Multimedia Instructional – 7. Masking Animation
15. Multi-Tabed User Interface
16. Membuat PopUp Menu pada Klik Kanan Mouse
17. Tips Jitu Menangani Virus Makro
18. Hack Game Comand and Concuer
19. Cara Memenage BandWidth di Hotspot dengan NetCut dan AntiNetCut
20. Penggunaan Pen Tool Pada Macromedia Flash