Form Nilai Mahasiswa di VB-2008

Hai sobat blogger, kali ini ane akan share dikit cara-cara membuat form penilaian mahasiswa menggunakan visual basic2008., dan langsung saja, tanpa memperpanjang muqaddimah, kita menuju ke TKP. :p

Untuk penyelesaiannya, mari kita ikut bareng-bereng cara berikut.

A.  Coba desain form anda sesuai dengan gambar ini: 

     ane harap untuk mendesain program di VB.net  udah khatam semua la ya...!

  Ketentuan Permainan :

   1. Jika kita pilih NPM, Maka Nama, Jenjang beserta Jurusan, akan muncul secara otomatis, dan tanpa di undang..

  2. Jika kita pilih Kode dosen, maka Nama dosen secara otomatis muncul

  3.  Jika kita pilih Kode matakuliah, nama mata kuliah secara otomatis muncul

   4. Nilai Tugas, Nilai UTS, Nilai Hadir, dan Nilai UAS harus kita pilih dahulu lalu..

   
  5. Jika proses di click, maka Nilai Akhir, Nilai Huruf, dan Keterangan akan mucul bersamaan.

Note: untuk “label”, anda hanya cukup mengganti “Text” nya saja,

untuk “combobox” dan “text box” hanya cukup mengganti “Name” nya saja,

untuk “button”nya baru di ganti “name” dan “text”nya, biar puas....  gak usah macem-macem dech, ane bilangin, ntar orror program lho...

bila sudah selesai di desain, jom kita masuk ke proses selanjutnya>>> Pengkodingan>>>

B. double click di froam load anda,

   untuk proses pengkodingan ini, biar lebih mudah, kita buat saja “sub-sub” baru, bear mudah dilihat, dibaca, ditraawang.... hehehe....

dibawah “private sub” dan diatas “from_load” tekan enter 1 x aja>>>ketik kan cooding berikut.

    Sub addnpm()

        npm.Items.Add("12110169")

        npm.Items.Add("12110177")

        npm.Items.Add("12110189")

        npm.Items.Add("12110278")

        npm.Items.Add("12110387")

    End Sub

    Sub addkodedosen()

        kodedosen.Items.Add("D 001")

        kodedosen.Items.Add("D 002")

        kodedosen.Items.Add("D 003")

        kodedosen.Items.Add("D 004")

        kodedosen.Items.Add("D 005")

        kodedosen.Items.Add("D 101")

        kodedosen.Items.Add("D 103")

        kodedosen.Items.Add("D 105")

    End Sub

    Sub addkodematkul()

        kodematkul.Items.Add("A 02")

        kodematkul.Items.Add("A 03")

        kodematkul.Items.Add("A 04")

        kodematkul.Items.Add("A 08")

        kodematkul.Items.Add("A 09")

        kodematkul.Items.Add("A 15")

        kodematkul.Items.Add("A 16")

        kodematkul.Items.Add("A 27")

        kodematkul.Items.Add("A 30")

    End Sub

    Sub addbersih()

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodematkul.Text = ""

        namamatkul.Text = ""

        nhadir.Text = ""

        ntugas.Text = ""

        nuts.Text = ""

        nuas.Text = ""

        nahir.Text = ""

        nhruf.Text = ""

        keterangan.Text = ""

    End Sub

    Sub addlooping()

        Dim x As Integer

        For x = 100 To 1 Step -3

            nhadir.Items.Add(x)

            ntugas.Items.Add(x)

            nuts.Items.Add(x)

            nuas.Items.Add(x)

        Next x

    End Sub

C.  kita panggil coding di atas di from load.

      Fungsi kita memanggil di from load, agar para “combo box” nanti bisa tampil.

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

        Call addnpm()

        Call addkodedosen()

        Call addkodematkul()

        Call addlooping()

End Sub

D.  untuk mendapatkan Nama, Jenjang, dan Jurusan secara otomatis, maka double clik di combo box “NPM”, lalu ketikkan cooding berikut.
 

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

        Select Case npm.Text

            Case "12110169"

                nama.Text = "Maina"

                jenjang.Text = "S I"

                jurusan.Text = "Teknik Informatika"

            Case "12110177"

                nama.Text = "Lenny Sundari"

                jenjang.Text = "S I"

                jurusan.Text = "Teknik Informatika"

            Case "12110189"

                nama.Text = "Rini Astuti"

                jenjang.Text = "S I"

                jurusan.Text = "Teknik Informatika"

            Case "12110278"

                nama.Text = "Rinie Angreini"

                jenjang.Text = "D III "

                jurusan.Text = "Sistem Informasi"

            Case "12110387"

                nama.Text = "Rapida Hanum"

                jenjang.Text = "D I"

                jurusan.Text = "Teknik Komputer"

            Case Else

                nama.Text = "-"

        End Select

End Sub

E.  untuk mendapatkan nama dosen secara otomatis, langsung saja double clik di combo box “kode dosen” gak perlu sungkan-sungkan.
 

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

        Select Case kodedosen.Text

            Case "D 001"

                namadosen.Text = "Mesran S,kom. M,kom."

            Case "D 002"

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

            Case "D 003"

                namadosen.Text = "Sinar Sinurat ST. M,Kom."

            Case "D 004"

                namadosen.Text = "Tonny Limbong S,Kom. M,Kom."

            Case "D 004"

                namadosen.Text = "ABD Sani Sembiring S,Kom M,Kom."

            Case "D 005"

                namadosen.Text = "ABD Halim S,Kom. M,Kom."

            Case "D 101"

                namadosen.Text = "Melda Panjaitan"

            Case "D 103"

                namadosen.Text = "Kennedy Tampubolon"

            Case "D 105"

                namadosen.Text = "Yasir Hasan S,Kom. M,Kom."

            Case Else

                namadosen.Text = "-"

        End Select

End Sub

F.  dan peraturan nya, nama mata kuliah juga harus didapat secara otomatis, maka langsung saja ketikkan  cooding berikut. Dengan cara double clik di kode mata kuliah

Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged

        Select Case kodematkul.Text

            Case "A 02"

                namamatkul.Text = "Visual Basic"

            Case "A 03"

                namamatkul.Text = "Turbo Pascal"

            Case "A 04"

                namamatkul.Text = "Sistem Operasi"

            Case "A 08"

                namamatkul.Text = "Teknik Digital"

            Case "A 09"

                namamatkul.Text = "Bahas Ingris"

            Case "A 15"

                namamatkul.Text = "Struktur Data"

            Case "A 16"

                namamatkul.Text = "Kalkulus"

            Case "A 27"

                namamatkul.Text = "Prangkat Lunak Aplikasi"

            Case "A 30"

                namamatkul.Text = "Fisika Lanjutan"

            Case Else

                namamatkul.Text = "-"

        End Select

End Sub

G.   dan untuk mendapatkan nilai akhir, nilai angka, dan keterangan kita membutuhkan tombol  yang sering di sebut dengan tombol button proses, maka, cepat saja double click di button proses dan masukkan coding berikut.

 

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

        nahir.Text = nhadir.Text * 0.1 + ntugas.Text * 0.15 + nuts.Text * 0.3 + nuas.Text * 0.45

        If nahir.Text >= 81 Then

            nhruf.Text = "A"

            keterangan.Text = "LULUS"

        ElseIf nahir.Text >= 75 Then

            nhruf.Text = "B+"

            keterangan.Text = "LULUS"

        ElseIf nahir.Text >= 70 Then

            nhruf.Text = "B"

            keterangan.Text = "LULUS"

        ElseIf nahir.Text >= 65 Then

            nhruf.Text = "C+"

            keterangan.Text = "LULUS"

        ElseIf nahir.Text >= 60 Then

            nhruf.Text = "C"

            keterangan.Text = "PERBAIKAN"

        ElseIf nahir.Text >= 50 Then

            nhruf.Text = "D"

            keterangan.Text = "PERBAIKAN"

        Else

            nhruf.Text = "E"

            keterangan.Text = "GAGAL"

        End If

End Sub

H.   proses selanjutnya adalah penghapusan,

langsung saja double clik di button hapus dan ketik cooding berikut

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

        Call addbersih()

End Sub

I.  langkah terakhir adalah proses keluar atau mengakhiri program

    double clik saja di button keluar

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

        Me.Close()

End Sub

end class

Demikian lah cara-cara yang dapat ane share malam ini, moga bermanfaat buat teman-teman sekalian. pelajari juga  tentang form-penggajian-karyawan, dan belajar bahasa pemerograman lainnya di http://mesran.net/ 
baca juga program pembayaran listrik vb-2008.

Good luck...!