Programan Nilai Mahasiswa

Programan Nilai Mahasiwa

Public Class Form1

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nmmtkuliah.Text = ""
        kdmtkuliah.Text = ""
        nmdosen.Text = ""
        kddosen.Text = ""
        nuas.Text = ""
        ntgs.Text = ""
        nuts.Text = ""
        nkehadiran.Text = ""
        na.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110028")
        npm.Items.Add("12110107")
        npm.Items.Add("12110108")

        kddosen.Items.Add("aa")
        kddosen.Items.Add("bb")
        kddosen.Items.Add("cc")

        kdmtkuliah.Items.Add("SO")
        kdmtkuliah.Items.Add("VB")
        kdmtkuliah.Items.Add("SBT")

        Dim s As Integer
        For s = 100 To 1 Step -3
            nuas.Items.Add(s)
        Next
        For s = 100 To 1 Step -3
            nuts.Items.Add(s)
        Next
        For s = 100 To 1 Step -3
            ntgs.Items.Add(s)
        Next
        For s = 100 To 1 Step -3
            nkehadiran.Items.Add(s)
        Next
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110028"
                Nama.Text = "Halima Tusa'diah .P"
                jenjang.Text = "strata 1"
                jurusan.Text = "teknik infomatika"
            Case "12110107"
                nama.Text = "tri desy novita"
                jenjang.Text = "Diploma 3"
                jurusan.Text = "Manajemen informatika"
            Case "12110108"
                nama.Text = "jefry man"
                jenjang.Text = "Diploma 1"
                jurusan.Text = "akutansi"
            Case Else
                nama.Text = "_"
        End Select
    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        Select Case kddosen.Text
            Case "aa"
                nmdosen.Text = "Abdul sani sembiring"
            Case "bb"
                nmdosen.Text = "Mesran"
            Case "cc"
                nmdosen.Text = "pandi simangunsong"
            Case Else
                nmdosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        na.Text = 0.3 * nuts.Text + 0.45 * nuas.Text + 0.1 * ntgs.Text + 0.15 * nkehadiran.Text
        If na.Text >= 50 Then
            nh.Text = "A+"
            ket.Text = "Selamat, Berjuang Terus"
        Else
            nh.Text = "E"
            ket.Text = "Anda gagal, Coba lagi"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

    End Sub

    Private Sub kdmtkuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmtkuliah.SelectedIndexChanged
        Select Case kdmtkuliah.Text
            Case "SO"
                nmmtkuliah.Text = "Sistem Operasi"
            Case "VB"
                nmmtkuliah.Text = "Visual Basic"
            Case "SBD"
                nmmtkuliah.Text = "sitem basis data"
            Case Else
                nmmtkuliah.Text = "_"
        End Select
    End Sub

    Private Sub Btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class

PROGRAM VB NET MENCARI TOTAL PEMBAYARAN TV

Berikut Listing Program VB Net Pembayaran TV

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nbrg.Items.Add("LG")
        nbrg.Items.Add("SAMSUNG")
        nbrg.Items.Add("SONY")
    End Sub
    Private Sub nb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbrg.SelectedIndexChanged
        If nbrg.Text = "LG" Then
            hrg.Text = "1500000"
        ElseIf nbrg.Text = "SAMSUNG" Then
            hrg.Text = "2000000"
        ElseIf nbrg.Text = "SONY" Then
            hrg.Text = "1000000"
        End If
    End Sub

    Private Sub jlhjual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhjual.KeyPress
        If e.KeyChar = Chr(13) Then
            tohar.Text = Val(hrg.Text * jlhjual.Text)
        End If
    End Sub

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

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

        tohar.Text = hrg.Text * jlhjual.Text
        If tohar.Text > 2500000 Then
            disk.Text = 0.1 * tohar.Text
        Else
            disk.Text = 0


        End If
        topem.Text = tohar.Text - disk.Text

    End Sub
End Class

MODIFIKASI LATIHAN FORM NILAI MAHASISWA MENGGUNAKAN LISTVIEW

 Modifikasi kasus program berikut inihttp://www.mesran.blogspot.com/2013/10/latihan-form-nilai-mahasiswa.html dengan menggunakan LISTVIEW

Public Class Nilai_Mahasiswa

    Sub buattable()

        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Jurusan", 140, HorizontalAlignment.Center)

        LV.Columns.Add("Matakuliah", 140, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lsi As New ListViewItem

        lsi.Text = npm.Text

        lsi.SubItems.Add(nama.Text)

        lsi.SubItems.Add(jenjang.Text)

        lsi.SubItems.Add(jurusan.Text)

        lsi.SubItems.Add(nm_matkul.Text)

        lsi.SubItems.Add(nilaiakhir.Text)

        LV.Items.Add(lsi)

    End Sub

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

        buattable()

        npm.Items.Add("12110028")

        npm.Items.Add("12110006")

        npm.Items.Add("12110106")

        nm_matkul.Items.Add("Pemograman Visual")

        nm_matkul.Items.Add("Struktur Data")

        nm_matkul.Items.Add("Sistem Basis Data")

        Dim i As Integer

        For i = 100 To 1 Step -1

            nilahadir.Items.Add(i)

            niaiquis.Items.Add(i)

            nilaiuts.Items.Add(i)

            nilaiuas.Items.Add(i)

        Next i

    End Sub

    Private Sub nilaiuas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilaiuas.SelectedIndexChanged

        nilaiakhir.Text = Val(0.1 * nilahadir.Text) + Val(0.15 * niaiquis.Text) + Val(0.3 * nilaiuts.Text) + Val(0.45 * nilaiuas.Text)

    End Sub

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

        If npm.Text = "12110028" Then

            nama.Text = "Halima Tusa'diah .P"

            jenjang.Text = "S1"

            jurusan.Text = "Teknik Informatika"

        ElseIf npm.Text = "12110006" Then

            nama.Text = "Tri Desy Novita L"

            jenjang.Text = "D3"

            jurusan.Text = "Manajemen Informatika"

        Else

            nama.Text = "Siska Juli yanti R"

            jenjang.Text = "D3"

            jurusan.Text = "Akutansi Informatika"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        isitable()

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        nm_matkul.Text = ""

        nilahadir.Text = ""

        niaiquis.Text = ""

        nilaiakhir.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        npm.Focus()

    End Sub

 

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

        LV.Items.Remove(LV.Items(0))

    End Sub

End Class

Berikut program listing listview

manfaat senyum

MANFAAT SENYUM
 
Secara nggak sadar kadang kita memasang muka cemberut. Apalagi saat sedang ada masalah atau mendapat tugas yang sulit. Eiitts, kebanyakan cemberut ternyata nggak baik, lho. Menurut penelitian yang dilakukan oleh Karina Davidson dari Pusat Medis Universitas Columbia, Amerika Serikat, orang yang suka cemberut lebih berpeluang terkena penyakit jantung. Hiii...

Makanya, mulai sekarang banyak-banyaklah tersenyum, karena selain kita akan terlihat manis, banyak manfaat lain dari senyum. Antara lain:

• Dengan tersenyum, wajah kita akan terlihat lebih menarik dan bersahabat.

• Senyum bisa membuat mood kita jadi lebih baik, lho. Saat sedang sedih atau kesal, coba deh tersenyum… Secara ajaib, pasti perasaan kita akan membaik.

• Tersenyum bisa membuat sistem kekebalan tubuh kita jadi lebih baik. Saat kita tersenyum, fungsi kekebalan kita meningkat karena tubuh kita dalam kondisi lebih rileks. Ayo, cegah flu dengan banyak tersenyum.

• Seulas senyum akan menurunkan tekanan darah kita. Nggak percaya? Coba cek tekanan darahmu di rumah. Sebelum dan sesudah tersenyum beberapa saat.

• Pengin terlihat fresh? Banyak tersenyum saja. Karena otot-otot wajah yang kita gunakan saat tersenyum, bisa membuat kulit wajah lebih lentur.

• Yang terpenting nih, senyum bisa merangsang orang lain menjadi tersenyum juga. Jadi, saat kita berhadapan dengan seseorang yang memusuhi atau akan memarahi kita, sebelum mereka sempat ‘nyemprot’, berikan saja seulas senyum. Pasti emosinya menurun, deh.

Wah, ternyata banyak ya manfaat senyum itu? Karena senyum juga banyak orang menjadi terkenal. Ingat dengan senyum America Ferrera dalam serial Ugly Betty? Konon katanya senyuman dari gigi berkawat ini diasuransikan sebesar US $ 10 juta, lho! Ckckck…

Dandan cepat 15 menit saja ikuti tips brikut ini

Kecantikan - Dandan Cepat 15 Menit Saja Ikuti 7 Tips Berikut Ini. Kita sebagai perempuan memang tidak pernah lepas dari yang namanya make-up. Rasanya ada yang kurang jika kita pergi ke kantor atau ke sebuah acara namun tidak mengenakan make-up. Namun di zaman serba cepat ini, para perempuan butuh waktu cepat untuk berdandan.
Salah satu penata rias PAC Indonesia dari Martha Tilaar, memberikan tipsnya untuk berdandan hanya dalam waktu 15 menit. Berikut caranya:
1. Gunakan foundation. Pilih foundation yang mendekati warna kulit Anda. Pakai spons dalam penggunaannya, dan ratakan ke wajah dengan cara ditepuk-tepuk.
2. Setelah selesai pada tahapan memakai foundation, lanjutkan dengan memilih alas bedak yang sama dengan warna kulit Anda. Jika sudah menemukan alas bedak yang sesuai dengan warna kulit, kemudian ratakan ke wajah dengan cara memulasnya perlahan. Jangan menekan kulit pada saat memakai bedak, pasalnya jika menekan justru bedak tidak akan diserap oleh kulit.
3. Selesai mengaplikasikan foundation dan bedak, maka lanjut gunakan eyeshadow. Pilih warna eyeshadow sesuai keinginan. Cara memakai eyeshadow yang benar yaitu dimulai dari pangkal luar mata menuju ke dalam mata, lalu penuhi eyeshadow pada bagian setengah kelopak mata. Kenapa harus penuh? Karena selama ini banyak di antara wanita yang hanya menggunakan eyeshadow segaris dengan mata. Pemakaian seperti itulah yang membuat eyeshadow tidak tampak.
4. Usai pada tahap ketiga tadi, gunakan eyeshadow warna terang pada bagian bawah alis. Hal ini dimaksudkan untuk memberikan efek terang pada wajah Anda.
5. Selanjutnya, aplikasikan liquid eyeliner dari PAC Indonesia. Eyeliner ini memiliki tujuh warna berbeda yang bisa diaplikasikan sesuai dengan warna eyeshadow yang dipakai. Bahannya yang waterproof membuat riasan mata Anda menjadi lebih cemerlang dan menarik.
6. Selesai dengan tahapan tadi, kini saatnya membentuk alis mata Anda. Banyak orang yang berkata, alis mata menjadi penentu bentuk wajah kita. Ya benar, karenanya gunakan cara yang tepat agar mendapatkan alis mata yang baik. Mulailah dari pangkal dalam alis yang sejajar dengan ujung hidung Anda. Gambar alis Anda perlahan, ikuti arah alis mata. Jika sudah tahu arah yang tepat, maka alis mata yang sesuai akan Anda dapatkan. Mudah bukan?
7. Yang terakhir adalah memulas bibir. Sebelum memakai lipstik, biasakan Anda menggunakan pensil bibir. Hal ini dimaksudkan untuk membentuk bibir Anda agar terlihat rapi dan penuh. Setelah selesai menggunakan pensil bibir, pilih warna lipstik yang sesuai, oles bibir dengan memakai kuas dan rapikan. Bibir penuh menggoda segera Anda miliki.
Nah, bagaimana mudah bukan? Hanya dengan 15 menit Anda akan mendapatkan tata rias sesuai dengan teknik dan keinginan Anda. Coba yuk dipraktekkan sekarang.

8 langkah sederhana merawat dan mempercantik diri

SEMUA orang ingin tampilan kulit wajah alami tanpa cacat. Cara singkat pun dilakukan dengan bantuan penata rias. Sebenarnya Anda pun bisa mempercantik diri dengan tips berikut ini:
1. Bersihkan wajah dengan pembersih dan toner. Lalu terapkan pelembap di wajah dan bibir.
2. Aplikasikan foundation all-in-one yang warnanya lebih gelap dari warna kulit alami Anda. Kemudian ratakan dengan spons. Tambahkan bedak tabur di sekitar tepi bibir untuk merapihkan riasan.
3. Gunakan blush on krim berwarna perunggu atau kemerahan. Terapkan mulai dari tengah pipi di sapukan bolak-balik dengan kuas sehingga konsentrasi warna merata. Terakhir tambahkan lagi blush on berwarna alami sambil tersenyum.
4. Terapkan eye shadow berglitter pada kelopak mata. Sapukan warna terang pada sudut mata agar tampilan mata menyala.
5. Sikat alis ke arah sama. Lalu aplikasikan gel alis atau menggunakan hairspray pada sikat gigi untuk membentuk alis. Buat sketsa dengan sudut melengkung dengan pensil alis.
6. Terapkan eyeliner dengan pensil yang digariskan dan ditarik ke arah sudut mata untuk mempertajam mata.
7. Langkah selanjutnya terapkan maskara hitam untuk Anda yang berkulit gelap. Untuk kulit lebih terang gunakan warna coklat lembut. Terapkan maskara di dasar bulu mata dahulu kemudian goyangkan ke arah ujung sudut mata. Sikat secara zig-zag untuk menambah volume bulu mata.
8. Sebelum memakai lipstik, gunakan pensil bibir untuk membentuk garis bibir. Jangan tersenyum saat memakainya. Untuk tampil natural, terapkan warna sedikit coklat dari warna bibir normal.

20 keajaiban madu

• Madu kaya senyawa humektan. Hal ini membantu mempertahankan kadar air dalam kulit dan mengembalikan elastisitasnya, sehingga membuat kulit lentur.

• Madu membantu mengangkat sel kulit mati dan mencegah munculnya keriput.

• Antibakteri dan antimikroba pada madu membantu mencegah pertumbuhan bakteri tertentu. Sehingga digunakan untuk mengobati luka bakar dan lecet.

• Madu membantu membersihkan luka,mengurangi bau dan nanah dan meningkatkan penyembuhan cepat.

• Madu digunakan untuk mengobati kulit rusak dan regenerasi sel-sel kulit baru. Madu efektif menyembuhkan eksim, dermatitis dan gangguan kulit lainnya.

• Sifat anti-jamur dalam madu, dapat membantu menyembuhkan infeksi pada kaki

• Madu sarat dengan antioksidan alami, yang membantu melindungi kulit dari kerusakan ultraviolet.

• Madu dapat digunakan sebagai tabir surya untuk melindungi kulit dari sinar matahari.

• Madu bisa menembus lapisan atas kulit, jadi dapat mengelupas kotoran. Serta membantu melawan infeksi dan mencegah masalah jerawat.

• Madu adalah pelembap kulit yang baik dan efektif meremajakan kulit.

• Penerapan madu pada bibir pecah-pecah dan keriput akan membuat mereka sangat halus dan lembut.

• Madu terdiri dari gula seperti glukosa dan fruktosa dan mineral seperti magnesium, kalium, kalsium, natrium klor, belerang, besi, dan fosfat.

• Madu mengandung vitamin B1, B2, C, B6, B5 dan B3, yodium, dan seng.

• Madu dapat meningkatkan daya tahan dan mengurangi kelelahan otot.

• Madu membantu pada wanita yang mengalami morning sickness saat hamil.

• Konsumsi madu secara teratur akan meningkatkan penyerapan kalsium dan jumlah hemoglobin yang membantu untuk melawan anemia.

• Madu membantu menurunkan kolesterol serta meningkatkan HDL (kolesterol baik).

• Madu membantu membersihkan sistem pernapasan dari lendir.

• Madu membantu memodulasi sistem kekebalan tubuh, mencegah terulangnya infeksi.

• Madu memainkan peran penting dalam mengelola obesitas. Madu membantu mempercepat metabolisme yang pada gilirannya membantu tubuh lebih banyak membakar lemak.

Nah, banyak banget kan manfaat madu untuk tubuh kita? Apa Anda masih ragu dengan keunggulan madu?