=== BEGIN ARIEFWT'S POST ===
Kira2 codingnya bakal gini:
'=== BEGIN CODE - COPY FROM HERE ===
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long,
ByVal X As Long, ByVal Y As Long) As Long
Dim Warna, WarnaBanyak, NomorWarnaBanyak As Long
Dim Statistik(&HFFFFFF) As Long
Private Sub Form_Load()
'settingan awal
AutoRedraw = True
ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
Picture1.BorderStyle = 0
Command1.Caption = "Buka Gambar dan Deteksi"
Picture1.AutoRedraw = True
End Sub
Private Sub Command1_Click()
'buka gambar
CommonDialog1.Filter = "All
Pictures|*.bmp;*.dib;*.gif;*.jpg;*.wmf;*.emf;*.ico;*.cur|Bitmaps|*.bmp;*.dib|GIF
Images|*.gif|JPEG
Images|*.jpg|Metafiles|*.wmf;*.emf|Icons|*.ico;*.cur|All Files|*.*"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
'cek setiap piksel gambar dan mengambil warnanya
For i = 1 To Picture1.Width - 1
For j = 1 To Picture1.Height - 1
Warna = GetPixel(Picture1.hdc, i, j)
Statistik(Warna) = Statistik(Warna) + 1
Next j
Next i
'cari warna terbanyak
For i = 1 To &HFFFFFF
If Statistik(i) > WarnaBanyak Then
WarnaBanyak = Statistik(i)
NomorWarnaBanyak = i
End If
Next i
'mengeluarkan warna terbanyak dalam Hex
MsgBox "Warna terbanyak adalah: " & Hex(NomorWarnaBanyak)
End Sub
'powered by Arief Softwares Lab ([EMAIL PROTECTED])
'=== END CODE - COPY UNTIL HERE ===
Untuk pengembangkan selanjutnya, boleh buat supaya ukuran Picture1nya
dinamis, atau mungkin supaya ada padding angka Hex.
Padding maksudnya gini:
Kalau di program di atas warna terbanyaknya hitam, outputnya "0".
Lebih sedap dipandang kalau di padding supaya outputnya "000000".
=== END ARIEFWT'S POST ===
Catatan:
* Semoga posting ini dapat bermanfaat secara positif bagi kita semua
* CMIIW - Correct Me If I am Wrong!
* Silakan tinggalkan testimonial Anda di
http://ariefwt.byethost7.com/testimonial
======== My Online Things =========
Y!: [EMAIL PROTECTED]
MSN: [EMAIL PROTECTED]
Jabber/GTalk: [EMAIL PROTECTED]
ICQ: 421914355
www: http://ariefwt.byethost7.com
===================================
TPM, 17 Mei 2007
--
Best Regards,
(Arief Wibowo, C.Hts, RM)
Computer Programmer and Alternative Therapist
--- In [email protected], iwan hakim <[EMAIL PROTECTED]> wrote:
>
> yah kedua duanya sama diperluakn baik pake kode atoo kata kata yang
penting bagaimana saya bisa menangkap warna dominannya apa?
>
>
> ----- Original Message ----
> From: Arief Wibowo <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Friday, May 11, 2007 2:04:34 PM
> Subject: [Programmer-VB] Re: tanya warna dong
>
> === BEGIN ARIEFWT'S POST ===
> Warna dominannya dalam bentuk kode (misalnya: "Warna dominannya:
> CCDD12"), atau dalam bentuk kata-kata (misalnya: "Warna dominannya
> merah")?
>
> === END ARIEFWT'S POST ===
>
> Catatan:
> * Semoga posting ini dapat bermanfaat secara positif bagi kita semua
> * CMIIW - Correct Me If I am Wrong!
> * Silakan tinggalkan testimonial Anda di
> http://ariefwt. byethost7. com/testimonial
>
> ======== My Online Things =========
> Y!: [EMAIL PROTECTED] com
> MSN: [EMAIL PROTECTED] com
> Jabber/GTalk: [EMAIL PROTECTED] com
> ICQ: 421914355
> www: http://ariefwt. byethost7. com
> ============ ========= ========= =====
>
> TPM, 11 Mei 2007
> --
> Best Regards,
> (Arief Wibowo, C.Hts, RM)
> Computer Programmer and Alternative Therapist
>
> --- In Programmer-VB@ yahoogroups. com, iwan hakim <iwan_denisya@
...> wrote:
> >
> > ada yang tau gak nih para master bagaimana cara mengetahui warna
> dominan picture/gambar di picture box
> > atoo ada yang tau gak cara baca text di gambar? mungkin gak yah
> >
> > tolong yah master penting nih
> >
> >
> >
> >
> ____________ _________ _________ _________ _________ _________ _Take
> the Internet to Go: Yahoo!Go puts the Internet in your pocket: mail,
> news, photos & more.
> > http://mobile. yahoo.com/ go?refer= 1GNXIC
> >
>
>
>
>
>
>
>
____________________________________________________________________________________
> Don't get soaked. Take a quick peak at the forecast
> with the Yahoo! Search weather shortcut.
> http://tools.search.yahoo.com/shortcuts/#loc_weather
>
