Belajar Bahasa Pemograman

MENGHITUNG NILAI MAHASISWA

 MENGGUNAKAN VISUAL STUDIO 2008

Teman-teman smuanya, disini kita akan belajar bersama, melatih sebuah testimony tentang menghitung Nilai Mahasiswa dengan menggunakan  program  Visual Studio 2008

Mari ikuti prosedur berikut :

Ketentuan :

NPM   : 12110575 atas Nama : Isati Albertus Laoly

            : 12020525 atas Nama : Yunita Afrida

            : 12230533 atas Nama : Aroly Lase

Nilai Akhir = 10% nilai kehadiran + 15 % nilai tugas + 35 % nilai uts + 40 % nilai UAS
Jika nilai Akhir :
lebih dari sama dengan 80 nilai huruf A keterangan Lulus
70 - 79 nilai huruf B keterangan Lulus
60 - 69 nilai huruf C keterangan Lulus
50 - 59 nilai huruf D keterangan Mengulang
lebih kecil sama dengan 49  nilai huruf E keterangan Gagal Total    

Teman pertama-tama kita di tuntut untuk mendesain formnya dulu dengan alat seperti :

-          Lebel

-          ComboBox

-          TextBox

-          Button

seperti gambar berikut:

Setelah selesai mendesain Formnya, nah…langsung saja kita ketik perintah berikut dengan mendouble klik sembarang form dan kemudian mengetiknya (ikuti perintah dibawah ini)……

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110575")

        NPM.Items.Add("12020525")

        NPM.Items.Add("12230533")

        Ko_Dosen.Items.Add("KDA")

        Ko_Dosen.Items.Add("KDB")

        Ko_Dosen.Items.Add("KDC")

        Ko_Matakuliah.Items.Add("MT01")

        Ko_Matakuliah.Items.Add("MT02")

        Ko_Matakuliah.Items.Add("MT03")

        Dim i As Integer

        For i = 1 To 100

            Ni_Kehadiran.Items.Add(i)

            Ni_Tugas.Items.Add(i)

            Ni_UTS.Items.Add(i)

            Ni_UAS.Items.Add(i)

        Next i

    End Sub

Melangkah ke selanjutnya….

Double klik combobox  NPM lalu ikuti perintah berikut :

Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110575"

                Nama.Text = "Isati Albertus Laoly"

            Case "12020525"

                Nama.Text = "Yunita Afrida"

            Case "12230533"

                Nama.Text = "Aroly Lase"

        End Select

        Dim x As String

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

        If x = "1" Then

            Jenjang.Text = "S1"

        ElseIf x = "0" Then

            Jenjang.Text = "D3"

        ElseIf x = "2" Then

            Jenjang.Text = "D1"

        End If

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

        If x = "10" Then

            Jurusan.Text = "Sistem Informatika"

        ElseIf x = "11" Then

            Jurusan.Text = "Teknik Infromatika"

        ElseIf x = "02" Then

            Jurusan.Text = "Desain Grafis"

        End If

    End Sub

Lanjut lagi ke  Kode Dosen, sama seperti diatas, double klik lagi combobox kode dosen kemudian masukkan perintah berikut:

Private Sub Ko_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ko_Dosen.SelectedIndexChanged

        Select Case Ko_Dosen.Text

        Case "KDA"

        Na_Dosen.Text = "Mesran,M.Kom"

        Case "KDB"

        Na_Dosen.Text = "Tonny Limbong,M.kom"

        Case "KDC"

        Na_Dosen.Text = "Yasir Hasan,S.kom"

        End Select

    End Sub

Lakukah seperti hal diatas sampai seterusnya….

Private Sub Ko_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ko_Matakuliah.SelectedIndexChanged

        Select Case Ko_Matakuliah.Text

        Case "MT01"

        Na_Matakuliah.Text = "Program Visual"

        Case "MT02"

        Na_Matakuliah.Text = "Sistem Basis Data"

        Case "MT03"

        Na_Matakuliah.Text = "Sistem Operasi"

        End Select

    End Sub

Private Sub BProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BProses.Click

        Ni_Akhir.Text = 0.1 * Ni_Kehadiran.Text + 0.15 * Ni_Tugas.Text + 0.3 * Ni_UTS.Text + 0.45 * Ni_UAS.Text

    End Sub

Private Sub Ni_Akhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ni_Akhir.TextChanged

        Select Case Ni_Akhir.Text

            Case Is >= 80

                Ni_Huruf.Text = "A"

                Keterangan.Text = "Lulus"

            Case 70 To 79

                Ni_Huruf.Text = "B"

                Keterangan.Text = "Lulus"

            Case 60 To 69

                Ni_Huruf.Text = "C"

                Keterangan.Text = "Lulus"

            Case 50 To 59

                Ni_Huruf.Text = "D"

                Keterangan.Text = "Mengulang"

            Case Is <= 49

                Ni_Huruf.Text = "E"

                Keterangan.Text = "Gagal Total"

        End Select

    End Sub

Private Sub BHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BHapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        Ko_Dosen.Text = ""

        Na_Dosen.Text = ""

        Ko_Matakuliah.Text = ""

        Na_Matakuliah.Text = ""

        Ni_Kehadiran.Text = ""

        Ni_Tugas.Text = ""

        Ni_UTS.Text = ""

        Ni_UAS.Text = ""

        Ni_Akhir.Text = ""

        Ni_Huruf.Text = ""

        Keterangan.Text = ""

    End Sub

End Class

Private Sub BKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click

        End

   End Sub

Setelah Semuanya selesai diimput data diatas, saatnya kita menjalanjankan dengan menekan Start Debugging yang berbentuk tombol play atau dengan menekan F5 pada keyboard maka hasilnya seperti gambar berikut :

:) :) :D

Gimana teman cukup seru kan…..

Semoga bermanfaat…..

Selelengkapnya lihat di 

                         http://Ishalbryand04.blogspot.com