KONDISI DAN KEPUTUSAN

 Percabangan dengan If…Then…Else…

Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:
If Then
< Keputusan kondisi benar >
Else
< Keputusan kondisi salah >
End If

Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”. Dalam pengertian yang umum bisa dikatakan:

“Jika memenuhi kondisi maka lakukan proses keputusan untuk kondisi benar, jika tidak lakukan proses keputusan untuk kondisi salah”

Contoh 1:

“Jika bilangan habis dibagi dua maka bilangan itu adalah bilangan genap, jika tidak bilangan itu adalah bilangan ganjil”, yang dituliskan dengan:

If bilangan mod 2 = 0 Then

Ket = “Bilangan genap”

Else

Ket = “Bilangan ganjil”

End If

Contoh 2:

“Jika peminjaman lebih dari 7 hari maka dikenakan denda sebesar 2000”, yang dituliskan dengan

If peminjaman>7 Then

Denda = 2000

Else

Denda = 0

End If

Contoh Aplikasi :

Membuat  aplikasi  untuk  menentukan  apakah  bilangan  yang  dimasukkan  adalah bilangan genap atau ganjil.

  • Buat project baru
  • Pada  form1,  tambahkan  komponen-komponen:  2  Label,  2  TextBox  dan  1 command button
  • Pada label1, isi property [Caption] dengan Bilangan. Pada label2, isi property [Caption] dengan Keterangan.
  • Pada semua textbox, kosongkan property [Text].
  • Pada Command1, isi property [Caption] dengan Cek.
  • Atur tampilannya seperti gambar berikut:
KONDISI DAN KEPUTUSAN
  • Click Command1, tambahkan program untuk mengecek apakah bilangan yang dimasukkan bilangan genap atau ganjil dengan cara : “Jika bilangan habis dibagi dua maka bilangan tersebut genap, jika tidak bilangan tersebut ganjil”

Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0
Then ket = “GENAP”
Elseket = “GANJIL”
End If
Text2 = ket
End Sub

  • Simpan project ini dengan memilih menu [File] >> [Save Project]. Maka simpan form     dengan nama formLatihan1, dan simpan project dengan nama projectLatihan1.
  • Jalankan program dan uji dengan beberapa bilangan.

 

Penulisan percabangan di dalam Visual Basic mempunyai beberapa format, antara lain:

  • 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

Enter your email address:

Delivered by FeedBurner

Satu Komentar

Tinggalin Pesan

Tenang bro Email aman, ga ane publish >>>Wajib di isi yang ada tanda *

*