teddy90.blogspot.com : November 2013

                                            "Berikut listing program yang akan di input"

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110985")
        NPM.Items.Add("12100033")
        NPM.Items.Add("12090003")
        NPM.Items.Add("12080011")
        Kode_dosen.Items.Add("K10")
        Kode_dosen.Items.Add("K11")
        Kode_dosen.Items.Add("K12")
        Kode_dosen.Items.Add("K13")
        Kode_Matakuliah.Items.Add("M01")
        Kode_Matakuliah.Items.Add("M02")
        Kode_Matakuliah.Items.Add("M03")
        Kode_Matakuliah.Items.Add("M04")
        Dim i As Integer
        Nilai_Hadir.Items.Clear()
        For i = 1 To 100
            Nilai_Hadir.Items.Add(i)
        Next
        Nilai_Tugas.Items.Clear()
        For i = 1 To 100
            Nilai_Tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110985"
                Nama.Text = "Teddy mizwar"
            Case "12100033"
                Nama.Text = "Tuppak Sitanggang"
            Case "12090003"
                Nama.Text = "Ranto Simarmata"
            Case "12080011"
                Nama.Text = "Gabriel Batistuta Koto"
        End Select
        Dim X As String
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf X = "10" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf X = "09" Then
            Jurusan.Text = "Sistem Informasi"
        ElseIf X = "08" Then
            Jurusan.Text = "Teknik Komputer"
        End If
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jenjang.Text = "SI"
        ElseIf X = "10" Then
            Jenjang.Text = "DIII"
        ElseIf X = "09" Then
            Jenjang.Text = "DII"
        ElseIf X = "08" Then
            Jenjang.Text = "DI"
        End If
    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_dosen.SelectedIndexChanged
        Select Case Kode_dosen.Text
            Case "K10"
                Nama_Dosen.Text = "Mesran,M.Kom"
            Case "K11"
                Nama_Dosen.Text = "Tonni Limbong,M.Kom"
            Case "K12"
                Nama_Dosen.Text = "Kennedy Tampubolon,S.Si"
            Case "K13"
                Nama_Dosen.Text = "Sinar Sinurat,ST,M.Kom"
        End Select
    End Sub
    Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Matakuliah.SelectedIndexChanged
        Select Case Kode_Matakuliah.Text
            Case "M01"
                Nama_Matakuliah.Text = "Pemograman Visual"
            Case "M02"
                Nama_Matakuliah.Text = "Sistem Basis Data"
            Case "M03"
                Nama_Matakuliah.Text = "Matriks"
            Case "M04"
                Nama_Matakuliah.Text = "Struktur Data"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Nilai_Akhir.Text = 0.1 * Nilai_Hadir.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= "50" Then
            Keterangan.Text = "lULUS"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Close()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Nama.Text = ""
        NPM.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_Hadir.Text = ""
        Nilai_Akhir.Text = ""
        Kode_dosen.Text = ""
        Kode_Matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_Dosen.Text = ""
        Nama_Matakuliah.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
    End Sub
End Class
   "Jalankan Program dengan Menekan Tombol F5"

Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

http://teddymizwar.blogspot.com/

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpu

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

teddy90.blogspot.com

Sunday, 17 November 2013

Program Form Nilai Mahasiswa Menggunakan VB.NET 2008

About Me