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 >= 10 Then

        diskon =5%

    ElseIf jumlah >= 20 Then

        diskon =15%

    ElseIf jumlah >= 30 Then

        diskon =10%

    Else

        diskon =5%

    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 "A01"

    kode.AddItem "B02"

    kode.AddItem "C03"

    kode.AddItem "D04"

    kode.AddItem "E05"

    End Sub

Private Sub kode_Click()

    Select Case kode.Text

        Case "A01"

            nama = "Fanta"

            harga = 2000

        Case "B02"

            nama = "Marina hand body lotion"

            harga = 20000

        Case "C03"

            nama = "Minyak"

            harga = 22500

        Case "D04"

            nama = "Ayam"

            harga =15000

        Case "E05"

            nama = "Magnum"

            harga =11000

        End Select

End Sub

Jalankan Prgram tekan F5