Contoh Program Sederhana Menggunakan Microsoft Visual Studio 2008 Form Nilai

Hai sobat blogger, kali ini saya akan berbagi sedikit ilmu program yang saya dapatkan untuk sobat blogger sekalian :)). Walau sangat sederhana tapi kiranya bermanfaat bagi saya dan sobat blogger.  Program sederhana ini menggunakan struktur perulanga (looping), stuktur keputusan (pencabangan if), dan struktur keputusan (pencabangan case). Nah, langsung aja kita kita mulai pembahasan kita. Pertama, buka microsoft visual studio 2008 dan desain form berikut serta keterangan namenya juga jangan lupa. Untuk mendesain form dibawah ini kita hanya menggunaka 4 tool, yaitu : A Label, TextBox, ComboBox, dan Button.

 

Setelah sobat selesai mendesain, sobat  harus tahu dulu bagaimana cara kerja Contoh Program Sederhana Menggunakan  Visual Studio 2008 Form Nilai ini baru kemudian ke listing program.

Ketentuannya sebagai berikut  :

1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM, hanya saja;

   -  pada jenjang diambil dari nilai tengah yang dimulai dari 3 karakter pertama sebanyak 2 karater

   -  jurusan diambil dari nilai tengah yang dimulai dari 5 karakter pertama sebanyak 1 karater.

2. Nama dosen ditentukan oleh Kode dosen.

3. Mata kuliah di tentukan oleh kode mata kuliah

4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 1 dan di       kelang 3 digit.

5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS

6. jika nilai akhir lebih dari atau sama dengan 80 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 70 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 60 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama 50 maka nilai huruf = "D", keterangan = "LULUS"

    jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL" 

Bila sobat telah memahami ketentuannya, berikut listing programnya ( sebaiknya sobat ketik secara manual biar lebih mengerti lagi :) ) :

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("13110781")
        NPM.Items.Add("12202406")
        NPM.Items.Add("12022020")
        NPM.Items.Add("12023040")
        NPM.Items.Add("12111311")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.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
        Dim x, y As String

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

        Select Case NPM.Text
            Case "13110781"
                Nama.Text = "Erni Hura"
            Case "12202406"
                Nama.Text = "Raditya"
            Case "12022020"
                Nama.Text = "Suci  Melita"
            Case "12023040"
                Nama.Text = "Putri Hamdani"
            Case "12111311"
                Nama.Text = "Febri Riswanda"
            Case Else
                Nama.Text = "_"
        End Select

        Select Case x
            Case "11"
                Jenjang.Text = "Strata 1"
            Case "02"
                Jenjang.Text = "DIII"
            Case "20"
                Jenjang.Text = "DI"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "0"
                Jurusan.Text = "Teknik Informatika"
            Case "1"
                Jurusan.Text = "Sistem Informasi"
            Case "2"
                Jurusan.Text = "Manajemen Informatika"
            Case "3"
                Jurusan.Text = "Akutansi"
            Case Else
                Jurusan.Text = "_"
        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 "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

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

        If NilaiAkhir.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 = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Pemrograman visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class


Berikut hasil setelah program dijalankan :

 

Demikian contoh program kali inij yang saya postingkan, semoga teman blogger menyukainya :)
Belajar Bahasa Pemograman