NILAI MAHASISWA DENGAN VB.NET

malam semua sobat kali ni saya mempostingkan  tentang nilai mahasiswa dengan vb.net

   
Hai sobat blogger, kali ini ane akan share dikit cara-cara membuat nilai mahasiswa menggunakan visual basic 2008., 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 = "Muhammad Shodiq"
                jenjang.Text = "S I"
                jurusan.Text = "Teknik Informatika"
            Case "12110177"
                nama.Text = "Syariman"
                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 = "Sulis Styo"
                jenjang.Text = "D III "
                jurusan.Text = "Sistem Informasi"
            Case "12110387"
                nama.Text = "asrul"
                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 mesran.net