Membuat Form Nilai Mahasiswa

hai teman* semua ,
kali ini saya akan membagi informasi bagaimana cara membuat form niali bagi mahasiswa .
langsung saja saya bahas .
pertama teman* harus membuat bagan nya dahulu seperti ini ..

langkah selanjutnya ,silahkan double klik pada form nya .lalu silahkan isi code dibawah ini .

form class 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add(12110852)
        npm.Items.Add(12110487)
        npm.Items.Add(12111010)

        kodedosen.Items.Add(111)
        kodedosen.Items.Add(122)
        kodedosen.Items.Add(133)

        kodemtkul.Items.Add(4305)
        kodemtkul.Items.Add(4301)
        kodemtkul.Items.Add(4303)

        Dim i As Integer
        For i = 1 To 100
            nkehadiran.Items.Add(i)
        Next
        For i = 1 To 100
            ntugas.Items.Add(i)
        Next
        For i = 1 To 100
            nuts.Items.Add(i)
        Next
        For i = 1 To 100
            nuas.Items.Add(i)
        Next
    End Sub

langkah berikutnya ,double klik pada combobox npm dan isikan codenya seperyi dibawah ini ,

Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110852"
                nama.Text = "iwan setia budi "
            Case "12110487"
                nama.Text = "halimatunsakdiah simanjuntak"
            Case "12111010"
                nama.Text = "m.dizki"
            Case Else
                nama.Text = "m.dizki"
        End Select
        Dim x As Integer

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jenjang.Text = "SI"
            jurusan.Text = " sistem informasi "
        ElseIf x = "12" Then
            jenjang.Text = "D I"
            jurusan.Text = "manajemen akuntansi"

        ElseIf x = "13" Then
            jenjang.Text = "D III"
            jurusan.Text = "teknik informasi"

        End If
   End Sub

selanjutnya,double klik pada combobox kode dosen dan isikan codenya seperti ini .

 Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "111"
                namadosen.Text = "mesran M.kom"
            Case "122"
                namadosen.Text = "pilipus tarigan,ST,M.kom"
            Case "133"
                namadosen.Text = "m.syahrizal,S.kom,M.kom"
            Case Else
                namadosen.Text = "m.syahrizal,S.kom,M.kom"
        End Select
    End Sub

selanjutnya,duoble klik pada combobox matakuliah dan isikan codenya seperti ini .

Private Sub kodemtkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemtkul.SelectedIndexChanged
        Select Case kodemtkul.Text
            Case "4305"
                namamtkul.Text = "pemograman visual"
            Case "4301"
                namamtkul.Text = "arsitektur dan orgaenisasi"
            Case "4303"
                namamtkul.Text = "struktur data"
            Case Else
                namamtkul.Text = "struktur data"

        End Select
    End Sub

setelah kita selesai mengisi semuanya ,sekarang kita masuk keprosesnya untuk mencari hasil nilai akhir .

caranya double klik pada proses lalu masukan rumus dan codenya seperti dibwah ini ,

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

        na.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text

        If na.Text >= 80 Then

            nhuruf.Text = "A"

        ElseIf na.Text >= 70 Then

            nhuruf.Text = "B"

        ElseIf na.Text >= 60 Then

            nhuruf.Text = "C"

        ElseIf na.Text >= 50 Then

            nhuruf.Text = "D"

        Else

            nhuruf.Text = "E"

            

        End If

        If CDbl(na.Text) >= 50 Then

            ket.Text = "lulus"

        Else

            ket.Text = "gagal"

        End If 

    End Sub

setelah itu ,untuk menghapus hasil program yang sudah jalan .kita double klik lagi pada hapus dan isikan codenya .

 Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodemtkul.Text = ""

        namamtkul.Text = ""

        nkehadiran.Text = ""

        ntugas.Text = ""

        nuts.Text = ""

        nuas.Text = ""

        na.Text = ""

        nhuruf.Text = ""

        ket.Text = ""

    End Sub

mesran.net

Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click

        End

    End Sub

End Class

setelah semuanya sudah teman* isi ,maka hasilnya seperti ini .

sampai sinilah hasil postingan saya ,smoga bermanfaat bagi kita semua ,.