Nilai Mahasiswa dengan Menggunakan VB.Net 2008

MEMBUAT FORM NILAI MAHASISWA MENGGUNAKAN
VISUAL BASIC 2008

   
Hai sobat blogger, kali ini ane akan share dikit cara-cara membuat form penilaian 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

Read More

KASUS PEMOGRAMAN PEMAKAIAN LISTRIK

1. KASUS PEMROGRAMAN PEMBYARAN LISTRIK

 Public Class Form1
  Sub isitabel()
        Dim Y As New ListViewItem
        Y.Text = kodepel.Text
        Y.SubItems.Add(nama.Text)
        Y.SubItems.Add(tipe.Text)
        Y.SubItems.Add(hargaperkwh.Text)
        Y.SubItems.Add(daerah.Text)
        Y.SubItems.Add(biayabeban.Text)
        Y.SubItems.Add(jumlahpemakai.Text)
        Y.SubItems.Add(totaltagihan.Text)
        Y.SubItems.Add(pembayaran.Text)
        lv.Items.Add(Y)
    End Sub
    Sub rancang()
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.Columns.Add("Kode Pel", 100)
        lv.Columns.Add("Nama ", 140)
        lv.Columns.Add("Type", 160)
        lv.Columns.Add("Harga /kwh", 110)
        lv.Columns.Add("Daerah", 100)
        lv.Columns.Add("Biaya Beban", 100)
        lv.Columns.Add("Besar Pemakaian", 100)
        lv.Columns.Add("Total Tagihan", 100)
        lv.Columns.Add("Pajak", 100)
        lv.Columns.Add("Pembayaran", 100)
    End Sub
    Sub bersih()
        kodepel.Text = ""
        nama.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        jumlahpemakai.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        pajak.Text = ""
    End Sub
    Sub kodepelanggan()
        kodepel.Items.Add("PAB - MED - 100")
        kodepel.Items.Add("TOK - BEL - 101")
        kodepel.Items.Add("SWA - MAR - 102")
        kodepel.Items.Add("RUM - BIN - 103")
        kodepel.Items.Add("PAB - PAK - 104")
        kodepel.Items.Add("SWA - TEM - 105")
    End Sub
    Sub kodekonsumen()
        kodepel.Items.Add("MT- MJ- 010")
        kodepel.Items.Add("MK- MB- 011")
        kodepel.Items.Add("JK- MJ- 012")
    End Sub

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

        rancang()
        kodepelanggan()
    End Sub
    Private Sub jumlahpemakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (hargaperkwh.Text * jumlahpemakai.Text)
            pajak.Text = 0.15 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepel.SelectedIndexChanged
        Dim x, y, z As String
        x = Strings.Right(kodepel.Text, 3)
        Select Case x
            Case "100" : nama.Text = "TIO"
            Case "101" : nama.Text = "ROY"
            Case "102" : nama.Text = "DARMAWAN"
            Case "103" : nama.Text = "AWAN"
            Case "104" : nama.Text = "SULIS"
            Case "105" : nama.Text = "SETIYO"
        End Select
        y = Strings.Left(kodepel.Text, 3)
        Select Case y
            Case "TOK"
                hargaperkwh.Text = 500
                biayabeban.Text = 150000
                tipe.Text = "Toko"
            Case "RUM"
                hargaperkwh.Text = 200
                biayabeban.Text = 50000
                tipe.Text = "Rumah"
            Case "PAB"
                hargaperkwh.Text = 10000
                biayabeban.Text = 1000000
                tipe.Text = "Pabrik"
            Case "SWA"
                hargaperkwh.Text = 1500
                biayabeban.Text = 400000
                tipe.Text = "Swalayan"
        End Select
        z = Strings.Mid(kodepel.Text, 7, 3)
        Select Case z
            Case "MED"
                daerah.Text = "Medan"
            Case "BEL"
                daerah.Text = "Belawan"
            Case "MAR"
                daerah.Text = "Marendal"
            Case "BIN"
                daerah.Text = "Binjai"
            Case "PAK"
                daerah.Text = "Lubuk Pakam"
            Case "TEM"
                daerah.Text = "Aksara"
            Case Else
                daerah.Text = "-"
        End Select
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        bersih()
    End Sub
    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
        bersih()
    End Sub
    Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

End Class

Read More