Form Nilai Mahasiswa Dengan Visual Studio 2008

Tugas Belajar Bahasa Pemrograman

1.      Buka aplikasi Microsoft Visual Studio 2008

      2.      Klik File, Pilih New Project.

      3.      Buat nama file.

      4.      Maka akan tampil lembar kerja Microsoft Visual Studio 2008

Desain dan atur FORM-nya seperti berikut :

 Atur Settingan code nya seperti di bawah ini :


Public Class FormNilai

    Private Sub FormNilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110531")
        NPM.Items.Add("12110505")
        NPM.Items.Add("12110405")
        NPM.Items.Add("12110125")
        KD.Items.Add("01")
        KD.Items.Add("02")
        KD.Items.Add("03")
        KD.Items.Add("04")
        KM.Items.Add("KKTI4303")
        KM.Items.Add("KKTI4301")
        KM.Items.Add("KBTI4305")
        KM.Items.Add("KBTI4303")
        NA.Enabled = False

        Dim i As Integer
        For i = 100 To 1 Step -3
            NUTS.Items.Add(i)
            NUAS.Items.Add(i)
            NK.Items.Add(i)
            NT.Items.Add(i)
        Next i
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110531"
                Nama.Text = "Ricky Situmeang"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12110505"
                Nama.Text = "Yunita Afrida"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110405"
                Nama.Text = "Malaris Pasaribu"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case Else
                Nama.Text = "Windi Pitaloka"
        End Select
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        Select Case KD.Text
            Case "01"
                ND.Text = "Sinar Sinurat,ST,M.Kom"
            Case "02"
                ND.Text = "Pilipus Tarigan,S.T, M.Kom "
            Case "03"
                ND.Text = "Mesran,S.Kom, M.Kom"
            Case Else
                ND.Text = "Harvei D. Hutahaean M.Kom"
        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
        Select Case KM.Text
            Case "KKTI4303"
                MK.Text = "Struktur Data"
            Case "KKTI4301"
                MK.Text = "Arsitektur dan organisasi"
            Case "KBTI4305"
                MK.Text = "Pemograman Visual"
            Case Else
                MK.Text = "Sistem Basis Data"
        End Select
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    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 = ""
        KD.Text = ""
        ND.Text = ""
        KM.Text = ""
        MK.Text = ""
        NK.Text = ""
        NT.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NA.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.3 * NUTS.Text + 0.45 * NUAS.Text
        If NT.Text >= 80 Then
            NH.Text = "A"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 70 Then
            NH.Text = "B"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 60 Then
            NH.Text = "C"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 50 Then
            NH.Text = "D"
            Ket.Text = "Gagal"
        Else
            NH.Text = "E"
            Ket.Text = "Gagal"
        End If
    End Sub
End Class


Maka,, Hasil Akhirnya ...

Begitulah Kira-Kira Yang Bisa Mimin Share-kan Sebagai Update Postingan.
Semoga Bermanfaat. Tingkyu...