form nilai

Form load

npm.Items.Add("12110186")

        npm.Items.Add("12110187")

        npm.Items.Add("12110188")

        npm.Items.Add("12110189")

        npm.Items.Add("12110190")

        kodemk.Items.Add("001")

        kodemk.Items.Add("002")

        kodemk.Items.Add("003")

        kodemk.Items.Add("004")

        kodemk.Items.Add("005")

        kodedosen.Items.Add("TI-P")

        kodedosen.Items.Add("TI-Q")

        kodedosen.Items.Add("TI-R")

        kodedosen.Items.Add("TI-S")

        kodedosen.Items.Add("TI-T")

npm

Select Case npm.Text

            Case "12110186"

                nama.Text = "ade ramdhani"

            Case "12110187"

                nama.Text = "heru"

            Case "12110188"

                nama.Text = "riki"

            Case "12110189"

                nama.Text = "mahmudin"

            Case "12110190"

                nama.Text = "mukti"

            Case Else

                nama.Text = "ayu adong"

btn hapus

npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodemk.Text = ""

        namamk.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiakhir.Text = ""

        keterangan.Text = ""

hapus

Me.Close()

Proses

nilaiakhir.Text = 0.4 * nilaitugas.Text + 0.6 * nilaiuts.Text