PERCABANGAN

POKOK BAHASAN:

1.         Statement If…Then

2.         Statement Select Case

1.1   Statemen If...Then

Statemen ini digunakan untuk melakukan aksi setelah melakukan pengujian terhadap suatu kondisi. Pernyataan dalam blok statemen hanya akan dilaksanakan ketika kondisi pengetesan/pengujian bernilai benar.

Statement If...Then memiliki beberapa sintaks/cara penulisan sesuai dengan jumlah pernyataan yang akan dieksekusi.

1.     If...Then dengan Kondisi dan Pernyataan Tunggal

If <kondisi> Then <Pernyataan>

Contoh :

If Nilai >= 60 Then Keterangan = “Lulus”

1.     If...Then dengan Pernyataan Jamak

If <Kondisi> Then <Pernyataan_1> <Pernyataan_2> .. <Pernyataan_n> End If Contoh :  If Nilai >= 60 Then             Keterangan = “Lulus”             Ucapan = “Selamat” End If

2.     If...Then dengan 2 kondisi

If <Kondisi> Then <Pernyataan_Jika_Kondisi_Benar>  Else  <Pernyataan_Jika_Kondisi_Salah>  End If Contoh: If Nilai >= 60 Then       Keterangan = “Lulus”       Ucapan = “Selamat” Else       Keterangan = “Tidak Lulus”       Ucapan = “Jangan Bersedih” End If

1.     If...Then dengan kondisi jamak.

If <Kondisi_1> Then <Pernyataan>  ElseIf  <Kondisi_2> Then  <Pernyataan>  ...  ElseIf <Kondisi_n> Then  <Pernyataan>  Else  <Pernyataan> End If Contoh:  If Nilai >= 85 Then       Keterangan = “Lulus, Sangat Memuaskan”  ElseIf Nilai >= 70 Then       Keterangan = “Lulus, Memuaskan”  ElseIf Nilai >=60 Then       Keterangan = “Lulus, Cukup Memuaskan”  Else       Keterangan = “Tidak Lulus, Silahkan Mengulang”  End If

1.1      Statemen Select Case

Sama halnya seperti statemen If...Then, Select Case juga mengerjakan suatu blok statemen berdasarkan uji nilai ekspresi. Perbedaannya adalah pada tata cara penulisan dan pengelompokan nilai dari variabel/kondisi.

                                Sintaks :

Select Case <Variabel penguji> Case <Nilai_1>            <Pernyataan_1>      Case <Nilai_2>            <Pernyataan_2>       Case Else            <Pernyataan_n>  End Select Contoh:  Select Case Nilai       Case “A”            Keterangan = “Sangat Memuaskan”       Case “B”            Keterangan = “Memuaskan”      Case “C”            Keterangan = “Cukup”       Case Else            Keterangan = “Kurang”  End Select

              

1.2      Soal Latihan

1.          Listing Source

Public Class Form1     Private Sub tb_ulang_Click(sender As Object, e As EventArgs) Handles tb_ulang.Click         'Membersihkan isi Textbox         tb_namabarang.Text = ""         tb_hargasatuan.Text = ""         tb_totalbayar.Text = ""         tb_diskon.Text = ""         tb_totalbayar.Text = ""         tb_bonus.Text = ""         tb_namabarang.Focus()     End Sub     Private Sub tb_hitung_Click(sender As Object, e As EventArgs) Handles tb_hitung.Click         'Deklarasi Variabel         Dim Harga, Jumlah As Integer         Dim Total, Diskon, Bayar As Double         Dim Bonus As String         'Deklarasi Input Harga dan Jumlah         Harga = tb_hargasatuan.Text         Jumlah = tb_jumlahbarang.Text         'Perhitungan Total Harga         Total = Harga * Jumlah         'Penentuan Diskon dan Bonus         If Total >= 500000 Then             Diskon = 0.2 * Total             Bonus = "Tas Pinggang"         ElseIf Total >= 200000 Then             Diskon = 0.15 * Total             Bonus = "Kaos"         ElseIf Total >= 50000 Then             Diskon = 0.05 * Total             Bonus = "Pena"         Else             Diskon = 0             Bonus = " Tidak Ada"         End If         'Perhitungan Total Bayar         Bayar = Total - Diskon         'Deklarasi Keluaran Total Harga, Diskon, Total Bayar, dan Bonus         tb_totalbayar.Text = Total         tb_diskon.Text = Diskon         tb_totalbayar.Text = Bayar         tb_bonus.Text = Bonus     End Sub     Private Sub tb_keluar_Click(sender As Object, e As EventArgs) Handles tb_keluar.Click         End     End Sub End Class

2.                  Output