Cara Membuat Program Menggunakan Pernyataan IF dengan Visual Basic 6.0

Kali ini saya ingin membagikan tentang Cara Membuat Program IF dengan Visual Basic 6.0

Download  Program  Pernyataan IF dengan Visual Basic 6.0

1. Buka Aplikasi Visual Basic 6.0

2. Desain form seperti ini



Ketentuan :
Jika penjualan barang lebih dari 1.000.000 akan mendapat bonus 15 % dari penjualan, pajak 0,5 % dari jumlah gaji pokok dan bonus. Untuk total gaji adalah jumlah semua gaji pokok ditambah bonus dikurangi pajak.

3. Ubah Property

Form1 - Caption - Menghitung Bonus, Pajak & Gaji
Command1 - Name - CmdProses
Label1 - Caption - PENJUALAN Rp
Label2 - Caption - GAJI POKOK Rp
Frame1 - Caption - KLASIFIKASI
Label3 - Caption -BONUS Rp
Label4 - Caption - PAJAK Rp
Label5 - Caption - TOTAL GAJI Rp
Text1 - Name - TxPenjualan
Text2 - Name - TxGaji
Text3 - Name  - TxBonus
Text4 - Name - TxPajak
Text5 - Name - TxTotal

4. Copy code berikut dan masukan ke dalam coding  Command Proses

Private Sub CmdProses_Click()
    Dim Penjualan
    Dim GajiPokok, Bonus, Pajak, Total As Single
    GajiPokok = TxGaji.Text
    If (TxPenjualan.Text > 1000000) Then
        Bonus = TxPenjualan.Text * 0.15
        Pajak = (GajiPokok + Bonus) * 0.05
        Total = GajiPokok + Bonus - Pajak
    Else
        Bonus = 0
        Pajak = (GajiPokok + Bonus) * 0.05
        Total = GajiPokok + Bonus - Pajak
    End If
    TxBonus.Text = Bonus
    TxPajak.Text = Pajak
    TxTotal.Text = Total
End Sub

5. Jalankan Program dengan menekan F5 maka tampilannya akan seperti ini




Download  Program  Pernyataan IF dengan Visual Basic 6.0
Selamat Mencoba....!!!