Tugas Input Data Mahasiswa Menggunakan Visual Studio 2012

Selamat sore sahabat,
kali ini akan posting Tugas UTS saya, Program Input Data Mahasiswa Menggunakan Visual Studio 2012.

Ketentuan :


1. Memasukan NIM Nama Mahasiswa otomatis muncul pada Tex Box nama juga Jenjang dan Prodi dari NIM tersebut. 2 Digit pertama tahun masuk, 2 Digit selanjutnya Jenjang dan Prodi.
2. Memilih Kode Dosen maka muncul Nama Dosen pada Text Box Nama Dosen
3. Memilih Kode Mata Kuliah maka muncul Nama Mata Kuliah yang diambil.
4. Nilai Akhir = 10% Nilai Kehadiran  + 15% Nilai Tugas + 30% Nilai UTS + 45% Nilai UAS
5. Jika Nilai Akhir
     > 84 Nilai Huruf A Keterangan Lulus
     > 74 Nilai Huruf B Keterangan Lulus
     > 64 Nilai Huruf C Keterangan Lulus
     > 54 Nilai Huruf D Keterangan Lulus
     > 44 Nilai Huruf E Keterangan Tidak Lulus

Buat tampilan seperti berikut

Masukan Codding dibawah ini.

Untuk nama properti di sesuaikan.

Public Class Form1

    Private Sub proses_Click(sender As Object, e As EventArgs) Handles proses.Click

        nilaiakhir.Text = 0.1 * Val(nilaikehadiran.Text) + 0.15 * Val(nilaitugas.Text) + 0.3 * Val(nilaiuts.Text) + 0.45 * Val(nilaiuas.Text)

        If nilaiakhir.Text > 84 Then

            nilaihuruf.Text = "A"

            keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text > 74 Then

            nilaihuruf.Text = "B"

            keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text > 64 Then

            nilaihuruf.Text = "C"

            keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text > 54 Then

            nilaihuruf.Text = "D"

            keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text > 44 Then

            nilaihuruf.Text = "E"

            keterangan.Text = "TIDAK LULUS"

        End If

        Dim i As Integer

        For i = 100 To 1

        Next i

        i = 1

        Do While i <= 100

            i = i + 1

        Loop

        i = 100

        Do Until i = 0

            i = i - 1

        Loop

        i = 100

        While i >= 1

            i = i - 1

        End While

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        kodedosen.Items.Add("D-001")

        kodedosen.Items.Add("D-002")

        kodedosen.Items.Add("D-003")

        kodedosen.Items.Add("D-004")

        kodedosen.Items.Add("D-005")

        kodematkul.Items.Add("MK-001")

        kodematkul.Items.Add("MK-002")

        kodematkul.Items.Add("MK-003")

        kodematkul.Items.Add("MK-004")

        kodematkul.Items.Add("M-K005")

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "D-001"

                namadosen.Text = "Wulan Nurlanty S.Pd"

            Case "D-002"

                namadosen.Text = "Erik Pratama S.Pd"

            Case "D-003"

                namadosen.Text = "Dadan Juansah S.Pd"

            Case "D-004"

                namadosen.Text = "Yaya Suharya S.Pd"

            Case "D-005"

                namadosen.Text = "Kuswanda"

        End Select

    End Sub

    Private Sub kodematkul_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kodematkul.SelectedIndexChanged

        Select Case kodematkul.Text

            Case "MK-001"

                matkul.Text = "Perpajakan"

            Case "MK-002"

                matkul.Text = "Matematika Diskrit"

            Case "MK-003"

                matkul.Text = "Bahasa Inggris 2"

            Case "MK-004"

                matkul.Text = "Pendidikan Agama Islam"

            Case "MK-005"

                matkul.Text = "Pemrograman Web 1"

        End Select

    End Sub

    Private Sub nim_TextChanged(sender As Object, e As EventArgs) Handles nim.TextChanged

        Select Case nim.Text

            Case "15110001"

                nama.Text = "Siti Nurjanah Ruchiyat"

            Case "15120002"

                nama.Text = "Shinta Novianty"

            Case "15130003"

                nama.Text = "Mega Cahyani"

            Case "15140001"

                nama.Text = "Sani Saraswati"

            Case "15150002"

                nama.Text = "Dea Ardian Nur Endah"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Mid(nim.Text, 3, 2)

        Select Case x

            Case "11"

                jenjang.Text = "S1"

                prodi.Text = "Sistem Informatika"

            Case "12"

                jenjang.Text = "S1"

                prodi.Text = "Ekonomi"

            Case "13"

                jenjang.Text = "S1"

                prodi.Text = "Manajemen Bisnis"

            Case "14"

                jenjang.Text = "D3"

                prodi.Text = "Ekonomi"

            Case "15"

                jenjang.Text = "D1"

                prodi.Text = "Manajemen Keuangan"

        End Select

    End Sub

    Private Sub kaluar_Click(sender As Object, e As EventArgs) Handles kaluar.Click

        End

    End Sub

    Private Sub hapus_Click(sender As Object, e As EventArgs) Handles hapus.Click

        nim.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        prodi.Text = " "

        kodedosen.Text = " "

        namadosen.Text = " "

        kodematkul.Text = " "

        matkul.Text = " "

        nilaikehadiran.Text = " "

        nilaitugas.Text = " "

        nilaiuts.Text = " "

        nilaiuas.Text = " "

        nilaiakhir.Text = " "

        nilaihuruf.Text = " "

        keterangan.Text = " "

    End Sub

End Class

Setelah itu Jalankan dan Lihat Hasilnya

1.  2 Digit pertama tahun masuk, 2 Digit Selanjutnya Jenjang dan Prodi yang diambil.

      Masukan NIM lalu Nama Mahasiswa muncul pada Text Box Nama

2. Memilih Kode Dosen maka muncul Nama Dosen pada Text Box Nama Dosen

3. Memilih Kode Mata Kuliah maka muncul Nama Mata Kuliah yang diambil.

4. Nilai Akhir

Selamat Mencoba dan Teliti yaa!