Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Ekstraksi Citra Gambar

Gambar! pasti anda sering berinteraksi dengan gambar kan? Namun bagaimana anda ingin melihat isi dari sebuah gambar? pasti anda tidak tahu.

Citra sebuah gambar terdiri atas ribuan pixel. Sebut saja gambar berukuran 500 x 300 pixel, maka gambar tersebut terdiri atas 1500 pixel. Waw, bagaimana jika gambar terdiri dari 1024×800 pixel, sungguh banyak dong pixel yang akan di ektrak.

Setiap pixel gambar terdiri dari RGB yaitu Red Green dan Blue, jadi jika terdiri dari 1500 pixel, maka di kali 3 akan terbentuk 4500 RGB. Uhhh, capek mikirinnya.😀

Nah ini ada misalnya gambar tersebut diatas, yaitu kupu.jpg akan saya ambil maka seperti ini lah bentuk RGB nya :

R       G      B

224 224 224
224 224 224
223 223 223
221 221 221
218 218 218
216 216 216
214 214 214
212 212 212
209 209 209
206 206 206
203 203 203
200 200 200
197 197 197
192 192 192
186 186 186
182 182 182
187 187 187
187 187 187
187 187 187
188 188 188
189 189 189
189 189 189
189 189 189
189 189 189
194 194 194
194 194 194
194 194 194
192 192 192
189 189 189
188 188 188
189 189 189
191 191 191
194 194 194
194 194 194
195 195 195
196 196 196
198 198 198
200 200 200
201 201 201
202 202 202
209 209 209

Wah itu cuma sebagian saja, karna laptop saya selalu hang untuk mengambil semua nilai RGB tersebut.

Nah, berikut program untuk mengekstraknya

Nih Listing programnya :

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Public JData As Long

Private Sub cmdOpenambil_Click()
	On Error Resume Next
	With cDlg
		.Filename = ""
		.Filter = "Bitmap Files|*.bmp|JPG Files|*.jpg|"
		.FilterIndex = 1
		.ShowOpen
		Image1.Picture = LoadPicture(.Filename)
	End With
	On Error GoTo 0
End Sub

Private Sub cmdProses2_Click()
	If cDlg.Filename = "" Then
		MsgBox "File citra harus di buka terlebih dahulu !", vbCritical + vbOKOnly, "LSB"
	Else
		GetIsiGambar
	End If
End Sub

Function GetIsiGambar()
	Dim RR, GG, bG, xR, xG, xB As Byte
	Dim i As Long
	Dim X, Y As Long
	Dim xPix As String
	TextPix.Text = ""
	xPix = ""
	xbit = ""
	i = 1
	For Y = 0 To Image1.ScaleHeight Step 1
		For X = 0 To Image1.ScaleWidth Step 1
			Pcolor = GetPixel(Image1.hdc, X, Y)
			RR = Pcolor And &HFF&
			GG = (Pcolor And &HFF00&) \ &H100&
			BB = (Pcolor And &HFF0000) \ &H10000
			xPix = xPix & " " & RR & " " & GG & " " & BB & " " & vbCrLf
		Next X
		' If Y = 3 Then Exit For   TANDAI BAGIAN INI
	Next Y
	TextPix.Text = xPix
	MsgBox "Proses Selesai !", vbInformation + vbOKOnly
End Function

Nih Output Programnya :

Nah anda lihat pada If Y = 3 Then Exit For TANDAI BAGIAN INI

Statement itu saya buat hanya untuk Y sampai 3 saja, hal ini karna laptop saya sampai hang untuk mengektrak semua nilai Y yang bisa berjumlah ribuan.😀

Yah mudah mudahan komputer anda prosesnya cepat.😀

Semoga dengan adanya artikel ini anda sudah memahami dengan RGB ini.

Selamat mencoba.

Filed under: Citra, Metode-Algoritma-Teknik, Tips & Trik, , ,

2 Responses

  1. abdiinegara says:

    pengertian ekstraksi ciri/gambar itu apa mbak/mas?

  2. Azlan Alex says:

    Toolbox pa z yg di gunakan pak….
    combobox 2. trus pa ge pak heeee

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

Sponsored

C&C Online Shop

Blog Stats

  • 355,909 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

July 2011
M T W T F S S
« Jun   Aug »
 123
45678910
11121314151617
18192021222324
25262728293031
%d bloggers like this: