Program Mencari Nilai Akhir

Buat New form dan coba Desainlah form Seperti Gambar Di Bawah Ini..Atau Pun Dengan Selera Anda :

Keterangan :

 Form Diatas Terdiri Dari Label,Textbox,Combobox Dan Button

Dimana

·          Name Pada Kotak Properties Pada Textbox Dan Combobox Diganti Berdasarkan Label

·       Dan seterusnya…….

·       Teks pada properties button1 diganti menjadi = Hapus

·       Teks pada button2 = Proses

·       Teks pada button3 = Keluar

        

Setelah Selesai Mengubah Name Pada Textbox,Combobox Dan Teks Pada Button..Selanjutnya Kita Akan Memasukkan Printah Ataupun Codingnya Dengan Langkah-Langkah Sbb :

1.    Klik double bebas pada form Dan masukkan printah ini :

Public Class form_Nilai

      

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

        npm.Items.Add("12110389")

        npm.Items.Add("12110390")

        npm.Items.Add("12110391")

        npm.Items.Add("12110392")

        npm.Items.Add("12110393")

        npm.Items.Add("12110394")

        npm.Items.Add("12110395")

        kodedosen.Items.Add("HA001")

        kodedosen.Items.Add("PI002")

        kodedosen.Items.Add("SI003")

        kodedosen.Items.Add("IN004")

        kodematakuliah.Items.Add("VB00")

        kodematakuliah.Items.Add("PC001")

        kodematakuliah.Items.Add("MS002")

        kodematakuliah.Items.Add("PE003")

        kodematakuliah.Items.Add("MA003")

        Dim x As Integer

        For x = 1 To 100 Step +3

            nilaikehadiran.Items.Add(x)

           nilaimid.Items.Add(x)

        Next x

        x = 100

        Do While x >= 1

            nilaitugas.Items.Add(x)

            nilaiuas.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            nilaiuts.Items.Add(x)

        Next x

       

    End Sub

2.klik double pada combobox NPM Dan isikan printah ini :

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

        Select Case npm.Text

            Case "12110389"

                nama.Text = "Yuyun"

                jenjang.Text = "S1"

                jurusan.Text = "Tekhnik Informatika"

            Case "12110390"

                nama.Text = "TRI"

                jenjang.Text = "S1"

                jurusan.Text = "Tekhnik Komputer"

            Case "12110391"

                nama.Text = "Stephen"

                     jenjang.Text = "D1"

                jurusan.Text = "sistem Informasi"

            Case "12110392"

                nama.Text = "Dinil"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

            Case "12110393"

                nama.Text = "Apri"

                jenjang.Text = "S1"

                jurusan.Text = "Tekhnik Informatika"

            Case Else

                nama.Text = "Belum Terdaftar"

                jenjang.Text = "Belum Terdaftar"

                jurusan.Text = "Belum Terdaftar"

        End Select

    End Sub

3.klik double pada combobox Dosen Dan isikan printah ini :

Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        If kodedosen.Text = "HA001" Then

            namadosen.Text = "Harmadi Tamba s,kom"

        ElseIf kodedosen.Text = "PI002" Then

            namadosen.Text = "Pilipus Tarigan ST"

        ElseIf kodedosen.Text = "SI003" Then

            namadosen.Text = "Sinar Sinurat S,kom"

        Else

            namadosen.Text = "Indra Ginting"

        End If

    End Sub

4.klik double pada combobox kodematakuliah isikan printah :

     Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        If kodematakuliah.Text = "VB00" Then

            matakuliah.Text = "Visual Basic.net"

        ElseIf kodematakuliah.Text = "PC001" Then

            matakuliah.Text = "Program Pascal"

        ElseIf kodematakuliah.Text = "MS002" Then

            matakuliah.Text = "Manajemen Informasi"

        ElseIf kodematakuliah.Text = "PE003" Then

            matakuliah.Text = "Pemrograman C++"

        Else

            matakuliah.Text = "Manajemen"

        End If

    End Sub

5.Klik double pada button Proses dan isikan printah ini :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

nilaiakhir.Text = 0.4 * nilaimid.Text + 0.6 * nilaisemester.Text + 0.1  * nilaikehadiran.Text + 0.15 * nilaitugas.Text

If nilaiakhir.Text >= 80 Then

            huruf.Text = "A"

        ElseIf nilaiakhir.Text >= 70 Then

            huruf.Text = "B"

        ElseIf nilaiakhir.Text >= 60 Then

            huruf.Text = "C"

        ElseIf nilaiakhir.Text >= 50 Then

            huruf.Text = "D"

        Else

            huruf.Text = "E"

        End If

        If nilaiakhir.Text >= 50 Then

            keterangan.Text = "LULUS"

            MsgBox("Selamat Anda LULUS")

        Else

            keterangan.Text = "GAGAL"

            MsgBox("Tetap Semangat")

        End If

        nilaiakhir.Enabled = False

        nilaiuts.Enabled = False

        nilaitugas.Enabled = False

        nilaiuas.Enabled = False

        nilaikehadiran.Enabled = False

nilaimid.Enabled = False

End Sub

3.Klik Double Pada Button Hapus Dan Masukkan Printah Ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        nilaiakhir.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        nilaitugas.Text = ""

        jurusan.Text = ""

        kodematakuliah.Text = ""

        namadosen.Text = ""

        nama.Text = ""

        npm.Text = ""

        keterangan.Text = ""

        huruf.Text = ""

        nilaikehadiran.Text = ""

        jenjang.Text = ""

        matakuliah.Text = ""

        kodedosen.Text = ""

        nilaikehadiran.Enabled = True

        nilaiakhir.Enabled = True

        nilaiuts.Enabled = True

        nilaitugas.Enabled = True

        nilaiuas.Enabled = True

    End Sub

3.Klik Double Pada Button Keluar Dan Masukkan Printah Ini :

     

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

End Class

DEMIKIAN PROGRAM NILAI SEDERHANA DARI SAYA, BERIKAN ICON ATAU PERINTAH LAIN YANG MUNGKIN MEMBUAT PROGRAM ANDA LEBIH MENARIK

mesran.net