http://www.nilaimahasiswa.com/

MEMBUAT PROGRAM PERHITUNGAN NILAI

Selamat Sore Smua_nya...!!!

Aku akan mencoba membuat atau melakukan perhitungan nilai dalam sebuah program Visual Basic 2008, sebelum_nya mungkin yang berkunjung sudah tau apa yang harus di lakukan atau di persiapkan untuk membuat sebuah program dalam vb.

Baik langsung aja’’’’’’’’’’

1.        Pertama kita akan membuka sistem aplikasi atau visual basic yang sudah terinstal di komputer atau leptop setelah muncul tampiln_nya lalu klik file+New+Project atau perhatikan gambar berikut.

2.        Setelah itu akan muncul window atau jendela baru untuk memberi nama dalam form baru. perhatikan gambar berikut :

Selanjut-nya Name telah di ubah menjadi Efan Lisander Zebua maka klick ok maka akan muncul lembar kerja baru seperti gambar berikut.

3.        Untuk mendesain_nya seperti cara sebelum_nya dengan menambahkan 14 lebel, 7 ComboBox, 7 Textbox dan 3 button dan ubah Nama_nya setiap icon yang telah di tambahkan. Ingat untuk lebel yang diubah hanya Text_nya aja, untuk lebih jelas perhatikan gambar berikut.

4.             Untuk membuat listing program double click lember kerja yang bebas icon_nya tau ikutin saja perintah di bawah seperti biasa_Nya:

Public Class Efan

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

        KDosen.Items.Add("GL001")

        KDosen.Items.Add("YY002")

        KDosen.Items.Add("TL003")

        npm.Items.Add("12110390")

        npm.Items.Add("12110875")

        npm.Items.Add("12110874")

        KMKuliah.Items.Add("GL001")

        KMKuliah.Items.Add("YY002")

        KMKuliah.Items.Add("TL003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            nilaihadir.Items.Add(x)

            NTugas.Items.Add(x)

            NUts.Items.Add(x)

            NUas.Items.Add(x)

        Next x

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110390"

                Nama.Text = "Efan Lisander Zebua"

                Jurusan.Text = "Teknik Informatika"

            Case "12110875"

                Nama.Text = "NOVA SUSANA"

                Jurusan.Text = "Teknik Informatika"

            Case "12110874"

                Nama.Text = "OKTAVIA ANDRIANI TARIGAN"

                Jurusan.Text = "Sistem Informasi"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Right(npm.Text, 2)

        If npm.Text = "12110390" Then

            Jenjang.Text = "TI"

        ElseIf npm.Text = "12110875" Then

            Jenjang.Text = "TI"

        ElseIf npm.Text = "12110874" Then

            Jenjang.Text = "TI"

        End If

    End Sub

    Private Sub kodedo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged

        Select Case KDosen.Text

            Case "GL001"

                NDosen.Text = "Guidio S.KOM,M.KOM"

            Case "YY002"

                NDosen.Text = "Yasir Yasan S.kom"

            Case "TL003"

                NDosen.Text = "Toni LImbong S.kom,M.Kom"

        End Select

    End Sub

    Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMKuliah.SelectedIndexChanged

        Select Case KMKuliah.Text

            Case "GL001"

                MKUliah.Text = "Komunikasi Data"

            Case "YY002"

                MKUliah.Text = "Operasi Data"

            Case "TL003"

                MKUliah.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Nakhir.Text = 0.1 * nilaihadir.Text + 0.15 * NTugas.Text + 0.35 * NUts.Text + 0.45 * NUas.Text

        If Nakhir.Text >= 50 Then

            Ket.Text = "LULUS"

        Else

            Ket.Text = "GAGAL"

        End If

        If Nakhir.Text >= "80" Then

            NHuruf.Text = "A"

        ElseIf Nakhir.Text >= "70" Then

            NHuruf.Text = "B"

        ElseIf Nakhir.Text >= "60" Then

            NHuruf.Text = "C"

        ElseIf Nakhir.Text >= "50" Then

            NHuruf.Text = "D"

        Else

            NHuruf.Text = "E"

        End If

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Nakhir.Text = ""

        npm.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KDosen.Text = ""

        NDosen.Text = ""

        KMKuliah.Text = ""

        MKUliah.Text = ""

        nilaihadir.Text = ""

        NTugas.Text = ""

        NUts.Text = ""

        NUas.Text = ""

        NHuruf.Text = ""

        Ket.Text = ""

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        End

    End Sub

End Class

5.        Sesudah itu untuk mengecek berhasil tidak nya program yang kita buat tekan tombol F5,

Kalau berhasil maka akan muncul tampilan seperti ini.

Jika tampilannya seperti ini maka program yang anda jalankan sudah berhasil.

6.        Sampai disini ja ya.......