Assalamu'alaikum wr. wb.

Assalamu'alaikum wr. wb.

Selamat malam semoga anda tidak lupa makan malam, kalau lupa maka cepatlah makan sebelum nanti anda laper. iya pada kali ini kami akan sharing tentang "Perintah Percabangan Pada Microsoft Visual Basic 6.0" nah disini kami akan memakai fungsi If, Then, Else. Semua program pasti didalamnya ada perintah percabangan namun hanya program yang SANGAT sederhana dapat dibuat tanpa perintah percabangan. langsung aja dibawah ini program yang kami buat dengan perintah percabangan.

syntax:

          If kondisi Then 
          pernyataan
          Else
          pernyataan 
          Endif

Anda buat dulu tampilannya seperti gambar dibawah ini, alangkah baiknya anda desain lebih keren lagi ya fungsinya untuk daya tarik.

Disini kami hanya menggunakan 2 Label, 2 Text Box, dan 2 Command Button.
Logika dari program ini adalah ketika input nilai lebih dari atau sama dengan "70" maka akan muncul keterangan "LULUS", selain itu maka keterangan "TIDAK LULUS".

ketentuan program sebagai berikut:

  

Kalau sudah buat tampilan dan ketentuannya, sekarang masukan listingnya
1. klik dua kali pada button "proses" dan isikan listing berikut.

          Private Sub cproses_Click()
          If tnilai.Text >= 70 Then
          tketerangan.Text = "LULUS"
          Else
          tketerangan.Text = "TIDAK LULUS"
          End If
          End Sub  

2. Klik dua kali pada button "Bersih" dan isikan listing berikut.

          Private Sub cbersih_Click()
          tnilai.Text = ""
          tketerangan.Text = ""
          tnilai.SetFocus
          End Sub 
  
sudah selesai buatnya? sekarang coba run programnya bisa tekan F5. selesai sudah, selamat anda udah bisa membuat "Perintah Percabangan Pada Microsoft Visual Basic 6.0". Kalau masih bingung anda bisa download punya kami dibawah ini.
Download disini 
Kami akhiri sharing kali ini mohon maaf apabila ada kesalahan 
Wassalammu'alaikum wr. wb.

Salam Coding !!!