Selamat siang semoga kalian tidak lupa makan siang, kalau lupa maka cepatlah makan siang nanti laper loh. iya pada kali ini saya akan sharing tentang "Perintah Percabangan Pada Microsoft Visual Basic 6.0" nah disini saya 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 saya buat dengan perintah percabangan.
syntax:
If kondisi Then
pernyataan
Else
pernyataan
Endif
Kalian buat dulu tampilannya seperti gambar dibawah ini, alangkah baiknya kalian desain lebih keren lagi ya fungsinya untuk daya tarik.
Disini saya 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 kamu udah bisa membuat "Perintah Percabangan Pada Microsoft Visual Basic 6.0". Kalau masih bingung kamu bisa download punya saya dibawah ini.
Download disini
Saya akhiri sharing kali ini mohon maaf apabila ada kesalahan
Wassalammu'alaikum wr. wb.
Salam Coding...!!!
ConversionConversion EmoticonEmoticon