Contoh List-View Program Nilai Mahasiswa VB.NET

Gambar Form :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("11120483")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")

        Dim i As Integer
        For i = 10 To 100
            nk.Items.Add(i)
        Next i

        Dim j As Integer
        For j = 10 To 100
            nt.Items.Add(j)
        Next j

        Dim k As Integer
        For k = 10 To 100
            uts.Items.Add(k)
        Next k

        Dim l As Integer
        For l = 10 To 100
            uas.Items.Add(l)
        Next l

    End Sub


    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110485"
                nama.Text = "Dezy Wandrio"
            Case "12110020"
                nama.Text = " Invandri Lubis"
            Case "12020483"
                nama.Text = " Firda auli"
            Case "12030478"
                nama.Text = "Park cu Yoon"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        If i = "12" Then
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        ElseIf i = "10" Then
            jenjang.Text = "D1"
            jurusan.Text = "Jaringan Komunikasi"
        End If
    End Sub

    Sub BuatTabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode matakuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama matakuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai kehadiran", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai tugas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Jurusan.Text)
        lst.SubItems.Add(Kodedosen.Text)
        lst.SubItems.Add(nmdosen.Text)
        lst.SubItems.Add(kdmatakuliah.Text)
        lst.SubItems.Add(matakuliah.Text)
        lst.SubItems.Add(nk.Text)
        lst.SubItems.Add(nt.Text)
        lst.SubItems.Add(uts.Text)
        lst.SubItems.Add(uas.Text)
        lst.SubItems.Add(na.Text)
        lst.SubItems.Add(nh.Text)
        lst.SubItems.Add(Keterangan.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KKTI01"
                nmdosen.Text = "Mesran,M.Kom"
            Case "KKTI02"
                nmdosen.Text = "Ahmad Zakir,St,M.Kom"
            Case "KKTI03"
                nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
            Case "KKTI04"
                nmdosen.Text = "Maranata,ST,M.Kom"
        End Select
    End Sub

    Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
        Select Case kdmatakuliah.Text
            Case "MT01"
                matakuliah.Text = "struktur data"
            Case "MT02"
                matakuliah.Text = "Pemograman Visual"
            Case "MT03"
                matakuliah.Text = "Komunikasi Data"
            Case "MT04"
                matakuliah.Text = "Arsitektur Dan Organissi"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * uts.Text + 0.45 * uas.Text
        If na.Text >= 80 Then
            nh.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
            keterangan.Text = "Gagal"
        Else
            nh.Text = "E"
            keterangan.Text = "Gagal"

        End If


    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

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

    End Sub

    Private Sub btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussatu.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
    End Sub
End Class

Hasil ,,,

TIPS MEMBELI LAPTOP BARU

Tips Membeli Laptop Baru

Memasuki akhir liburan dan tahun ajaran baru, tentu banyak siswa ataupun mahasiswa yang ingin membeli laptop untuk kebutuhan sekolah atau kuliah mereka.
Dengan banyak laptop baru yang berjejalan di pasar elektronik Indonesia saat ini. Tentu terkadang memilih sebuah laptop baru yang akan dibeli menjadi salah satu hal yang sulit dilakukan.
Namun ada beberapa tips bagi Anda untuk membeli sebuah perangkat laptop baru yang nantinya benar-benar sesuai dengan kebutuhan maupun isi kantong. Berikut empat tips yang bisa Anda lakukan sewaktu membeli laptop baru.

1. Pilih laptop dari merek ternama

Dengan banyaknya pilihan laptop yang beredar di pasaran, tentu memilih satu laptop dari puluhan merek laptop yang ada di pasaran bisa menjadi pilihan yang sulit.
Namun, laptop dari produsen dengan brand ternama memang memiliki dan menyajikan kualitas yang lebih baik dibandingkan dengan laptop dari merek di bawahnya. Memang laptop dari produsen ternama ini biasanya memiliki harga yang lebih mahal, akan tetapi bukankah ada ungkapan yang mengatakan harga itu menentukan kualitas.

2. Belilah laptop yang sesuai dengan kebutuhan

Jika laptop yang akan Anda beli merupakan laptop yang murni hanya digunakan untuk kegiatan sekolah atau kuliah dan mendukung aktivitas hiburan sampingan seperti mendengarkan musik dan menonton film, maka sebaiknya Anda membeli laptop dengan spesifikasi mid-end.
Kebutuhan pada kegiatan sekolah atau kuliah biasanya tidak menuntut laptop untuk bekerja keras. Sehingga Anda cukup membeli laptop dengan spesifikasi prosesor dual core, RAM 2GB, dan spesifikasi lain yang masuk dalam kategori mid-end.

3. Hati-hati laptop dengan harga murah

Biasanya, ada saja penjual yang menawarkan laptop baru dengan harga murah. Padahal laptop tersebut merupakan produksi perusahaan terkenal.
Namun, Anda harus curiga dengan penawaran menggiurkan tersebut. Bisa jadi laptop tersebut merupakan barang hasil selundupan tanpa garansi ataupun produk tiruan yang saat ini marak beredar di pasaran. Sebaiknya belilah laptop dari toko retail resmi yang sudah banyak beredar di kota-kota besar di Indonesia.

4. Perhatikanlah garansi kerusakan laptop

Garansi tentu jadi faktor penting jika Anda membeli sebuah perangkat elektronika baru seperti laptop.
Terkadang, setiap produsen laptop memberikan masa dan jenis yang berbeda-beda pada setiap produknya. Untuk itu, cermatlah dalam melihat ketentuan garansi agar nantinya jika laptop mengalami kerusakan, Anda tidak bingung untuk melakukan klaim garansinya.http://eldakhairani94.blogspot.com/

Cara Mengatasi Komedo

 

 

Cara mengatasi komedo. Cara Menghilangkan Komedo Dengan Cepat. Seputar kecantikan, setiap orang pasti ingin wajahnya bebas dari komedo atau mungkin jerawat. Bahkan tidak sedikit orang yang menghabiskan biaya demi merawat wajahnya dari gangguan komedo. Sebenarnya komedo bisa muncul karena beberapa faktor, seperti bakteri, faktor hormon, makanan dan sebagainya. Untuk itu disini saya ingin berbagi cara menghilangkan komedo dengan cepat yang di ambil dari eHow.

Cara menghilangkan komedo ini mungkin akan sangat bermanfaat untuk anda, terutama para wanita yang biasanya lebih mengutamakan penampilannya dari pada pria. Ok langsung saja disimak baik-baik.

Cara Menghilangkan Komedo Dengan Cepat

1. Bersihkan wajah 2-3 kali sehari

Khususnya, pada bagian yang berkomedo dengan menggunakan pembersih anti bakteri. Komedo akan bertambah kalau Anda membiarkan debu, riasan wajah, atau keringat menempel terus seharian. Jadi, sangat disarankan untuk membersihkan wajah dua hingga tiga kali sehari.

2. Lakukan pengelupasan di daerah yang berkomedo memakai facial scrub

Hal itu akan menghilangkan sel kulit mati dan menumbuhkan sel kulit yang baru. Sel kulit mati dapat memperburuk keadaan komedo jika tidak segera diangkat. Anda bisa scrub wajah di bagian dahi, hidung dan dagu. Ketiga daerah tersebut merupakan tempat tumbuhnya komedo.

3. Handuk Hangat

Letakkan kain yang telah direndam air panas ke atas permukaan wajah berkomedo. Panas akan membantu menghilangkan perih saat mengelupaskan komedo. Selain itu, handuk panas juga mengurangi adanya infeksi akibat pengangkatan tersebut.

4. Oleskan krim penghilang jerawat di atas kulit berkomedo

Pilih krim yang mengandung benzoil peroksida. Benzoil peroksida adalah bahan yang baik untuk membunuh bakteri, menyerap minyak, serta cepat menghilangkan komedo dan jerawat.

5. Pergi ke salon untuk facial

Rawatlah kulit Anda di tempat facial. Dengan bantuan ahli, maka komedo akan keluar dari dalam kulit dengan cara yang lembut. Jangan mencoba mengeluarkan komedo sendiri, karena kulit dapat terinfeksi.

6. Datang ke dokter kulit

Dalam beberapa kasus, dokter kulit dapat menyuntikkan cairan kortison langsung ke dalam komedo. Selain bisa mengurangi pembengkakan dan kemerahan pada wajah, suntikan ini juga dapat membuat komedo tidak terlihat. Namun, menyuntik kortison tidak boleh terlalu sering. Anda hanya boleh menggunakannya ketika menghadiri acara penting yang mengharuskan Anda tampil maksimal saat itu.

7. Buat ramuan baking soda dan air secukupnya

Oleskan ramuan ini ke atas permukaan wajah yang berkomedo, diamkan selama 20 menit, lalu bilas. Baking soda akan menyerap kelebihan minyak yang terkandung dalam kulit wajah, menghapus bakteri, serta menghilangkan komedo yang membandel.