http://bisnisonlinemu.com/bisnis-online-termudah-hasil-1juta-perbulan.html

Bisnis Online Informasi Bisnis Online dan Internet Marketing Indonesia Bisnis Abe Asian Brain Bisnis Online Termudah Hasil 1Juta Perbulan March 27th, 2009 Bisnis online Sederhana dengan System Program yang tercanggih pada Abad ini.!!, termudah dan terakurat untuk menghasilkan income 1-Juta Perhari. Tanpa Basa-Basi dan Tanpa Janji-Janji, anda akan langsung dipandu untuk menciptakan Bisnis Internet anda sendiri hingga menghasilkan !! selengkapnya baca Bisnis Online Termudah Hasil 1Juta Perbulan ini di Faktor Kali Website selengkapnya baca Bisnis Online Termudah … selengkapnya baca Bisnis Online Termudah Hasil 1Juta Perbulan Sekilas Info Bisnis Internet: Bisnis Pulsa Sistem Jaringan ini terbukti ampuh untuk mencari penghasilan di darat atau di internet: PlazaPulsa.com Toko Foredi Khusus Dewasa Ingin Beli Foredi ? Menyediakan Antiseptik Lokal Untuk Organ Intim Pria Dewasa (Tahan Lama), Bisa Order Cepat Lewat SMS» detil Pantun Santai Facebook Kecebur Parit Karena Melamun - Cari Duit Sambil Berbalas Pantun. Gabung Kami di Facebook ya» detil Peluang Bisnis Dahsyat 2012 Cari Leader Untuk Seluruh Kota di Indonesia (Hanya untuk Yang sudah siap berbisnis ya)» detil Artikel Terkait: ANDA BUTUH UANG 312 JUTA PERBULAN KE WARNET BUKAN SEKEDAR CARI INFORMASI DAN HIBURAN, ATAU HANYA SEKEDAR ISENG, LALU MENGHABISKAN DUIT, ATAU HANYA SEKEDAR IKUT TEMAN BIAR MGGAK DIKIRA GAPTEK!!!…TAPI LIHAT MULAI SEKARANG KE... Hidup Berkecukupan Tanpa Kerja Saya sih sering jalan-jalan di blog orang lain dan menemukan bunyi sales letter seperti ini misalnya: Pernahkah anda membayangkan bagaimana enaknya hidup serba berkecukupan, tanpa kerja, tanpa... Kerja Di Rumah Modal Internet Hasil Besar Beberapa orang mungkin ragu dengan judul ini “Kerja Di Rumah Modal Internet Hasil Besar”. 

Lantas bertanya, apa itu mungkin? Oh tentu saja bisa, sangat bisa sekali, benar-benar bisa kok.... Cara Membuat Website Sebagai Aset Dulu saya pernah dimakan website, artinya gini: Saya telah membeli website dengan uang tentu saja, kemudian membelanjakan beberapa waktu untuk men-setup-nya, mencari ide untuk content-nya,... Bisnis Besar Modal Kecil Hasil Jangka Panjang Berulang Setiap bisnis pasti perlu modal yang besar. Dan modal itu banyak macamnya. 

Bisa modal uang, modal kepercayaan, modal ulet, modal dengkul, modal tangguh, modal suara, modal waku, modal banyak member,... Related Blog: Motivasi Bisnis Online | Artikel Motivasi, dengan judul Melindungi Uang Hasil Bisnis Online Anda, ringkasan isi: Bisa jadi Anda telah mulai menghasilkan dari kegiatan bisnis online Anda. Namun jika Anda tak cukup pandai melindungi uang Anda tersebut maka uang Anda tersebut akan cepat sekali hilang lagi. Cara... Peluang Usaha Bisnis Internet, dengan judul Bisnis Blog Bagi Hasil, ringkasan isi: Jika Anda memang telah punya kemampuan untuk membuat blog sendiri maka peluang usaha membuat blog tentu saja merupakan sebuah bisnis awet yang bisa Anda garap sendiri. Nah bagaimana jika Anda belum... Peluang Usaha Bisnis Internet, dengan judul Bisnis Ringan Hasil Dollar Bersama Ziddu, ringkasan isi: Yang satu ini tentang bisnis ringan yang bisa memberi anda penghasilan dollar saat orang upload dan download file, ziddu namanya. Dengan berbagi file pada orang lain saja (sedapat mungkin file yang... Artikel Online, dengan judul Artikel Bisnis Online Cafe Bisnis, ringkasan isi: Cafe Bisnis (cafeBisnis.com) yang merupakan tempat lahirnya banyak pebisnis online juga merupakan blog yang sarat dengan artikel bisnis online. Termasuk saya sendiri beberapa kali menyumbangkan... Cara Cari Duit Di Internet, dengan judul Bisnis Online Abe Global, ringkasan isi: Bersama Abe Global Indonesia 

Anda bisa mempunyai bisnis online dengan produk yang unik dan laris di internet. Walaupun produk unik yang disebut FOREDI ini berupa barang fisik namun menjalankannya tak... Tags: 1juta, Bisnis Online, hasil, online, perbulan, termudah Comments Off 1,141 views Cari Informasi yang berhubungan dengan: Bisnis Online Termudah Hasil 1Juta Perbulan Atau cari juga di internet informasi dengan kata kunci ini: 1juta, Bisnis Online, hasil, online, perbulan, termudah « Bisnis Online Bisa Mati Karena Kata Tetapi Susah Cari Duit Mau Pasive Income 8 Juta bln Ayo Gabung Di tabunganekstracom ref15596 » Bisnis Online Termudah Hasil 1Juta Perbulan Bookmark and Share Bisnis Abe Posting Terbaru Bisnis Online Boleh Sepi Tetapi Hati Harus Tetap Gembira Dalam Bisnis Online Kita Sebaiknya Pandai Menulis Bisnis Online Makin Sepi Saja Cara Promosi Jalur Cepat KlikSaya Cara Promosi Jalur Cepat KlikSaya Tags Bisnis Online Bisnis Online Bisnis Internet Internet Marketing Bisnis Pulsa Internet Marketing Indonesia Stop Dreaming Start Action Penghasilan Tambahan Bahasa Inggris Google Adsense Forex Trading Belajar Bisnis Bisnis Laris Produk Bisnis Online Modal Bisnis Bisnis Awet Keuangan Pribadi Cara Cari Duit Belajar Internet Marketing Search Engine Rahasia Search Engine Bisnis Mudah Modal Kecil Multi Level Marketing Peluang Usaha Kecerdasan Keuangan Investasi Website Bisnis Baru Bisnis Jaringan Lowongan Kerja e-Business Article Pages About AsianBrain Belajar Bisnis Formula Bisnis Gratis IklanBaris Pasang Iklan Tools Vnet Website Daftar Link Training Website Sports Nutrition English Online Tips Internet Business For You Obat Kuat Foredi Foredi Tahan Lama Toko Foredi Cari Agen Foredi Peluang Bisnis Online Tanpa Ribet Artikel Search Bisnis Modal Kecil Bisnis Online Mudah Produk Bisnis Online Tutorial SEO Website Hosting Daftar Blog Menarik http://bisnisonlinemu.com/search/bisnis+online+termudah+hasil+1juta+perbulan

Histogram RGB dengan Visual Basic

Posted on maret17, 2012 by 4den21

                   Sebelum kita membuat program Histogram RGB menggunakan Visual Basic alangkah baiknya kalau kita mengetahui dulu apa yang di sebut dengan Histogram itu sendiri.

Histogram adalah Sebuah grafik yang menggambarkan penyebaran nilai intensitas piksel dari suatu citra dan dapat juga menjadi petunjuk kadar kecerahan (Brightness) dan Contras sebuah citra.

Rumus untuk menghitung Histogram :

Contoh :

setelah kita mengerti apa yang di maksud dengan Histogram itu, sekarang mari kita lanjutkan untuk membuat program nya.

langkah-langkah membuat program histogram dengan Visual Basic :

1.  buatlah form baru pada Visual Basic.

2.  Tambahkan object dibawah ini kedalam form yang telah kita buat !

• Sebuah DriveListBox. DriveListBox ini berfungsi untuk menentukan Drive lokasi dari gambar yang akan kita gunakan dalam Histogram nantinya.
• Sebuah DirListBox. berfungsi untuk menentukan folder lokasi dari gambar.
• Sebuah FileListBox. berfungsi untuk menentukan atau memilih gambar yang mana yang akan kita gunakan.
• 4 buah PictureBox. biarkan name pada properties sesuai Default nya. Semua picturbox yang kita tambahkan ini nantinya akan digunakan untuk manampung gambar yang dihasilkan dari eksekusi program yang kita buat. Picture1 kita gunakan untuk menampung gambar asli yang akan kita gunakan, Picture2, Picture3, dan Picture4 akan kita gunakan untuk menggambar Histogram dari gambar asli.
• kemudian aturlah letak object tersebut sesuai dengan keinginan anda.

3.  Selanjutnya adalah menambahkan Coding pada program.

• Double klik pada Drive1, ketikan code berikut ini !

                  Dir1.Path = Drive1.Drive

• Double klik pada Dir1, ketikan code berikut ini !

                  File1.Path = Dir1.Path

• Selanjutnya kita akan membuat sebuah Sub Preocedure yang nantinya akan kita panggil. Ketikan code berikut ini pada form code !

                   Private Sub aden()

                   Dim hm(256) As Integer, hh(256) As Integer, hb(256) As Integer

                   Dim ht2 As Long

                   Dim xp As Integer, i As Integer, j As Integer

                   Dim m As Integer, h As Integer, b As Integer

                   Dim warna As Long, x As Long, a As Long

                   Picture2.Cls

                   Picture3.Cls

                   Picture4.Cls

                   Me.MousePointer = vbHourglass

                   For i = 1 To 256

                            hm(i) = 0

                            hh(i)  = 0

                            hb(i) = 0

                   Next

                   For i = 1 To Picture1.Width Step 15

                             For j = 1 To Picture1.Height Step 15

                                         warna = Picture1.Point(i, j)

                                         m = warna And RGB(255, 0, 0)

                                         h = Int((warna And RGB(0, 255, 0)) / 256)

                                         b = Int(Int((warna And RGB(0, 0, 255)) / 256) / 256)

                                         If  m > 255 Then m = 255

                                         If  h > 255 Then h = 255

                                         If b > 255 Then b = 255

                                         hm(m) = hm(m) + 1

                                         hh(h) = hh(h) + 1

                                         hb(b) = hb(b) + 1

                             Next j

                   Next i

                   ht2 = Picture2.Height

                   For i = 1 To 256

                              xp = 15 * (i – 1) + 1

                              Picture2.Line (xp, ht2 – hm(i))-(xp, ht2), RGB(255, 0, 0)

                              Picture3.Line (xp, ht2 – hh(i))-(xp, ht2), RGB(0, 255, 0)

                              Picture4.Line (xp, ht2 – hb(i))-(xp, ht2), RGB(0, 0, 255)

                    Next i

                    Me.MousePointer = vbNormal

                    End Sub

• Double klik pada File1, ketikan kode berikut ini !

                  Picture1.Picture = LoadPicture(File1.Path & “\” & File1.FileName)

                  Call aden

4.  Kemudian jalankan program. klik Run !

post1

hey kawan bloger,mohon share-nya ya,....
maklum ane masih awan dlm dunia NGE-blog,...
thx,Gbu always,.