Program Sederhana VB.NET Form Nilai

Assalamualikum

Pada kesempatan ini, saya igin mempostingkan Program VB.NET .

Baik lah lansung saja desain from berikut dengan name nya juga yaah ......

Naaahhh....
Setelah didesain marilah kita isi listing program nya :

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("12110032")
        Npm.Items.Add("12110045")
        Npm.Items.Add("12110051")
        Npm.Items.Add("12110053")
        Npm.Items.Add("12110057")

        Kd_Dosen.Items.Add("AR")
        Kd_Dosen.Items.Add("AS")
        Kd_Dosen.Items.Add("TL")
        Kd_Dosen.Items.Add("HS")
        Kd_Dosen.Items.Add("P")

        Kd_MataKuliah.Items.Add("KKTI4303")
        Kd_MataKuliah.Items.Add("KBTI4306")
        Kd_MataKuliah.Items.Add("KBTI4303")
        Kd_MataKuliah.Items.Add("KBTI4302")
        Kd_MataKuliah.Items.Add("KBTI4301")

        Dim i As Integer
        For i = 100 To 1 Step -1
            NilaiKehadiran.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            NilaiTugas.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            NilaiUTS.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            NilaiUAS.Items.Add(i)
        Next

        Nama.Enabled = False
        Keterangan.Enabled = False
        Jurusan.Enabled = False
        NA.Enabled = False
        NH.Enabled = False
    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
        Select Case Npm.Text
            Case "12110032"
                Nama.Text = "Nita Amelia"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case "12110045"
                Nama.Text = "Dhinda Fitriana"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12110051"
                Nama.Text = "Hafizatul Hasanah"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tehnik Informatika"
            Case "12110053"
                Nama.Text = "Enma Syahputri"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tehnik Informatika"
            Case Else
                Nama.Text = "Lya Safitri"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tehnik Informatika"


        End Select
    End Sub

    Private Sub Kd_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Dosen.SelectedIndexChanged
        Select Case Kd_Dosen.Text
            Case "AR"
                NamaDosen.Text = "ALEX RIKKI,S.Kom,.M.Kom"
            Case "AS"
                NamaDosen.Text = "ABDUL SANI Sembiring,M.Kom"
            Case "TL"
                NamaDosen.Text = "Tonni Libong,S,Kom.M,Kom'"
            Case "HS"
                NamaDosen.Text = "Hery Sunandar,ST,M.Kom"
            Case Else
                NamaDosen.Text = "Pilipus Tarigan, S.T,M.Kom"

        End Select
    End Sub

    Private Sub Kd_MataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_MataKuliah.SelectedIndexChanged
        Select Case Kd_MataKuliah.Text
            Case "KKTI4303"
                Nama_Matakuliah.Text = "Struktur Data"
            Case "KBTI4306"
                Nama_Matakuliah.Text = "Sistem Operasi"
            Case "KBTI4303"
                Nama_Matakuliah.Text = "Pemograman Visual"
            Case "KBTI4302"
                Nama_Matakuliah.Text = "Matriks & Transformasi Linier"
            Case "KBTI4301"
                Nama_Matakuliah.Text = "Arsitektur & Organisasi Komputer"
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        NA.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        End If

        If NA.Text >= 50 Then
            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAl"
        End If
    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_Dosen.Text = ""
        NamaDosen.Text = ""
        Kd_MataKuliah.Text = ""
        Nama_Matakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Keterangan.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Dim s As String
        s = MsgBox("Apakah Anda Yakin ingin Keluar?", MsgBoxStyle.YesNoCancel)
        If s = vbYes Then
            Me.Close()
        End If

    End Sub
End Class

Baiklah disini saya juga akan menampilkan hasil dari programm diatas setelah dijalankan seperti gambar dibawah ini :

 

Naah............

Sekian Postingan dari saya semoga dapat bermanfaat buat sahabat semua yahhhh :)

Assalaimualaikum .