Percabangan pada vb

Percabangan

Pada beberapa kasus terkadang kita menginginkan komputer melakukan suatu pernyataan tertentu bila suatu kondisi terpenuhi. Dalam Visual BASIC perintah percabangan/pemilihan  keputusan dapat  dilakukan  dengan  statemen  If...Then dan Select Case.

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.

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

If <kondisi> Then <Pernyataan>

Contoh :

If Nilai >= 60 Then Keterangan = “Lulus”

b.  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

c.  If...Then dengan 2 kondisi.

If <Kondisi> Then

<Pernyataan_Jika_Kondisi_Benar>

Else

End If

<Pernyataan_Jika_Kondisi_Salah>

Contoh:

If Nilai >= 60 Then Keterangan = “Lulus” Ucapan = “Selamat”

Else

Keterangan = “Tidak Lulus” Ucapan = “Jangan Bersedih”

End If

d.  If...Then dengan kondisi jamak.

If <Kondisi_1> Then

<Pernyataan> ElseIf <Kondisi_2> Then

<Pernyataan>

...

ElseIf <Kondisi_n> Then

<Pernyataan>

Else

End If

<Pernyataan>

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

2. 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

Program IV : Program Belanja Sederhana

Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 4.1.

Gambar 4.1. Desain Form Program IV

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Caption StartupPosition	Frmbelanja Program Belanja Sederhana 2-Center Screen
Label1	Caption	Nama Barang
Label2	Caption	Harga Satuan
Label3	Caption	Jumlah Barang
Label4	Caption	Total Harga
Label5	Caption	Diskon
Label6	Caption	Total Bayar
Label7	Caption	Bonus
Textbox1	(Name) Text	Txtnama (kosongkan)
Textbox2	(Name) Text	Txtharga (kosongkan)
Textbox3	(Name) Text	Txtjumlah (kosongkan)
Textbox4	(Name) Text	Txttotal (kosongkan)

Textbox5	(Name) Text	Txtdiskon (kosongkan)
Textbox6	(Name) Text	Txtbayar (kosongkan)
Textbox7	(Name) Text	Txtbonus (kosongkan)
CommandButton1	(Name) Caption	CmdHitung &Hitung
CommandButton2	(Name) Caption	CmdUlang &Ulang
CommandButton3	(Name) Caption	Cmdkeluar &Keluar

Pada program diatas perhitungan dilakukan dengan kriteria sebagai berikut: Total Harga = Harga Satuan x Jumlah Barang

Diskon dan Bonus, didapat dengan ketentuan:

Total Harga	Diskon	Bonus
>=500 ribu	20% x Total Harga	“Tas Pinggang”
200 ribu – 500 ribu	15% x Total Harga	“Payung”
100 ribu – 200 ribu	10% x Total Harga	“Kaos”
50 ribu – 100 ribu	5% x Total Harga	“Cangkir”
< 50 ribu	0%	“Tidak Ada”

Total Bayar = Total Harga – Diskon

Listing Program IV

Private Sub cmdulang_Click()

'Membersihkan isi Textbox txtnama.Text = "" txtharga.Text = "" txtjumlah.Text = "" txttotal.Text = "" txtdiskon.Text = "" txtbayar.Text = "" txtbonus.Text = "" txtnama.SetFocus

End Sub

Private Sub cmdhitung_Click()

'Deklarasi Variabel

Dim Harga, Jumlah As Integer

Dim Total, Diskon, Bayar As Double

Dim Bonus As String

'Deklarasi Input Harga dan Jumlah

Harga = txtharga.Text

Jumlah = txtjumlah.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 = "Payung"

ElseIf Total >= 100000 Then Diskon = 0.1 * 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, txttotal.Text = Total	Diskon,	Total Bayar, dan Bonus
txtdiskon.Text = Diskon
txtbayar.Text = Bayar
txtbonus.Text = Bonus End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub

Simpan Program, kemudian jalankan program dan lakukan perhitungan.