If…Then…Else… Pada VB 6

Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:

 If <kondisi> 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.

  1. Buat project baru
  2. Pada form1, tambahkan komponen-komponen:
    1. Label, 2 TextBox dan 1 command button
  3. Pada label1, isi property [Caption] dengan Bilangan. Pada label2, isi property
    [Caption] dengan Keterangan.
  4. Pada semua textbox, kosongkan property [Text].
  5. Pada Command1, isi property [Caption] dengan Cek.
  6. Atur tampilannya seperti gambar

Tampilan contoh

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

Else

ket = “GANJIL”

End If

Text2 = ket

End Sub

  1. Simpan project ini dengan memilih menu [File] >> [Save Project]. Maka simpan form dengan nama formLatihan, dan simpan project dengan nama projectLatihan.
  2. Jalankan program dan uji dengan beberapa bilangan.
       (((Silahkan Tinggalkan Komentar))))

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