SELEKSI KONDISI

Pernyataan Berkondisi

1. If

Sintax :

2. If else

Sintax :

3. Select Case

Sintax :

Program Aplikasi dengan Menggunakan Pernyataan IF

1. Buat Form Aplikasi dan Ubah Properties Seperti di bawah ini

Ketentuan :

Jika penjualan barang lebih dari 1000000 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.

2. Buat Kode Program

Klik Ganda Tombol Proses

Dim penjualan

Dim gajipokok, bonus, pajak, total As Single

Private Sub Command1_Click()

gajipokok = Tgaji.Text

If (TPenjualan.Text > 1000000) Then

bonus = TPenjualan.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

TBonus.Text = bonus

TPajak.Text = pajak

TTotal.Text = total

End Sub

Program Aplikasi dengan Menggunakan Pernyataan Case...Of

1. Buat Form Aplikasi dan Ubah Properties Seperti di bawah ini

2. Buat Kode Program

· Klik ganda text1

Private Sub Text1_Change()

pilihan = Text1.Text

Select Case pilihan

Case 1: Text2.Text = "Rp 6000"

Case 2: Text2.Text = "Rp 5000"

Case 3: Text2.Text = "Rp 7000"

Case 4: Text2.Text = "Rp 10000"

Case Else: Text2.Text = "pilihan salah"

End Select

End Sub

· Klik Ganda Tombol Clear

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

3. Jalankan Program dengan mengklik tombol Run atau F5

LATIHAN2

1. Buat Project Kasir di sebuah restoran, gunakan kondisi if, if..else atau case. Dengan output program sebagai berikut : ( Simpan program di folder Latihan2, folder latihan 2A, Nama file F21. frm , P21 ).

2. Seperti latihan1, buat Program aplikasi Pembayaran Listrik selama 1 bulan. Desain program sesuai dengan kebutuhan. ( Simpan program di folder Latihan2, folder latihan 2B, Nama file F22. frm , P22 ).