Format Penulisan Percabangan Pada Visual Basic

Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah

If kondisi Then <Proses Kondisi Benar>

Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah

If kondisi Then

<Proses Kondisi Benar>

    End If

Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B

yang masing-masing hanya satu baris perintah

If kondisi Then <Proses A> Else <Proses B>

Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B

yang masing-masing hanya satu baris perintah

If kondisi Then

<Proses A>     

Else

    <Proses B>

End If

Contoh 3:

“Jika nilai<60 maka tidak lulus, jika tidak lulus” dapat dituliskan dengan:

If Nilai<60 Then Ket=”Lulus” Else Ket=”Tidak Lulus”

Contoh 4:

“Jika pembelian > 50000 maka mendapat hadiah cangkir”, dapat dituliskan dengan:

If pembelian > 50000 Then Hadiah = “Cangkir”

Contoh 5:

“Jika nilai<41 maka keterangan diisi dengan tidak lulus dan nilai huruf diberi E”,

dapat dituliskan dengan:

If nilai<41 Then

Ket = ” Tidak Lulus”

NilaiHuruf = “E”

End If

Contoh 6:

“Jika pembelian>500000 maka mendapat potongan 10% dan hadiah berupa tas

cantik, jika tidak potongan 5%”, dapat dituliskan dengan:

If pembelian > 500000 Then

Potongan = (10/100) * Pembelian

Hadiah = “Tas Cantik”

Else

Potongan = (5/100) * Pembelian

End If

Contoh Aplikasi

Sebuah toko memberikan bonus sebesar 15% dari total pembelian setelah dikurangi 200000 dan hadiah berupa gelas cantik bagi pelanggannya untuk pembelian di 200000. Untuk membuat aplikasi tersebut lakukan langkah-langkah berikut:

  1. Buat project baru
  2. Untuk form1, isikan property [Name] dengan formLatihan32.
  3. Tambahkan komponen-komponen: 3 label, 3 textbox dan 1 command button.
  4. Untuk label1, isi property [Caption] dengan “Jumlah pembelian”. Untuk label2, isi property [Caption] dengan “Bonus”. Dan untuk label3, isi property [Caption] dengan “Hadiah”
  5. Untuk semua textbox, kosongkan property [Text]. Untuk textbox1, isi property [Name] dengan pembelian. Untuk textbox2, isi property [Name] dengan bonus. Dan untuk textbox3, isi property [Name] dengan hadiah
  6. Untuk command1, isi property [Caption] dengan “Hitung Bonus”, dan atur posisi setiap komponen seperti gambar

  1. Click
    pada command1, tambahkan program untuk percabangan : “Jika pembelian>200000 maka bonus 15% dari pembelian dan hadiah berupa gelas cantik”

Private Sub Command1_Click()

jmlBeli = Val(pembelian)

bonus = 0

hadiah = ” ”

If jmlBeli > 200000 Then

sisa = jmlBeli – 200000

bonus = (15 / 100) * sisa

hadiah = “gelas cantik”

End If

End Sub

  1. Simpan project tersebut dengan nama projectLatihan42. Dan jalankan dengan mencoba beberapa jumlah pembelian di bawah 200000 dan di atas 200000.

 


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s