Minggu, 10 Juni 2012

Les Menari dan Vocal

" Rosep Private Menari dan Les Vocal "


Menerima murid baru untuk diajar menjadi penari dan penyanyi secara profesional dan akan di gabung menjadi suatu tim yang menarik....
bila anda tertarik...........
hub : robetheriantosiregar@yahoo.com

Rabu, 06 Juni 2012

Cara memisahkan Objek - objek

Membuat Foto Vintage (Antik) pada foto Ayu Ting Ting hanya dengan Curves

Foto Vintages adalah foto yang kelihatan antik atau foto jadul.. dulu saya sudah pernah posting cara membuat foto jadul .. cara pembuatan foto vintage atau antik yang ini beda dan gampang banget..Hanya mengandalkan keajaiban CURVES foto vintage pun jadi.. mau bukti ?
Buka foto Ayu Ting Ting ( Neng Ayu Ting Ting ini siapa nya Malih Tong Tong yah ?? ) hehehe
ayu ting ting
saya ambil dari kapanlagi.com hehehe.. minta foto nya yaa ..
Duplikat layer background dengan menekan CTRL +  J ..

Sekarang Klik Add New Fill and Adjustment layer di Layer Palette.

Di Jendela Curves ada yang nama nya Channel.. dan ini fungsi nya untuk menyeting warna atau cahaya di sebuah foto..
Channel RGB = RED , Green , Blue..
nah kita setting deh si Channel tersebut..
Kita setting Channel Biru nya dulu ..

Sekarang kita setting Channel Green :

Sekarang Channel RED

Catatan : Kalo Kadung ke Klik OK , Klik aja 2x layer Curves di layer pallete nya ..
Pilih Layer Background Copy hasil Duplikat layer background tadi..
Klik Filter > Noise > Add Noise

Sekarang kita gunakan Efek Vignette atau membuat gelap di semua sisi foto.. kita gak perlu pake manual kalo udah pake CS 3 ke atas..
Kita pake Filter Lens Corrections..
Pilih Filter > Distort > Lens Corrections

Kalo sudah di setting Vignette nya  .. Klik OK
Hasilnya  :
ayu ting ting
Selamat Mencoba !!

<h2>Membuat Foto Vintage (Antik) pada foto Ayu Ting Ting hanya dengan Curves</h2>
<p>Foto Vintages adalah foto yang kelihatan antik atau foto jadul.. dulu saya sudah pernah posting <a href="http://ilmuphotoshop.com/2009/12/01/foto-efek-cara-mudah-membuat-foto-jadul/">cara membuat foto jadul</a> .. cara pembuatan foto vintage atau antik yang ini beda dan gampang banget..Hanya mengandalkan keajaiban CURVES foto vintage pun jadi.. mau bukti ?</p>
<p>Buka <a href="http://ilmuphotoshop.com/2011/11/08/membuat-foto-vintage-antik-pada-foto-ayu-ting-ting-hanya-dengan-curves/">foto Ayu Ting Ting </a>( Neng <a href="http://ilmuphotoshop.com/2011/11/08/membuat-foto-vintage-antik-pada-foto-ayu-ting-ting-hanya-dengan-curves/">Ayu Ting Ting</a> ini siapa nya Malih Tong Tong yah ?? ) hehehe</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting.jpg"><img class="alignnone size-large wp-image-2926" title="ayu ting ting" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-682x1024.jpg" alt="ayu ting ting" width="510" height="765" /></a></p>
<p>saya ambil dari kapanlagi.com hehehe.. minta foto nya yaa ..</p>
<p>Duplikat layer background dengan menekan CTRL +  J ..</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-2.jpg"><img class="alignnone size-full wp-image-2919" title="ayu ting ting 2" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-2.jpg" alt="" width="247" height="164" /></a></p>
<p>Sekarang Klik Add New Fill and Adjustment layer di Layer Palette.</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/curves.jpg"><img class="alignnone size-full wp-image-2927" title="curves" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/curves.jpg" alt="" width="276" height="414" /></a></p>
<p>Di Jendela Curves ada yang nama nya Channel.. dan ini fungsi nya untuk menyeting warna atau cahaya di sebuah foto..</p>
<p>Channel RGB = RED , Green , Blue..</p>
<p>nah kita setting deh si Channel tersebut..</p>
<p>Kita setting Channel Biru nya dulu ..</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-3.jpg"><img class="alignnone size-full wp-image-2920" title="ayu ting ting 3" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-3.jpg" alt="" width="456" height="466" /></a></p>
<p>Sekarang kita setting Channel Green :</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-4.jpg"><img class="alignnone size-full wp-image-2921" title="ayu ting ting 4" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-4.jpg" alt="" width="469" height="466" /></a></p>
<p>Sekarang Channel RED</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-5.jpg"><img class="alignnone size-full wp-image-2922" title="ayu ting ting 5" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-5.jpg" alt="" width="469" height="467" /></a></p>
<blockquote><p>Catatan : Kalo Kadung ke Klik OK , Klik aja 2x layer Curves di layer pallete nya ..</p></blockquote>
<p>Pilih Layer Background Copy hasil Duplikat layer background tadi..</p>
<p>Klik Filter > Noise > Add Noise</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-6.jpg"><img class="alignnone size-full wp-image-2923" title="ayu ting ting 6" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-6.jpg" alt="" width="464" height="376" /></a></p>
<p>Sekarang kita gunakan Efek Vignette atau membuat gelap di semua sisi foto.. kita gak perlu pake manual kalo udah pake CS 3 ke atas..</p>
<p>Kita pake Filter Lens Corrections..</p>
<p>Pilih Filter > Distort > Lens Corrections</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-7.jpg"><img class="alignnone size-full wp-image-2924" title="ayu ting ting 7" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-7.jpg" alt="" width="516" height="476" /></a></p>
<p>Kalo sudah di setting Vignette nya  .. Klik OK</p>
<p>Hasilnya  :</p>
<p><a href="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-8.jpg"><img class="alignnone size-full wp-image-2925" title="ayu ting ting 8" src="http://ilmuphotoshop.com/wp-content/uploads/2011/11/ayu-ting-ting-8.jpg" alt="ayu ting ting " width="451" height="527" /></a></p>
<p>Selamat Mencoba !!</p>


<p>
Artikel <a href="http://ilmuphotoshop.com/2011/11/08/membuat-foto-vintage-antik-pada-foto-ayu-ting-ting-hanya-dengan-curves/">Membuat Foto Vintage (Antik) pada foto Ayu Ting Ting hanya dengan Curves</a> ini dipersembahkan oleh <a href="http://ilmuphotoshop.com" title="Tutorial Photoshop Gratis">Tutorial Photoshop Gratis</a>. Kunjungi <a href="http://desktop.93vs.com" title="Wallpaper, Font, Desktop Theme Gratis"> Wallpaper, Font, Desktop Theme Gratis</a> Pokoknya Serba Gratis. Baca Juga <a href="http://photoshopedit.com" title="Adobe Photoshop Tutorial"> Adobe Photoshop Tutorials</a> </p>
13_inspirasi_desain_blog
Melanjutkan posting sebelumnya tentang bedah desain blog, kali ini kita akan menikmati beberapa tren dan contoh desain blog yang sedang populer di tahun 2010.

Tampaknya penggunaan layout yang minimalis, whitespace yang lumayan luas, dan pengaturan tipografi menjadi beberapa poin penting dalam mendesain blog saat ini. Kata orang, melihat secara langsung akan lebih baik daripada hanya berkata-kata, jadi silakan menikmati :)

Alonso

inspirasi_desain_blog_alonso
Yang menarik dari desain blog ini adalah elemen kecil yang “menabrak” layout. Seperti pada tag “by” dan kotak search di sebelah kanan yang melewati area konten.

The Design Cubicle

inspirasi_desain_blog_bhoff
Bagi yang pernah melihat blog Brian Hoff ini pasti tidak lupa dengan styling archives nya di sidebar kanan. Selain itu area konten yang sengaja di buat lebih kecil dari blog lain juga menjadi satu ciri khas.

Christoph Zillgens

inspirasi_desain_blog_christoph
Penempatan icon di sebelah kiri yang melambangkan tipe setiap posting terbilang unik. Tipe seperti ini biasanya menggunakan platform Tumblr (yang memang sudah dari sananya seperti itu). Detil garis pembatas di setiap akhir posting juga memberikan detil yang kecil namun berdampak besar.

Fresh 01

inspirasi_desain_blog_fresh01
Wow! Itu kata yang saya ucapkan sendiri pada waktu pertama kali melihat blog ini. Di lihat dari layout nya sih biasa saja, tapi kalau kamu sudah mulai scrolling, disitulah trik yang membuat blog ini menjadi favorit saya pribadi.

Jay Hollywood

inspirasi_desain_blog_jayh
Penggunaan gambar yang besar pada header membuat blog ini mudah di kenali, walaupun dampak negatif nya adalah mengganggu navigasi utama di atas. Ini merupakan salah satu contoh layout dasar biasa saja bisa terlihat bagus jika di padukan dengan gambar yang menarik.

Morphix Blog

inspirasi_desain_blog_morphix
Desain blog ini membuktikan kalau grid dan ilustrasi bisa juga berkolaborasi menghasilkan desain yang bersahabat (fun) namun tetap terlihat bersih dan modern.

Particle Lab

inspirasi_desain_blog_particlelab
Saya tidak tahan melihat tipografi pada heading nya, sangat besar sekali! tapi itulah yang menjadi ciri khas blog ini. Perpaduan warna yang kalem dan warna-warni menghasilkan satu desain yang sedap di pandang. Mereka juga punya selera humor tersendiri dengan membuat lingkaran di header bisa bergerak (bukan dengan flash).

Thomas Maier

inspirasi_desain_blog_thomas
Simplisitas maksimum. Itu kesan pertama yang saya dapat. Elemen grafis yang menonjol hanya ada pada pita merah di kanan atas. Selebih nya semua visual lebih di utamakan kepada fungsi. Yang saya agak bingung, apa tujuan panah di samping menu links? Mungkin ada yang bisa berspekulasi? silakan berkomentar :)

Trent Walton

inspirasi_desain_blog_trentwalton
Sekali lagi contoh perkawinan layout sederhana dan visualisasi yang kuat akan menghasilkan desain yang powerful. Header yang digunakan adalah gambar utama posting, sehingga setiap kali ada posting baru, maka header akan ikut berganti. Ide yang bagus!

Veerle Duoh

inspirasi_desain_blog_veerle
Saya suka detil tekstur pada background blog ini, hampir tidak terlihat tapi kita bisa merasakannya. Kombinasi warna blog ini juga unik, feminin tapi juga tidak terlalu feminin, pas! Cara pengaturan layout juga tidak seperti blog kebanyakan, banyak yang bisa di pelajari dari blog Veerle ini.

Ardian Trimurti

inspirasi_desain_blog_ardian
Sejak pertama kali melihat langsung suka. Memang dari segi visual tidak ada yang menonjol di blog Ardian ini. Tetapi pegaturan tipografi yang sangat baik dan penggunaan whitespace yang maksimal membuat blog sederhana itu tidak terlihat sederhana. Yang menjadi nilai tambah adalah status visited link di kanan atas (akan ada icon checklist). Saya baru pertama kali melihat yang seperti itu.

Working Library

inspirasi_desain_blog_workinglibrary
Bagi sebagian orang tampilan blog yang satu ini akan di anggap membosankan. Mungkin karena terlalu sederhana?. Namun yang pasti dari sisi fungsionalitas desain tipe ini sangat baik, heading yang besar, di bantu dengan sedikit deskripsi tentang posting. Saya merasa seperti membaca sebuah buku.

Information Architects

inspirasi_desain_blog_ia
Hampir sama dengan blog Trent Walton di atas, tipe ini sangat sederhana. Mengedepankan konten daripada visual. Pengaturan font pada heading dan body text sangat baik, sehingga membuat blog iA ini nyaman di baca dalam waktu yang lama.
Bagaimana menurut kamu inspirasi blog di atas? Ada blog favorit yang ingin kamu tambahkan? silakan berkomentar

Belajar Gratis Photoshop

Sabtu, 02 Juni 2012

Cara membuat Rambut Indah

Jangan sering-sering menyuci rambut........
Pada saat keramas, jangan disisir...
gunakan conditioner dan masker rambut 1 x seminggu..
bisa juga menggunakan masker rambut lidah buaya...
santan dan kemiri yang telah disangrai dan ditumbuk....
uda deh...........
itu tips dari aku.................

Minggu, 29 Januari 2012

jawaban no. 3 sepdiarina








Public Class Login

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

    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        If Username.Text = "sepdiarina" And password.Text = "111" Then
            Pegawai.Show()
            Me.Hide()
        Else
            MsgBox("data username/password salah?")
            Username.Text = ""
            password.Text = ""
        End If
    End Sub

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


Public Class Pegawai
    Sub listjabatan()
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")

    End Sub
    Sub listjam()
        jam.Items.Add("1")
        jam.Items.Add("2")
        jam.Items.Add("3")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Call listjabatan()
        Call liststatus()
        Call listjam()

    End Sub

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

    Private Sub cmdproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdproses.Click
        pajak.Text = Val(1.5 / 100 * gapok.Text)
        tot.Text = Val(gapok.Text) + Val(tun_istri.Text) + Val(tun_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)
    End Sub


    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click
        nm.Text = ""
        jabatan.Text = ""
        gapok.Text = ""
        status.Text = ""
        anak.Text = ""
        tun_istri.Text = ""
        tun_anak.Text = ""
        pajak.Text = ""
        jam.Text = ""
        gaji_lembur.Text = ""
        tot.Text = ""
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "menikah" Then
            tun_istri.Text = Val(9 / 100 * gapok.Text)
        End If

    End Sub
    Sub liststatus()
        status.Items.Add("menikah")
        status.Items.Add("lajang")
    End Sub


    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            gapok.Text = "1750000"

        ElseIf jabatan.Text = "Kepala Bagian" Then
            gapok.Text = "2500000"

        ElseIf jabatan.Text = "Staff" Then
            gapok.Text = "1250000"

        End If
    End Sub

    Private Sub anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.SelectedIndexChanged
        If status.Text = "menikah" And anak.Text = "1" Then
            tun_anak.Text = Val(3 / 100 * gapok.Text)
        ElseIf status.Text = "menikah" And anak.Text = "2" Then
            tun_anak.Text = Val(7 / 100 * gapok.Text)
        ElseIf status.Text = "menikah" And anak.Text = ">= 2" Then
            tun_anak.Text = Val(7 / 100 * gapok.Text)
        End If
    End Sub

    Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor"
                Select Case jam.Text
                    Case "1" : gaji_lembur.Text = "7500"
                    Case "2" : gaji_lembur.Text = "15000"
                    Case "3" : gaji_lembur.Text = "22500"
                End Select
            Case "Bagian Kepala"
                Select Case jam.Text
                    Case "1" : gaji_lembur.Text = "10000"
                    Case "2" : gaji_lembur.Text = "20000"
                    Case "3" : gaji_lembur.Text = "30000"
                End Select
            Case "Staff"
                Select Case jam.Text
                    Case "1" : gaji_lembur.Text = "5000"
                    Case "2" : gaji_lembur.Text = "10000"
                    Case "3" : gaji_lembur.Text = "15000"
                End Select
        End Select
    End Sub
    Sub buattabel()
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Status", 90, HorizontalAlignment.Center)
        lv.Columns.Add("Anak", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Tunjangan Istri", 110, HorizontalAlignment.Center)
        lv.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)
        lv.Columns.Add("Pajak", 110, HorizontalAlignment.Center)
        lv.Columns.Add("Jam Lembur", 120, HorizontalAlignment.Center)
        lv.Columns.Add("Gaji Lembur", 110, HorizontalAlignment.Center)
        lv.Columns.Add("Total Gaji", 120, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nm.Text
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gapok.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(anak.Text)
        lst.SubItems.Add(tun_istri.Text)
        lst.SubItems.Add(tun_anak.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(jam.Text)
        lst.SubItems.Add(gaji_lembur.Text)
        lst.SubItems.Add(tot.Text)
        lv.Items.Add(lst)

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
        isitabel()
        nm.Text = ""
        jabatan.Text = ""
        gapok.Text = ""
        status.Text = ""
        anak.Text = ""
        tun_istri.Text = ""
        tun_anak.Text = ""
        jam.Text = ""
        gaji_lembur.Text = ""
        tot.Text = ""
    End Sub
End Class


Jawaban No. 2 Quiz Online Sepdiarina








Public Class Form1

 
    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click
        End
    End Sub
    Private Sub cmd_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_semua.Click
        lv.Items.Clear()
    End Sub

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

    Private Sub cmd_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_bersih.Click
        npm.Text = ""
        nm.Text = ""
        jur.Text = ""
        jenjang.Text = ""
        thn.Text = ""
        nilai_angka.Text = ""
        nilai_huruf.Text = ""
    End Sub

    Sub buattabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
        lv.Columns.Add("Tahun Masuk", 110, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Angka", 110, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Huruf", 120, 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(nm.Text)
        lst.SubItems.Add(jur.Text)
        lst.SubItems.Add(jenjang.Text)
        lst.SubItems.Add(thn.Text)
        lst.SubItems.Add(nilai_angka.Text)
        lst.SubItems.Add(nilai_huruf.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Call listnpm()
        npm.Focus()
    End Sub
    Sub listnpm()
        npm.Items.Add("0911213")
        npm.Items.Add("0911319")
        npm.Items.Add("1009215")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "0911213" Then
            nm.Text = " Tia"
        ElseIf npm.Text = "0890763" Then
            nm.Text = " lia"
        ElseIf npm.Text = "0911319" Then
            nm.Text = "tukiyem"

        End If

        Dim x As String
        thn.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
        If x = "1" Then
            jenjang.Text = "Diploma I"

        ElseIf x = "3" Then
            jenjang.Text = "Diploma III"
        ElseIf x = "4" Then
            jenjang.Text = "Strata I"
        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
        If x = "12" Then
            jur.Text = "Manajemen Informatika"
        ElseIf x = "13" Then
            jur.Text = "Sistem Informatika"
        ElseIf x = "03" Then
            jur.Text = "Teknik Komputer"
        ElseIf x = "04" Then
            jur.Text = "Akutansi"
        End If
    End Sub

    Private Sub nilai_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilai_angka.KeyPress
        If e.KeyChar = Chr(13) Then
            If nilai_angka.Text >= 80 Then
                nilai_huruf.Text = "A"
            ElseIf nilai_angka.Text >= 70 Then
                nilai_huruf.Text = "B"
            ElseIf nilai_angka.Text >= 60 Then
                nilai_huruf.Text = "C"
            ElseIf nilai_angka.Text >= 40 Then
                nilai_huruf.Text = "D"
            ElseIf nilai_angka.Text < 40 Then
                nilai_huruf.Text = "E"

            End If
        End If
    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub cmd_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_simpan.Click
        isitabel()
        npm.Text = ""
        nm.Text = ""
        jur.Text = ""
        jenjang.Text = ""
        thn.Text = ""
        nilai_angka.Text = ""
        nilai_huruf.Text = ""
    End Sub
End Class