MEMBUAT PROGRAM PERHITUNGAN NILAI

MEMBUAT PROGRAM PERHITUNGAN NILAI

Selamat Siang semua_Nya......!!? Siang ini pemilik blog akan coba 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.

Ok langsung aja’’’’’’’’’’
simaklah dengan baik.

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

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

Selanjut-nya Name telah di ubah menjadi Tugas_POLINUS maka klick ok maka akan muncul lembar kerja baru seperti gambar berikut :

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 :

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

Public Class POLINUS

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

        kodedo.Items.Add("MS001")

        kodedo.Items.Add("PL002")

        kodedo.Items.Add("TN003")

        npm.Items.Add("12110841")

        npm.Items.Add("12120843")

        npm.Items.Add("12113210")

        komaku.Items.Add("PV001")

        komaku.Items.Add("A0002")

        komaku.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            niha.Items.Add(x)

            nitu.Items.Add(x)

            niut.Items.Add(x)

            niuas.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 "12110841"

                nama.Text = "POLINUS LAIA"

                jurusan.Text = "Teknik Informatika"

            Case "12120843"

                nama.Text = "SISKA VENTRIANI"

                jurusan.Text = "Teknik Informatika"

            Case "12113210"

                nama.Text = "YAFAO GIAWA"

                jurusan.Text = "Sistem Informasi"

        End Select

        Dim x As String

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

        If npm.Text = "12110841" Then

            jenjang.Text = "S1"

        ElseIf npm.Text = "12120843" Then

            jenjang.Text = "DI"

        ElseIf npm.Text = "12113210" Then

            jenjang.Text = "DIII"

        End If

    End Sub

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

        Select Case kodedo.Text

            Case "MS001"

                namado.Text = "Mesran M.Kom"

            Case "PL002"

                namado.Text = "Rivalry Kristianto Hondro, S.Kom"

            Case "TN003"

                namado.Text = "M. Syahrizal, S.Kom, M.Kom"

        End Select

    End Sub

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

        Select Case komaku.Text

            Case "PV001"

                maku.Text = "Pemograman Visual"

            Case "A0002"

                maku.Text = "Sistem Basis Data"

            Case "SBD003"

                maku.Text = "Pengantar Teknologi Informatika"

        End Select

    End Sub

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

        niak.Text = 0.1 * niha.Text + 0.15 * nitu.Text + 0.35 * niut.Text + 0.45 * niuas.Text

        If niak.Text >= 50 Then

            keterangan.Text = "LULUS"

        Else

            keterangan.Text = "GAGAL"

        End If

        If niak.Text >= "80" Then

            nihu.Text = "A"

        ElseIf niak.Text >= "70" Then

            nihu.Text = "B"

        ElseIf niak.Text >= "60" Then

            nihu.Text = "C"

        ElseIf niak.Text >= "50" Then

            nihu.Text = "D"

        Else

            nihu.Text = "E"

        End If

    End Sub

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

        niak.Text = ""

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedo.Text = ""

        namado.Text = ""

        komaku.Text = ""

        maku.Text = ""

        niha.Text = ""

        nitu.Text = ""

        niut.Text = ""

        niuas.Text = ""

        nihu.Text = ""

        keterangan.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

Untuk melihat apakah program yang di buat sudah berhasil atau tidak dengan mnekan F5 yang ada pada papan keyboard setelah muncul lau coba menggunakan_Nya.
Untuk contoh akhir_Nya seperti pada gambar di bawah :

Sampai disini aja Sob untuk membuat program membuat program Perhitungan Nilai, jika kurang mengerti tanyakan aja melalui kolom komentar berikut.
Salam ANAK NIAS
YA’AHOWU