Mesran.net

Membuat Form Niai Mahasiswa

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

kemudian double klik pada combobox npm ,isi seperti 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

setelah teman selesai megisinya ,lanjut double klik pada combobox kode dosen ,

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

kemudian double klik lagi pada combobox kode matakuliah ,,

 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

oke teman ,setelah semua sudah selesai lanjut keproses .double klik pada proses .isikan code nya

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

jangan lupa untuk menghapus datanya ,double klik hapus ,isikan code nya

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 = ""

sekarang sentuhan terakhir teman* semua ,doublik pada batal .untuk mengeluarkan dari hasil programnya,

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

        End

    End Sub

End Class