Program Menentukan Hasil Ujian dengan Menggunakan rumus lebih dari 2 kondisi dalam Visual Basic

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	-
2	Label1	Text	Hasil Test Penerimaan Pegawai
		Bold	True
		FontSize	10
3	Label2	Text	Nilai :
4	Label3	Text	Hasil :
5	Textbox1	Name	Txtnilai
6	Textbox2	Name	Txthasil
7	Button1	Text	Proses
		Name	Btnproses
8	Button2	Text	Bersih
		Name	Btnbersih
9	Button3	Text	Tutup
		Name	Btntutup

3. Tampilan program setelah pengaturan properties sebagai berikut:

4. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Masukkan nilai pada label1 (Nilai) pada bagian Textbox1 (Txtnilai) sesuai dengan hasil yang diperoleh pegawai.

b.    Setelah itu klik Button1 (Proses) jika nilai yang di peroleh oleh pegawai 85 ke atas maka dinyatakan LULUS dan jika nilai yang diperoleh pegawai  75 ke atas maka dinyatakan Daftar Pengganti, dan dibawah 75 maka dinyatakan GAGAL, maka akan muncul kata LULUS, Daftar Pengganti dan GAGAL pada label2 (Hasil) pada bagian Textbox2 (Txthasil) berdasarkan pada Perintah Program.

c.    Jika diklik tombol Button2(Bersih), maka:

a.      Nilai yang terdapat pada Textbox1 (Txtnilai) akan hilang.

b.      Nilai yang terdapat pada Textbox2 (Txthasil) akan hilang.

d.    Jika diklik tombol Button3(Tutup), maka program akan ditutup (keluar dari program)

Perintah Program :

PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

If Txtnilai.Text >= 85 Then

            Txthasil.Text = "Lulus"

ElseIf Txtnilai.Text >= 75 Then

            Txthasil.Text = "Daftar Pengganti"

Else

            Txthasil.Text = "Gagal"

EndIf

EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        Txthasil.Text = " "

        Txtnilai.Text = " "

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click

End

EndSub

EndClass

Tampilan Program setelah dijalankan berdasarkan nilai diperoleh sebagai berikut :

Untuk menjalankan program, klik tombol Start Debugging        atau tekan tombol F5 pada keyboard.

Untuk menutup program, klik tombol Stop Debugging