assalamualaikum wr.wb selamat datang di blog aini

Jumat, 28 Juni 2013

Cara menggunakan BB sebagai Wifi Router

sekarang ini banyak kafe, mal dan restoran di kota-kota besar yang menyediakan layanan wifi hotspot gratis. Banyak orang berdiam diri cukup lama di kafe untuk menggunakan wifi gratis dengan hanya bermodalkan secangkir kopi.
Namun, sering kali fasilitas wifi gratis ini tidak tersedia setiap saat, seperti saat berada di perjalanan atau di desa terpencil.
Sementara itu, banyak orang yang mempunyai BB dan berlangganan paket browsing. Untuk chatting dan browsing darurat BB memang praktis, tapi bagaimana memanfaatkan konektifitas yang sudah ada secara maksimal?
Ada dua cara untuk menghubungkan BB ke laptop anda. Yang pertama adalah secara manual, dan prosesnya susah-susah gampang. Secara garis besar, tahap-tahapnya adalah sebagai berikut:
  1. Pastikan anda menhubungkan kabel USB dan sudah menginstal BB handheld manager di komputer anda
  2. Pastikan spesifikasi BlackBerry anda sesuai untuk fungsi modem.
  3. Pada umumnya model BB di atas menyediakan driver modem. Apabila tidak tersedia, driver bisa di download dari
  4. Cek bahwa modem driver tersebut berfungsi.
  5. Daftarkan koneksi internet baru pada komputer anda.
  6. Disable IP header Compression:
Untuk penjelasan proses lebih mendetil dapat dilihat di bagian terkait di situs ini
www.bbgeeks.com
www.blackberryforums.com
Cara pertama ini mungkin terasa sulit terutama bila tidak terbiasa dengan menyambungkan koneksi internet sendiri. Untuk memudahkan, Blackberry app world menyediakan app khusus yang dapat secara praktis mengubah BB menjadi router. App khusus ini bernama Tether dan cara penggunaannya dapat dilihat dari situs tether.com. App ini cukup diinstal di BB dan laptop, dan proses koneksi internet yang mengubah BB menjadi router akan dipandu dari awal hingga akhir. Prosesnya cukup lima menit. Aplikasi ini bisa menggunakan koneksi melalui kabel USB atau bluetooth.
Harga aplikasi memang mahal, kira-kira Rp. 270,000. Memang tidak beda jauh dari harga awal modem (seperti Telkom Flazz). Tapi, kalau dipertimbangkan secara jangka panjang, menggunakan BB sebagai modem lebih hemat karena tidak perlu mengeluarkan uang untuk paket intenet yang terpisah dengan modem. Biaya yang perlu dipersiapkan adalah biaya yang sesuai dengan harga BlackBerry dan tidak perlu jenis BlackBerry terbaru. Biaya konektifitas udah termasuk didalam harga BlackBerry data service yang memang sudah dibayar. Apalagi sekarang ada beberapa provider yang menyediakan konektifitas yang cukup kuat untuk bisa streaming musik dan video.

Yang penting untuk diingat dalam menggunakan BB menjadi wifi router adalah jenis paket internet yang didaftarkan. Pastikan untuk mendaftarkan BB dengan paket unlimited yang berarti termasuk paket browsing. Jangan sampai salah menggunakan BB sebagai modem ketika berlangganan paket dengan internet berkuota karena tagihan internet dapat melonjak tinggi.
Bahkan penggunaan internet tidak hanya untuk keadaan darurat, tapi bisa sebagai alternatif internet di rumah. Keuntungan ekstra ketika mengubah BB menjadi wifi router terlihat pada tagihan internet bulanan, dimana satu tagihan dapat dapat memberikan kebebasan dalam penggunaan internet diberbagai macam tempat. Modal awal memang sedikit berat, namun hidup akan menjadi lebih mudah di masa depan.

PENGOLAHAN CITRA

pengeolahan citra





caranya :
  1. Public Class Form1  
  2.     Dim bmap As Bitmap  
  3.   
  4.   
  5.     Private Sub Openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Openbtn.Click  
  6.         OpenFileDialog1.InitialDirectory = "c:\"  
  7.         OpenFileDialog1.Title = "Open Images"  
  8.         OpenFileDialog1.Filter = "Gambar|*.bmp;*.gif;*.jpg;*.png"  
  9.         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then  
  10.             PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)  
  11.             Exit Sub  
  12.         End If  
  13.   
  14.     End Sub  
  15.   
  16.     Private Sub Grayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grayscale.Click  
  17.         If PictureBox1.Image Is Nothing Then  
  18.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  19.             Exit Sub  
  20.         End If  
  21.   
  22.         Dim PICTURE As New Bitmap(PictureBox1.Image)  
  23.         Dim X, Y, warna As Integer  
  24.          
  25.   
  26.         For X = 0 To PICTURE.Width - 1  
  27.             For Y = 0 To PICTURE.Height - 1  
  28.                 Dim p = PICTURE.GetPixel(X, Y)  
  29.                 warna = CInt(p.R * 0.3 + p.G * 0.59 + p.B * 0.11)  
  30.                 PICTURE.SetPixel(X, Y, Color.FromArgb(warna, warna, warna))  
  31.                 PictureBox1.Image = PICTURE  
  32.             Next  
  33.             If X Mod 10 = 0 Then  
  34.                 PictureBox1.Invalidate()  
  35.                 PictureBox1.Refresh()  
  36.             End If  
  37.   
  38.         Next  
  39.         If Y Mod 10 = 0 Then  
  40.             PictureBox1.Invalidate()  
  41.             PictureBox1.Refresh()  
  42.         End If  
  43.     End Sub  
  44.   
  45.   
  46.     Private Sub Savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Savebtn.Click  
  47.         SaveFileDialog1.FileName = "Save Images"  
  48.         SaveFileDialog1.Filter = "Gambar|*.bmp;*.gif;*.jpg;*.png"  
  49.         If SaveFileDialog1.ShowDialog() = DialogResult.OK Then  
  50.             PictureBox1.Image.Save(SaveFileDialog1.FileName)  
  51.         End If  
  52.     End Sub  
  53.   
  54.     Private Sub Binerbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Binerbtn.Click  
  55.         If PictureBox1.Image Is Nothing Then  
  56.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  57.             Exit Sub  
  58.         End If  
  59.   
  60.         bmap = New Bitmap(PictureBox1.Image)  
  61.         PictureBox1.Image = bmap  
  62.         Dim tempbmp As New Bitmap(PictureBox1.Image)  
  63.         Dim DX As Integer  
  64.         Dim DY As Integer  
  65.         Dim Red, Green, Blue, Grey As Integer  
  66.         Dim X, Y As Integer  
  67.           
  68.         With tempbmp  
  69.             For X = DX To .Height - DX - 1  
  70.                 For Y = DY To .Width - DY - 1  
  71.                     Red = CInt(.GetPixel(Y, X).R)  
  72.                     Green = CInt(.GetPixel(Y, X).G)  
  73.                     Blue = CInt(.GetPixel(Y, X).B)  
  74.                     Grey = (Red + Green + Blue) / 3  
  75.                     'proses perubahan ke biner (hitam putih)  
  76.                     Dim clr As Color = bmap.GetPixel(Y, X)  
  77.                     If (Grey < 128) Then  
  78.                         Red = 0  
  79.                         Green = 0  
  80.                         Blue = 0  
  81.                     Else  
  82.                         Red = 255  
  83.                         Blue = 255  
  84.                         Green = 255  
  85.                     End If  
  86.                     bmap.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))  
  87.                 Next  
  88.                 If X Mod 10 = 0 Then  
  89.                     PictureBox1.Invalidate()  
  90.                     PictureBox1.Refresh()  
  91.                 End If  
  92.             Next  
  93.         End With  
  94.     End Sub  
  95.   
  96.     Private Sub mbitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbitbtn.Click  
  97.         If PictureBox1.Image Is Nothing Then  
  98.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  99.             Exit Sub  
  100.         End If  
  101.   
  102.         bmap = New Bitmap(PictureBox1.Image)  
  103.         PictureBox1.Image = bmap  
  104.         Dim tempbmp As New Bitmap(PictureBox1.Image)  
  105.         Dim DX As Integer = 1  
  106.         Dim DY As Integer = 1  
  107.         Dim Red As Integer, Green As Integer, Blue As Integer, Grey As Integer  
  108.         Dim X, Y As Integer  
  109.         Dim m As Integer = 2  
  110.         Dim Xth As Double  
  111.           
  112.         With tempbmp  
  113.             For X = DX To .Height - DX - 1  
  114.                 For Y = DY To .Width - DY - 1  
  115.                     Red = CInt(.GetPixel(Y, X).R)  
  116.                     Green = CInt(.GetPixel(Y, X).G)  
  117.                     Blue = CInt(.GetPixel(Y, X).B)  
  118.                     Grey = (Red + Green + Blue) / 3  
  119.                     Xth = (2 ^ m) * Int(Grey / 2 ^ m)  
  120.                     If (Xth > 256) Then  
  121.                         Red = 255  
  122.                         Green = 255  
  123.                         Blue = 255  
  124.                     Else  
  125.                         Red = Xth  
  126.                         Green = Xth  
  127.                         Blue = Xth  
  128.                     End If  
  129.   
  130.                     bmap.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))  
  131.                 Next  
  132.                 If X Mod 10 = 0 Then  
  133.                     PictureBox1.Invalidate()  
  134.                     PictureBox1.Refresh()  
  135.                 End If  
  136.             Next  
  137.         End With  
  138.     End Sub  
  139.   
  140.     Private Sub Brightbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brightbtn.Click  
  141.         If PictureBox1.Image Is Nothing Then  
  142.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  143.             Exit Sub  
  144.         End If  
  145.   
  146.         bmap = New Bitmap(PictureBox1.Image)  
  147.         PictureBox1.Image = bmap  
  148.         Dim tempbmp As New Bitmap(PictureBox1.Image)  
  149.         Dim DX As Integer = 1  
  150.         Dim DY As Integer = 1  
  151.         Dim Red As Integer, Green As Integer, Blue As Integer  
  152.         Dim X, Y As Integer  
  153.         Dim tb As Integer  
  154.         tb = 75  
  155.           
  156.         With tempbmp  
  157.             For X = DX To .Height - DX - 1  
  158.                 For Y = DY To .Width - DY - 1  
  159.                     Red = CInt(.GetPixel(Y, X).R)  
  160.                     Green = CInt(.GetPixel(Y, X).G)  
  161.                     Blue = CInt(.GetPixel(Y, X).B)  
  162.                     'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey   
  163.                     Red = Red + tb  
  164.                     Green = Green + tb  
  165.                     Blue = Blue + tb  
  166.                     If (Red > 255) Then  
  167.                         Red = 255  
  168.                     End If  
  169.                     If (Blue > 255) Then  
  170.                         Blue = 255  
  171.                     End If  
  172.                     If (Green > 255) Then  
  173.                         Green = 255  
  174.                     End If  
  175.                     bmap.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))  
  176.                 Next  
  177.                 If X Mod 10 = 0 Then  
  178.                     PictureBox1.Invalidate()  
  179.                     PictureBox1.Refresh()  
  180.                 End If  
  181.             Next  
  182.         End With  
  183.     End Sub  
  184.   
  185.     Private Sub Contrastbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contrastbtn.Click  
  186.         If PictureBox1.Image Is Nothing Then  
  187.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  188.             Exit Sub  
  189.         End If  
  190.   
  191.         bmap = New Bitmap(PictureBox1.Image)  
  192.         PictureBox1.Image = bmap  
  193.         Dim tempbmp As New Bitmap(PictureBox1.Image)  
  194.         Dim DX As Integer = 1  
  195.         Dim DY As Integer = 1  
  196.         Dim Red, Green, Blue As Integer  
  197.         Dim X, Y As Integer  
  198.         Dim tc As Integer  
  199.         tc = 5  
  200.           
  201.         With tempbmp  
  202.             For X = DX To .Height - DX - 1  
  203.                 For Y = DY To .Width - DY - 1  
  204.                     Red = CInt(.GetPixel(Y, X).R)  
  205.                     Green = CInt(.GetPixel(Y, X).G)  
  206.                     Blue = CInt(.GetPixel(Y, X).B)  
  207.                     'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey   
  208.                     Red = Red * tc  
  209.                     Blue = Blue * tc  
  210.                     Green = Green * tc  
  211.                     If (Red > 255) Then  
  212.                         Red = 255  
  213.                     End If  
  214.                     If (Blue > 255) Then  
  215.                         Blue = 255  
  216.                     End If  
  217.                     If (Green > 255) Then  
  218.                         Green = 255  
  219.                     End If  
  220.                     bmap.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))  
  221.                 Next  
  222.                 If X Mod 10 = 0 Then  
  223.                     PictureBox1.Invalidate()  
  224.                     PictureBox1.Refresh()  
  225.                 End If  
  226.             Next  
  227.         End With  
  228.     End Sub  
  229.   
  230.     Private Sub Inversibtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Inversibtn.Click  
  231.         If PictureBox1.Image Is Nothing Then  
  232.             MsgBox("WARNING : Tidak ada gambar untuk di konversi!")  
  233.             Exit Sub  
  234.         End If  
  235.   
  236.         bmap = New Bitmap(PictureBox1.Image)  
  237.         PictureBox1.Image = bmap  
  238.         Dim tempbmp As New Bitmap(PictureBox1.Image)  
  239.         Dim DX As Integer  
  240.         Dim DY As Integer  
  241.         Dim X, Y As Integer  
  242.           
  243.         With tempbmp  
  244.             For X = DX To .Height - DX - 1  
  245.                 For Y = DY To .Width - DY - 1  
  246.                     Dim clr As Color = bmap.GetPixel(Y, X)  
  247.                     'inversi 8 bit = 255-x  
  248.                     clr = Color.FromArgb(255, 255 - clr.R, 255 - clr.G, 255 - clr.B)  
  249.                     bmap.SetPixel(Y, X, clr)  
  250.                 Next  
  251.                 If X Mod 10 = 0 Then  
  252.                     PictureBox1.Invalidate()  
  253.                     PictureBox1.Refresh()  
  254.                 End If  
  255.             Next  
  256.         End With  
  257.     End Sub  
  258.   
  259.     Private Sub ExitBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBtn.Click  
  260.         End  
  261.     End Sub  
  262. End Class   

Senin, 10 Juni 2013

Negara Terkaya di Dunia saat ini ! Negara apa ?

Banyak sebenarnya yang tidak tahu dimanakah negara terkaya di planet bumi ini, ada yang mengatakan Amerika, ada juga yang mengatakan negera-negara di timur tengah. tidak salah sebenarnya, contohnya amerika. negara super power itu memiliki tingkat kemajuan teknologi yang hanya bisa disaingi segelintir negara, contoh lain lagi adalah negara-negara di timur tengah. rata-rata negara yang tertutup gurun pasir dan cuaca yang menyengat itu mengandung jutaan barrel minyak yang siap untuk diolah. tapi itu semua belum cukup untuk menyamai negara yang satu ini. bahkan Amerika, Negara-negara timur tengah serta Uni Eropa-pun tak mampu menyamainya. dan inilah negara terkaya di planet bumi yang luput dari perhatian warga bumi lainya. warga negara ini pastilah bangga jika mereka tahu. tapi sayangnya mereka tidak sadar "berdiri di atas berlian" langsung saja kita lihat profil negaranya.
baiklah mari kita urai semuanya satu persatu sehingga kita bisa melihat kekayaan negara ini sesungguhnya.

1. Negara ini punya pertambangan emas terbesar dengan kualitas emas terbaik di dunia. namanya PT Freeport. 
Apa saja kandungan yang di tambang di Freeport? ketika pertambangan ini dibuka hingga sekarang, pertambangan ini telah mengasilkan 7,3 JUTA ton tembaga dan 724,7 JUTA ton emas. lalu siapa yang mengelola pertambangan ini? bukan negara itu tapi AMERIKA! prosentasenya adalah 1% untuk negara pemilik tanah dan 99% untuk amerika sebagai negara yang memiliki teknologi untuk melakukan pertambangan disana. bahkan ketika emas dan tembaga disana mulai menipis ternyata dibawah lapisan emas dan tembaga tepatnya di kedalaman 400 meter ditemukan kandungan mineral yang harganya 100 kali lebih mahal dari pada emas, ya.. dialah URANIUM! bahan baku pembuatan bahan bakar nuklir itu ditemukan disana. belum jelas jumlah kandungan uranium yang ditemukan disana, tapi kabar terakhir yang beredar menurut para ahli kandungan uranium disana cukup untuk membuat pembangkit listrik Nuklir dengan tenaga yang dapat menerangi seluruh bumi hanya dengan kandungan uranium disana. Freeport banyak berjasa bagi segelintir pejabat negeri ini, para jenderal dan juga para politisi busuk, yang bisa menikmati hidup dengan bergelimang harta dengan memiskinkan bangsa ini. Mereka ini tidak lebih baik daripada seekor lintah!

 2. Negara ini punya cadangan gas alam TERBESAR DI DUNIA! tepatnya di Blok Natuna.

Berapa kandungan gas di blok natuna? Blok Natuna D Alpha memiliki cadangan gas hingga 202 TRILIUN kaki kubik!! dan masih banyak Blok-Blok penghasil tambang dan minyak seperti Blok Cepu dll. DIKELOLA SIAPA? EXXON MOBIL! dibantu sama Pertamina

 3. Negara ini punya Hutan Tropis terbesar di dunia.
hutan tropis ini memiliki luas 39.549.447 Hektar, dengan keanekaragaman hayati dan plasmanutfah terlengkap di dunia.
letaknya di pulau sumatra, kalimantan dan sulawesi. sebenarnya jika negara ini menginginkan kiamat sangat mudah saja buat mereka. tebang saja semua pohon di hutan itu makan bumi pasti kiamat. karena bumi ini sangat tergantung sekali dengan hutan tropis ini untuk menjaga keseimbangan iklim karena hutan hujan amazon tak cukup kuat untuk menyeimbangkan iklim bumi. dan sekarang mereka sedikit demi sediki telah mengkancurkanya hanya untuk segelintir orang yang punya uang untuk perkebunan dan lapangan Golf. sungguh sangat ironis sekali.

 4. Negara ini punya Luatan terluas di dunia. dikelilingi dua samudra, yaitu Pasific dan Hindia hingga tidak heran memiliki jutaan spesies ikan yang tidak dimiliki negara lain.
Saking kaya-nya laut negara ini sampai-sampai negara lain pun ikut memanen ikan di lautan negara ini.

 5. Negara ini punya jumlah penduduk terbesar ke 4 didunia.
dengan jumlah penduduk segitu harusnya banyak orang-orang pintar yang telah dihasilkan negara ini, tapi pemerintah menelantarkan mereka-mereka. sebagai sifat manusia yang ingin bertahan hidup tentu saja mereka ingin di hargai. jalan lainya adalah keluar dari negara ini dan memilih membela negara lain yang bisa menganggap mereka dengan nilai yang pantas.
 
6. Negara ini memiliki tanah yang sangat subur.
karena memiliki banyak gunung berapi yang aktif menjadikan tanah di negara ini sangat subur terlebih lagi negara ini dilintasi garis katulistiwa yang banyak terdapat sinar matahari dan hujan.
Jika dibandingkan dengan negara-negara timur tengah yang memiliki minyak yang sangat melimpah negara ini tentu saja jauh lebih kaya. coba kita semua bayangkan karena hasil mineral itu tak bisa diperbaharui dengan cepat. dan ketika seluruh minyak mereka telah habis maka mereka akan menjadi negara yang miskin karena mereka tidak memiliki tanah sesubur negara ini yang bisa ditanami apapun juga. bahkan tongkat kayu dan batu jadi tanaman.

 7. Negara ini punya pemandangan yang sangat eksotis dan lagi-lagi tak ada negara yang bisa menyamainya.
dari puncak gunung hingga ke dasar laut bisa kita temui di negara ini.
Negara ini sangat amat kaya sekali, tak ada bangsa atau negara lain sekaya INDONESIA!

Kamis, 06 Juni 2013

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

 QUIS LISVIEW PENJUALAN BARANG

Kemudian ketik listing programnya seperti berikut:


Public Class Listview
    Sub BuatTabel()
        LV.Columns.Add("nmrpmb", 50, HorizontalAlignment.Left)
        LV.Columns.Add("kode", 50, HorizontalAlignment.Left)
        LV.Columns.Add("nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 60, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah", 50, HorizontalAlignment.Left)
        LV.Columns.Add("tothrga", 70, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nmrpmb.Text
        Lst.SubItems.Add(kode.Text)
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(tothrga.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-Gen"
        End Select
        Dim x2 As String
        x2 = Microsoft.VisualBasic.Right(kode.Text, 3)
        Select Case x2
            Case "001" : nama.Text = "flashdisk 4GB"
            Case "002" : nama.Text = "flashdisk 2GB"
        End Select
        If x = "TS" And x2 = "001" Then
            harga.Text = "105000"
        ElseIf x = "TS" And x2 = "002" Then
            harga.Text = "75000"
        ElseIf x = "VG" And x2 = "001" Then
            harga.Text = "90000"
        ElseIf x = "VG" And x2 = "002" Then
            harga.Text = "60000"
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        tothrga.Text = harga.Text * jumlah.Text
    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nmrpmb.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        tothrga.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 btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
        nmrpmb.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        tothrga.Text = ""
    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
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        LV.Items.Clear()
    End Sub
End Class
Kemudian clik debug atau tekan  tombol F5
Setelah itu,input textbox yang kosong setelah anda memilih kode barang nya..Maka tampilannya akan seperti di bawah ini






Lalu klik simpan ke listview,maka tampilannya akan seperti ini