Hai guys,,

Kali  ini, kami akan membahas tentang mendeteksi warna RGB dari suatu Gambar dengan Delphi,,

Langkah pertama yang harus dilakukan, ya tentu sajalah membuka program Delphi,buat form dengan bentuk seperti ini,,dan jangan lupa membuat Chart dengan 3 series,,,image dan button,,,

Setelah membentuk form tersebut sekarang kita bentuk formnya,,,owh ya kita bentuk dulu scrollbar ,,,

s

setelah itu tulis syntaq

jangan dalam variabel umumnya ditulis

var  Form1: TForm1; 

i,j,lebar,x,k:integer; 

R,G,B:byte; 

gambar:Tbitmap; 

warna:Tcolor;

Setelah itu syntaq

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

Var R,G,B:byte;  warna:Tcolor;

begin 

warna:=image1.Picture.Bitmap.Canvas.Pixels[x,y]; 

R:=GetRValue(warna); 

G:=GetGValue(warna); 

B:=GetBValue(warna); 

label1.Caption:=IntToStr(R); 

label2.Caption:=IntToStr(G); 

label3.Caption:=IntToStr(B);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ScrollBar1.Enabled:=True;

gambar.Assign(image1.Picture);

end;

procedure TForm1.FormCreate(Sender: TObject);

var i,lebar:integer;begin  gambar:=TBitmap.Create;  ScrollBar1.Max:=image1.Picture.Bitmap.Height; 

series1.Clear;

Series2.Clear;

Series3.Clear; 

k:=ScrollBar1.Position;
lebar:=image1.Picture.Bitmap.Width; 

for i:=0 to lebar-1 do  begin    image1.Picture.Bitmap.Canvas.LineTo(image1.Picture.Bitmap.Width,j);    R:=GetRValue(warna);   

G:=GetGValue(warna);   

B:=GetBValue(warna);  

series1.AddXY(i,R,'',clred);   

series2.AddXY(i,G,'',clGreen); 

series3.AddXY(i,B,'',clBlue); 

end;

end;
procedure TForm1.ScrollBar1Change(Sender: TObject);

var  red,green,blue:byte; 

a,b,lebar:Integer; 

warna:TColor; 

garis:TBitmap;

begin 

Series1.Clear;

Series2.Clear;

Series3.Clear; 

b:=ScrollBar1.Position; 

lebar:=Image1.Picture.Bitmap.Width;
garis:=TBitmap.Create;

garis.Assign(gambar);

garis.Canvas.MoveTo(0,b); 

garis.Canvas.LineTo(lebar,b);


  for a:=0 to lebar -1 do   

begin   

warna:=Image1.Picture.Bitmap.Canvas.Pixels[a,b];   

red:=GetRValue(warna);   

green:=GetGValue(warna);   

blue:=GetBValue(warna);   

Series1.AddXY(a,red);   

Series2.AddXY(a,green);   

Series3.AddXY(a,blue);   

end;
   Image1.Picture.Assign(garis); 

garis.Free;

end;

maka ketika program dijalankan akan seperti ini

CATATAN : Sebelum mengubah posisi Scrollbar, agar tidak terjadi eror,makan Button click diklik terlebih dahulu

terimakasih

 web http://mutimmah---fst09.web.unair.ac.id

untuk kali, kami akan mencoba membuat program bola memantul. Setelah diberi pemahaman oleh teman-temannku, akhirnya  bisa juga membuatnya, meskipun ada beberapa yang masih belum terlalu paham. langkah pertama tentu saja membuka program delphi. 

dan buatlah form seperti ini;

setelah itu tuliskan syntaq

procedure TForm1.Button1Click(Sender: TObject);

var x:integer;

begin  

x:=0; 

repeat  if (x=0)then

begin

shape1.Top:=shape1.Top+10;   

if (shape1.Top>=333)then   

begin  

x:=5;  

shape1.Brush.Color:=clred;   

end; 

end  else 

if(x=5)then 

begin   

shape1.Top:=shape1.Top-10;   

if(shape1.Top<=0) then   

begin      x:=0;     

shape1.Brush.Color:=clyellow;   

end;  

end;   

sleep(100);   

application.ProcessMessages;   

until (x=2);   

end;

maka akan menjadi

untuk lebih silahkan download video tutorialnya!!!

Video Tutorial

dan kunjungi webnya http://mutimmah---fst09.web.unair.ac.id

Di Pagi yang Cerah dikost-an tercinta, pagi-pagi udah laper,(gmn gak laper, tadi malem tidur habis maghrib, gara-gara pusing setelah survei setengah hari, jadinya kebawa tidur sampek pagi)

keinginan itupun muncul dengan sendirinya

"wah sepertinya enak kalo memasak"

pertama bingung mau masak apa????akhirnya akupun menuruni tangga, dan melihat-lihat didapur ada apa, kulihat sebungkus bumbu nasi goreng, namun gak ada minyak goreng dan sayurannya. tampa banyak kata, akupun keluar gang kost ku, dan berbelanja beberapa sayuran,sawi, tomat, cabe, bawang merah, dan minyak goreng. 

Setelah berbelanja, kutaruh belajaanku di dapur, dan aku ganti baju. 

Let's Start to Make NAsi Goreng Ala Chef Im@ (hehehe)

Bahan :

- 2 siung bawang merah

- 3 buah cabe rawit

-  sayur sawi

- Bumbu nasi goreng ala seafood

- satu buah tomat

- nasi putih

 Langkah pertama siapkan minyak goreng, setelah panas, masukkan bawang goreng, setelah bau nya harum, masukkan nasi putih, setelah itu masukkan cabe dan tomat (yang sudah dipotong-potong kecil) setelah itu masukkan bumbu nasi goreng dan dilanjutkan dengan masukkan sayuran sawi. diaduk-aduk sampai bumbu merata.

sudah deh!!!

selamat menikmati!!