Cara-ane.com

Wednesday 30 April 2014

Cara Menghilang Background di photoshop

Anda senang mengutak-atik gambar/foto? Jika anda suka di sini saya akan memberikan cara untuk menghapus background foto dengan Photoshop CS3. Saya ambil contoh foto teman saya di FB, saya unduh fotonya lalu coba saya modifikasi di sini, kebetulan kualitas gambarnya bagus jadi silahkan simak langkah-langkahnya.

Akhir Modifikasi Gambar

1. Buka Photoshop Kalian

2. File Open / Open As, cari gambar / foto kalian lalu klik Ok.

3. Pilih salah satu alat pemotong, di sini saya menggunakan Polygonal Lasso Tool.

4. Klik pada tepi foto untuk memulai memotong. Klik sekali, klik lagi untuk membentuk sudut baru dan klik dua kali untuk mengakhiri pemotongan anda.

5. Jika sudah, tekan Ctrl + J di keyboard kalian.

6. Nah, sekarang Layer kalian menjadi dua Layer, ( Layer Background dan Layer 1 )

7. Klik kanan pada layer Background, pilih Delete Layer atau langsung tekan Delete di keyboard kalian. Sekarang Layer kalian tinggal Layer 1.

8. Klik kanan Erasel Tool, pilih Erasel Tool.

9. Pilih Brush, lalu atur seberapa besar penghapus yang anda inginkan pada Brush => Master diameter, dengan cara tarik slidernya ke kanan untuk memperbesar dan ke kiri sebaliknya.

10. Atur juga beberapa % Opacity maupun Flow yang kalian inginkan.

11. Selanjutnya kita akan memulai menghapus pinggiran foto untuk menyempurnakan potongannya. Caranya klik tahan, geser brush eraser ke arah gambar background sampai bersih.

Catatan: Agar penghapusan kita lebih akurat, zoom + gambar kalian dengan Zoom Tool.

12. Untuk memastikan apakah foto anda sudah bersih background-nya, klik Layer, Layer Style => Stroke.

Perhatikan titik-titik merah di luar Outline gambar.

13. Klik kembali Erasel Tool lalu bersihkan semua background yang masih tersisa.

14. Jika sudah ulangi langkah 12 , hilangkan centang pada stroke. Maka hasilnya akan seperti gambar di bawah:

15. Selesai, gambangji toh ? Sekarang kita bebas mengisi background-nya.

16. Save As foto hasil kerja kalian dalam format PSD. Mengapa PSD ? karena jika suatu saat kita ingin memberi background tinggal membuat layer baru tanpa mengedit kembali fotonya.

17. Sekarang saatnya memberi Background pada gambar kita. Buat layer baru di bawah layer 1;

18. Kemudian pilih Blending Option => Gradient Overlay atur seperti gambar di bawah;

Ok ces dan hasilnya seperti begini;

Selamat Mencoba...

Sekian dan terima kasih

Cara Mudah Mengganti Backgroun Phas Foto

Hallo sobat.. Pada postingan kali ini kita akan mencoba membahas tentang bagaimana cara mengganti background atau latar pas foto. Untuk pengerjaannya cukup simpel/mudah, hanya membutuhkan waktu lebih kurang 1 (satu) menit. Ga' percaya? Simak aja...

Buka dulu photoshopnya. Setelah itu buka pas foto yang akan di ubah background nya...
Tekan Ctrl_J pada keyboard sebanyak 2 (dua) kali, sehingga sekarang kita mempunyai 3 layer yaitu layer background, layer 1 dan layer 1 copy.

Layer 1 adalah untuk menyeleksi rambut, sedangkan layer 1 copy akan kita gunakan untuk mengganti background. Kalau rambut pada objek foto tidak ada (ex.botak, pakai jilbab dll) maka cukup menekan ctrl_J satu kali saja dan lanjutkan ke nomor 4...
Aktifkan / Klik layer 1.. dan seleksi rambut (caranya lihat disini)
Oke, rambut sudah terseleksi, sekarang aktifkan layer 1 copy. Aktifkan Magic Wand Tool (W) lalu klik pada bagian background yang akan diganti..
Klik select pada menu - modify - expand lalu masukkan angka 1 (ini akan memperluas bidang seleksi sebesar 1 pix), setelah itu feather (masih pada menu yang sama/klik kanan-feather) yang berfungsi untuk memperhalus tepian bidang seleksi. Masukkan lagi angka 1. Setelah itu tekan delete pada keyboard. Sekarang background nya sudah hilang, lihat gambar...
Selanjutnya kita akan memasukkan background baru ke pas foto. Buat layer baru dengan menekan create new layer pada pallette layers. Posisikan layer baru tersebut tepat berada diatas layer background dengan menekan ctrl_[ pada keyboard
.Masih layer 2 aktif, tekan G pada keyboard (gradien tool) dan pilih warna background yang diinginkan (lebih cepatnya pilih di pallete swatches/window - swatches) lalu klik pada foto.
Gabung semua layer dengan mengklik pada sudut atas pallette layers - flatten image. Kemudian save atau pindahkan ke dokumen baru untuk di cetak.

Nah, cukup mudah bukan? Jika kita sudah hafal langkah-langkah tersebut maka dalam waktu kurang dari 1 menit kita sudah bisa mengganti warna background pas foto. Semoga bermanfaat....

Sumber : http://barajafoto.blogspot.com/2013/04/cara-mudah-mengganti-background-pas-foto.html

Langkah – Langkah:

Langkah 1
Buatlah Project baru
File > New
Tentukan Panjang dan Lebar yang diinginkan (pixels)
Tentukan juga berapa Resolusi yang dibutuhkan (pixel/cm)
Tentukan juga Color mode (default RGB)
Berapa Bit yang dibutuhkan (default 8 Bit)
Tentukan sendiri Background Contents (default White)

lalu ok

Disini kita menggunakan Panjang 1024px ; Lebar 768px ; serta resolusi 72px/cm
Sebaiknya sesuaikan dengan resolusi gambar yang akan diedit

Langkah 2
Lalu Buka Project yang akan di edit
File > Open

Langkah 3
Setelah Project tersedia, suntinglah sehingga menjadi bahan yang siap untuk edit…
Maksud sunting disini adalah pindahkan gambar ke layer baru (untitled-1) dengan menggunakanMove Tool

Langkah 4
Seleksi bagian mana saja yang ingin di edit pakai Magic Lasso Tool yang ada di toolbar atau Ctrl+L untuk mengaktifkannya,

Langkah 5
Edit Gambar, secara hati-hati (disini penulis menyeleksi bagian background gambar)
Tips: setelah menyeleksi gambar anak2 di contoh bawah, gunakan perintah inverse agar proses seleksi terbalik dari menyeleksi gambar anak ke gambar pemandangan/background.

Langkah 6Jika ingin membuat garisnya rata, gunakana Ctrl + Atl + D dan tentukan berapa radius yang dibutuhkan….

Catatan: Semakin besar radius, semakin besar pula jarak yang akan di blur….

Langkah 7Gunakan Filter – Blur – Radial Blur... Sesuaikan blur yang akan digunakan….

Langkah 8
Tampilan Radial Blur, tentukan apa saja yang kita ingin gunakan, dengan catatan semua tool yang ada dari tampilan ini mempunyai efek yang berbeda-beda.

Hasilnya seperti ini, menggunakan blur Method: Zoom – Quality: Best – Amount: 50

Jika ingin melihat hasilnya secara detail, gunakan Ctrl+F untuk melihat hasilnnya

Langkah 9
Jika sudah selesai gunakan Ctrl+H untuk melepaskan/menghilangkan pointer
Hasil Akhir, seperti ini

Selamat mencoba.....

Terima Kasih

Semoga Bermanfaat... ^_^

Sumber : http://www.ilmugrafis.com/photoshop_foto4.php?page=effect-blur-pada-photoshop-cs3

Modul Sistem Pendukung Keputusan (Tugas Pak Mesran)

Konsep Sistem Pendukung Keputusan (SPK) / Decision Support Sistem (DSS) pertama kali diungkapkan pada awal tahun 1970-an oleh Michael S. Scott Morton dengan istilah Management Decision Sistem. Sistem tersebut adalah suatu sistem yang berbasis komputer yang ditujukan untuk membantu pengambil keputusan dengan memanfaatkan data dan model tertentu untuk memecahkan berbagai persoalan yang tidak terstruktur [10].

Istilah SPK mengacu pada suatu sistem yang memanfaatkan dukungan komputer dalam proses pengambilan keputusan. Untuk memberikan pengertian yang lebih mendalam, akan diuraikan beberapa difinisi mengenai SPK yang dikembangkan oleh beberapa ahli, diantaranya oleh Man dan Watson yang memberikan definisi sebagai berikut, SPK merupakan suatu sistem yang interaktif, yang membantu pengambil keputusan melalui penggunaan data dan model-model keputusan untuk memecahkan masalah yang sifatnya semi terstruktur maupun yang tidak terstruktur. [10]

Karakteristik dan Nilai Guna

Karakteristik sistem pendukung keputusan adalah [10]:

1. Sistem Pendukung Keputusan dirancang untuk membantu pengambil keputusan dalam memecahkan masalah yang sifatnya semi terstruktur ataupun tidak terstruktur dengan menambahkan kebijaksanaan manusia dan informasi komputerisasi.

2. Dalam proses pengolahannya, sistem pendukung keputusan mengkombinasikan penggunaan model-model analisis dengan teknik pemasukan data konvensional serta fungsi-fungsi pencari / interogasi informasi.

3. Sistem Pendukung Keputusan, dirancang sedemikian rupa sehingga dapat digunakan/dioperasikan dengan mudah.

4. Sistem Pendukung Keputusan dirancang dengan menekankan pada aspek fleksibilitas serta kemampuan adaptasi yang tinggi.

Dengan berbagai karakter khusus diatas, SPK dapat memberikan berbagai manfaat dan keuntungan. Manfaat yang dapat diambil dari SPK adalah [10]:

1. SPK memperluas kemampuan pengambil keputusan dalam memproses data / informasi bagi pemakainya.

2. SPK membantu pengambil keputusan untuk memecahkan masalah terutama berbagai masalah yang sangat kompleks dan tidak terstruktur.

3. SPK dapat menghasilkan solusi dengan lebih cepat serta hasilnya dapat diandalkan.

4. Walaupun suatu SPK, mungkin saja tidak mampu memecahkan masalah yang dihadapi oleh pengambil keputusan, namun ia dapat menjadi stimulan bagi pengambil keputusan dalam memahami persoalannya, karena mampu menyajikan berbagai alternatif pemecahan.

Di samping berbagai keuntungan dan manfaat seperti dikemukakan diatas, SPK juga memiliki beberapa keterbatasan, diantaranya adalah [10] :

1. Ada beberapa kemampuan manajemen dan bakat manusia yang tidak dapat dimodelkan, sehingga model yang ada dalam sistem tidak semuanya mencerminkan persoalan sebenarnya.

2. Kemampuan suatu SPK terbatas pada perbendaharaan pengetahuan yang dimilikinya (pengetahuan dasar serta model dasar).

3. Proses-proses yang dapat dilakukan SPK biasanya juga tergantung pada perangkat lunak yang digunakan.

4. SPK tidak memiliki kemampuan intuisi seperti yang dimiliki manusia. Sistem ini dirancang hanyalah untuk membantu pengambil keputusan dalam melaksanakan tugasnya.

Jadi secara dapat dikatakan bahwa SPK dapat memberikan manfaat bagi pengambil keputusan dalam meningkatkan efektifitas dan efisiensi kerja terutama dalam proses pengambilan keputusan.

Komponen Sistem Pendukung Keputusan

Sistem pendukung keputusan terdiri atas tiga komponen utama yaitu [10]:

1. Subsistem pengelolaan data (database).

2. Subsistem pengelolaan model (modelbase).

3. Subsistem pengelolaan dialog (userinterface).

Hubungan antara ketiga komponen ini dapat dilihat pada gambar dibawah.

Gambar : Hubungan antara tiga komponen sistem pendukung keputusan

Download Modul Sistem Pendukung Keputusan Disini.

Sumber : SPK http://haniif.wordpress.com/2007/08/01/23-tinjauan-pustaka-sistem-pendukung-keputusan-spk/

Program Kriptografi Pada VB.Net 08

Public Class Vernam

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1

            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65
            nKunci = Asc(Mid(sKey, a, 1)) - 65
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If

    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged
    End Sub
End Class

Public Class Form1

    Private Sub Btnenskript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenskript.Click
        Dim jumlah As Double = Len(plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next
        chipteks.Text = xkalimat
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chipteks.Text = ""
    End Sub
End Class

Public Class vigenere

    Private Sub vigenere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub enkrippt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkrippt.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 26
            nKunci = Asc(Mid(sKey, a, 1)) - 26
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 26)
        Next i
        chiperteks.Text = sPlain

    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 26) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Public Class gronsfeld

    Private Sub gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 326
            nKunci = Asc(Mid(sKey, a, 1)) - 326
            nEnc = ((nKata + nKunci) Mod 326)
            sPlain = sPlain & Chr((nEnc) + 326)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 326) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Ahsan/Hedra Letupkan Euforia Istora

JAKARTA – Euforia akhirnya meledak di Istora Senayan. Ganda putra Mohammad Ahsan/Hendra Setiawan membuat seluruh penonton bersorak usai menyelamatkan muka Indonesia dengan merebut gelar juara Djarum Indonesia Open Super Series Premier (DIOSSP) 2013.

Sukses ini didapat pasangan yang barus dipasangkan sekira setahun lalu, usai menumbangkan ganda putra Korea, Ko Sung Hyun/Lee Yong Dae dengan dua game langsung 21-14 dan 21-18.

Bermain di bawah dukungan penuh ribuan pendukung di Istora Senayan, Minggu (16/6) petang, Ahsan/Hendra langsung tampil menyerang. Tekanan demi tekanan terus dilancarkan sehingga memaksa unggulan kedua ini tidak dapat berbuah banyak di game pertama.

Di game kedua, Ahsan/Hendra kembali mengambil inisiatif serangan dan terus memimpin perolehan poin 14-11. Namun, pasangan Ko/Dae tidak lantas menyerah dan sempat menyamakan kedudukan menjadi 14-14.

Permainan reli-reli penjang nan mendebarkan kerap diperagakan kedua pasangan. Ahsan/Hendra yang terus menyerang akhirnya sukses menuntaskan perlawanan Ko/Dae dengan skor 21-18 dalam tempo 39 menit.

Kemenangan ini langsung disambut euforia seluruh penonton di Istora, tak terkecuali Ketua Umum PBSI yang juga Menteri Perdagangan Indonesia, Gita Wirjawan yang menyaksikan secara langsung ditemani Menpora, Roy Suryo dan Agum Gumelar. Pasalnya, ini merupakan satu-satunya gelar yang bisa diraih Indonesia setelah sebelumnya gagal di nomor tunggal putra, putri, ganda putri dan ganda campuran.

Usai pertandingan, rona kebahagiaan pun terpancar jelas di wajah Ahsan dan Hendra. “Kami sadar bahwa kami adalah satu-satunya harapan untuk meraih gelar, maka kami bermain habis-habisan untuk bisa menang,” ujar Hendra Setiawan.

“Jujur, stamina saya sudah habis, tapi dukungan dari supporter membuat saya kuat,” timpal Ahsan memberikan apresiasi besar kepada supporter Indonesia yang tak pernah lelah memberikan dukungan.

Sumber : http://famagulz.blogspot.com/2013/06/ahsanhendra-letupkan-euforia-istora.html#ixzz2WRSzGpve

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html

Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..

Public Class Form1

Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

If kodebarang.Text = "TS001" Then

nomorpembelian.Text = "1"

namabarang.Text = "Laptop"

merk.Text = "Acer"

harga.Text = "105000"

totalharga.Focus()

ElseIf kodebarang.Text = "TS002" Then

nomorpembelian.Text = "2"

namabarang.Text = "HP"

merk.Text = "Nokia"

harga.Text = "1200000"

totalharga.Focus()

ElseIf kodebarang.Text = "VG003" Then

nomorpembelian.Text = "3"

namabarang.Text = "Printer"

merk.Text = "Cannon"

harga.Text = "2500000"

End If

End Sub

Sub BuatTable()

LV.Columns.Add("NOMOR PEMBELIAN", 150, HorizontalAlignment.Center)

LV.Columns.Add("KODE BARANG", 120, HorizontalAlignment.Center)

LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Center)

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

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

LV.Columns.Add("JUMLAH BELI", 150, HorizontalAlignment.Center)

LV.Columns.Add("TOTAL HARGA", 150, HorizontalAlignment.Center)

LV.GridLines = True

LV.FullRowSelect = True

LV.View = View.Details

End Sub

Sub IsiTable()

Dim x As New ListViewItem

With x

.Text = nomorpembelian.Text

.SubItems.Add(kodebarang.Text)

.SubItems.Add(namabarang.Text)

.SubItems.Add(merk.Text)

.SubItems.Add(harga.Text)

.SubItems.Add(jumlahbeli.Text)

.SubItems.Add(totalharga.Text)

LV.Items.Add(x)

End With

nomorpembelian.Focus()

End Sub

Sub Total_Harga()

Dim i As Long

i = 0

For j As Integer = 0 To lv.Items.Count - 1

i = i + Val(lv.Items(j).SubItems(4).Text)

Totalharga.Text = "RP." & Format(i, "###.######")

End Sub

Sub hapus()

nomorpembelian.Text = ""

kodebarang.Text = ""

namabarang.Text = ""

merk.Text = ""

harga.Text = ""

jumlahbeli.Text = ""

totalharga.Text = ""

End Sub

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

kodebarang.Items.Add("A001")

kodebarang.Items.Add("A002")

kodebarang.Items.Add("A003")

BuatTable()

End Sub

Private Sub btnsimpankelistvew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistvew.Click

totalharga.Text = harga.Text * jumlahbeli.Text

IsiTable()

nomorpembelian.Focus()

hapus()

End Sub

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

nomorpembelian.Text = ""

namabarang.Text = ""

kodebarang.Text = ""

merk.Text = ""

harga.Text = ""

jumlahbeli.Text = ""

totalharga.Text = ""

End Sub

Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click

namabarang.Text = ""

kodebarang.Text = ""

namabarang.Text = ""

merk.Text = ""

harga.Text = ""

jumlahbeli.Text = ""

totalharga.Text = ""

LV.Items.Clear()

If LV.SelectedItems.Count <> 0 Then

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

Else

MsgBox("Semua Data Terhapus")

End If

End Sub

Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click

If LV.SelectedItems.Count <> 0 Then

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

Else

MsgBox("Pilih Dulu Yang Mau Di hapus")

End If

End Sub

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

Close()

End Sub

End Class

Terima Kasi.....

Cara-ane.com

Wednesday 30 April 2014

Cara Menghilang Background di photoshop

Cara Mudah Mengganti Backgroun Phas Foto

Tutorial Effect Blur Pada Adobe Photoshop CS3

Monday 14 April 2014

Modul Sistem Pendukung Keputusan (Tugas Pak Mesran)

Monday 1 July 2013

Program Kriptografi Pada VB.Net 08

Sunday 16 June 2013

Ahsan/Hedra Letupkan Euforia Istora

Sunday 2 June 2013

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Blog Archive

Popular Posts