Penggunaan IF

1. Mendesign pada Form seperti gambar di bawah ini

Properties

Objeck	Properti	Setting
Form	Name Caption	FrmLat2 Penggunaan IF
Combo1	Caption	Kode Barang
Label2	Caption	Nama
Label3	Caption	Harga
Label4	Caption	Jumlah
Label5	Caption	Harga Bayar
Label6	Caption	Diskon
Label7	Caption	Harga Bersih
Combo1	Name	kode
Text1	Name	nama
Text2	Name	harga
Text3	Name	jumlah
Text4	Name	hargabayar
Text5	Name	diskos
Text6	name	hargabersih
Command1	Name Caption	Cmdhitung Hitung
Command2	Name Caption	Cmdhapus Hapus
Command3	Name Caption	Cmdselesai Selesai

Double Click Form anda dan isikan kode program di bawah ini

Sub Hapus()

    kode.Text = ""

    nama.Text = ""

    harga.Text = ""

    jumlah.Text = ""

    hargabayar.Text = ""

    diskon.Text = ""

    hargabersih.Text = ""

End Sub

Sub hitung()

    hargabayar = harga * jumlah

    If jumlah >= 50 Then

        diskon = 3000

    ElseIf jumlah >= 20 Then

        diskon = 2000

    ElseIf jumlah >= 10 Then

        diskon = 1000

    Else

        diskon = 0

    End If

    hargabersih = hargabayar - diskon

    End Sub

 
Private Sub Cmdkeluar_Click()

   Unload Me

            End Sub

Private Sub Cmdhapus_Click()

    Hapus

End Sub

Private Sub Cmdhitung_Click()

    hitung

End Sub

Private Sub Form_Load()

    Hapus

    kode.AddItem "B001"

    kode.AddItem "B002"

    kode.AddItem "B003"

    kode.AddItem "B004"

    kode.AddItem "B005"

    End Sub

Private Sub kode_Click()

    Select Case kode.Text

        Case "B001"

            nama = "Indomie"

            harga = 1500

        Case "B002"

            nama = "Telur"

            harga = 1000

        Case "B003"

            nama = "Bumbu Ayam"

            harga = 2500

        Case "B004"

            nama = "Ikan"

            harga = 3000

        Case "B005"

            nama = "Kacang Garuda"

            harga = 500

        End Select

End Sub

Jalankan Prgram tekan F5