Membuat Program Perhitungan dengan If

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