http://Nilaimahasiswa.com/

MEMBUAT PROGRAM PERHITUNGAN NILAI

Selamat Malam Smua bro and sis…

Saya akan mencoba melakukan perhitungan nilai dengan menggunakan program Visual Basic 2008.

Chekidot.....

----------------------------------------------------------------

1.  Pertama kita akan membuka sistem aplikasi visual basic 2008 yang sudah terinstal di komputer atau laptop Anda. Setelah tampilnnya muncul lalu klik File + New + Project.

2.       Setelah itu akan muncul windows atau jendela baru untuk memberi nama dalam form baru.

Simpan lembar Kerja sesuai Nama Anda, lau OK-kan.

3.  Untuk mendesainnya, tinggal tambahkan 14 Lebel, 7 ComboBox, 7 TextBox dan 3 Button dari Tool. Lalu ubah nama setiap icon yang telah di tambahkan. Untuk lebel yang diubah hanya textnya aja, untuk TextBox dan ComboBox hanya Namenya aja, dan untuk Button ubah name dan Textnya,

4.    Untuk membuat listing program, tinggal double click pada lembar kerja yang bebas icon. Selanjutnya ketik perintah berikut :

--------------------------------------------------------------

Public Class Efan

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

        KDosen.Items.Add("GL0012")

        KDosen.Items.Add("YY0021")

        KDosen.Items.Add("TL0031")

        npm.Items.Add("12110390")

        npm.Items.Add("12120392")

        npm.Items.Add("12110392")

        KMKuliah.Items.Add("GG001")

        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 "12110391"

                Nama.Text = "Poli"

                Jurusan.Text = "Teknik Informatika"

            Case "12110392"

                Nama.Text = "candra"

                Jurusan.Text = "Sistem Informasi"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Right(npm.Text, 2)http://Nilaimahasiswa.com/

        If npm.Text = "12110390" Then

            Jenjang.Text = "S-1"

        ElseIf npm.Text = "12110391" Then

            Jenjang.Text = "S-1"

        ElseIf npm.Text = "12110390" Then

            Jenjang.Text = "S-1"

        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 "GG0012"

                NDosen.Text = "Guidio Ginting, S.Kom, M.Kom"

            Case "YY0021"

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

            Case "TL0031"

                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 "GG0012"

                MKUliah.Text = "Komunikasi Data"

            Case "YY0021"

                MKUliah.Text = "Operasi Data"

            Case "TL0031"

                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.  Setelah selesai mengetik perintahnya, maka tekan tombol F5 untuk menjalankan programnya.

----------------------------------------------------------------

Sekian tutorial perhitungan Niali Via Visual Basic 2008, terimakasih atas waktunya dan perhatiannya.

Mudah bukan?