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   

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!

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