Membuat Aplikasi Perhitungan Lulus

Oke setelah sebelumnya saya memposting cara membuat Aplikasi pehitungan sederhana, kali ini saya akan membuat aplikasi yang sedikit lebih Komplex dari sebelumnya.. 

langsung saja kita mulai pembuatan aplikasinya ..

1. Buka peroject baru di aplikasi VB.net

2. buatlah seperti gambar berikut ini :

Yang dibutuhkan :
Combobox = 2
textbox = 6
Button = 2

Ganti Text label
label1 = NIM
label2 = NAMA
label3 = JURUSAN
label4 = KODE
label 5= NILAI UJIAN

Masukan Script pada Combobox1 seperti berikut ini :

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "D3MI" Then TextBox3.Text = "D3 MANAGEMEN INFORMATIKA"

        If ComboBox1.Text = "S1SI" Then TextBox3.Text = "S1 SISTEM INFORMATIKA"

        If ComboBox1.Text = "S1TI" Then TextBox3.Text = "S1 TEKNIK INFORMATIKA"

    End Sub

Masukan Script pada Combobox2 seperti ini :

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        If ComboBox2.Text = "BHS" Then TextBox4.Text = "Bahasa Inggris"

        If ComboBox2.Text = "AGM" Then TextBox4.Text = "Agama Islam"

        If ComboBox2.Text = "VBN" Then TextBox4.Text = "Visual Basic Net"

        If ComboBox2.Text = "STS" Then TextBox4.Text = "Stastistik"

    End Sub

Masukan Script pada Textbox 5 / textbox di sebelah Label Nilai seperti berikut ini :

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

        If TextBox5.Text >= "56" Then

            TextBox6.Text = "LULUS"

        Else

            TextBox6.Text = "REMEDIAL"

        End If

    End Sub

Masukan Script Pada Button 1 / Input seperti berikut ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox1.Text = ""

        TextBox1.Text = ""

        TextBox1.Text = ""

        TextBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox2.Text = ""

        TextBox1.Text = ""

    End Sub

Masukan Script pada Button 2 / keluar seperti berikut ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

Preview Code :

3. Done. Semoga Bermanfaat :D