Membuat Aplikasi Penilaian Sederhana dengan VBNet

Oke malam ini kita akan membuat aplikasi penilaian dengan VBNet.
Ini adalah tugas pertama belajar pemrograman visual
Sebelumnya saya telah berhasil membuat aplikasi penggajian sederhana dengan VBNet.

Seperti biasa pertama kali kita harus desain dulu form nilainya seperti ini


Jangan lupa diganti name setiap objek yang ada di dalam form nilai.
Kemudian kita masukkan kode dibawah ini agar aplikasi ini dapat berfungsi sebagaimana mestinya.
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110808")
        npm.Items.Add("12110809")

        kodedosen.Items.Add("KD001")
        kodedosen.Items.Add("KD002")

        kodemakul.Items.Add("KM001")
        kodemakul.Items.Add("KM002")

        Dim i As Integer
        For i = 1 To 100
            nilaihadir.Items.Add(i)
            nilaitugas.Items.Add(i)
            nilaiuts.Items.Add(i)
            nilaiuas.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 "12110808"
                nama.Text = "Robby Akasi Pradana"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110809"
                nama.Text = "Ririn Wardania"
                jenjang.Text = "S1"
                jurusan.Text = "Pendidikan Agama"
        End Select

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KD001"
                namadosen.Text = "Mesran S.Kom, M.Kom"
            Case "KD002"
                namadosen.Text = "Yasir Hasan S.Kom"
        End Select
    End Sub

    Private Sub kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemakul.SelectedIndexChanged
        If kodemakul.Text = "KM001" Then
            makul.Text = "Pemrograman Visual"
        ElseIf kodemakul.Text = "KM002" Then
            makul.Text = "Sistem Operasi"
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nilaiakhir.Text = 0.1 * nilaihadir.Text + 0.15 * nilaitugas.Text + 0.3 * nilaiuts.Text + 0.45 * nilaiuas.Text

        Select Case nilaiakhir.Text
            Case Is >= 80
                nilaihuruf.Text = "A"
                keterangan.Text = "Anda lulus dengan sangat memuaskan"
            Case 70 To 79
                nilaihuruf.Text = "B"
                keterangan.Text = "Anda lulus dengan pujian"
            Case 60 To 69
                nilaihuruf.Text = "C"
                keterangan.Text = "Anda lulus dengan beruntung"
            Case 50 To 59
                nilaihuruf.Text = "D"
                keterangan.Text = "Anda dapat mengulang di semester depan"
            Case Is >= 49
                nilaihuruf.Text = "E"
                keterangan.Text = "Anda kurang beruntung"
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodemakul.Text = ""
        makul.Text = ""
        nilaihadir.Text = ""
        nilaitugas.Text = ""
        nilaiuts.Text = ""
        nilaiuas.Text = ""
        nilaiakhir.Text = ""
        nilaihuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class
Silahkan dikembangkan lagi :)


Didukung oleh :
http://www.mesran.net

This entry was posted in . Bookmark the permalink.

Leave a Reply

Tanggapan Anda