Minggu, 18 April 2010

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

Tidak ada komentar:

 

POneto.blog Design by Insight © 2009