HISTOGRAM CITRA

Kata histogram berasal dari bahasa Yunani: histos dan gramma. Pertama kali digunakan oleh Karl Pearson pada tahun 1895 untuk memetakan distribusi frekuensi dengan luasan area grafis batangan menunjukkan proporsi banyak frekuensi yang terjadi pada tiap kategori. Histogram citra adalah grafik yang menggambarkan penyebaran nilai-nilai intensitas pixel dari suatu citra atau bagian tertentu di dalam citra. Histogram juga dapat menunjukkan banyak hal tentang kecerahan (brightness) dan kontras (contrast) dari sebuah gambar. Secara grafis histogram ditampilkan dengan diagram batang

Berikut ini contoh membuat histogram citra menggunakan borland delphi.  

 

untuk coding pemunculan gambarnya:

procedure TMainForm.Open1Click(Sender: TObject);

var

 formatInfo:string;

begin

 if OpenPictureDialog1.Execute then

 begin

 Application.CreateForm(TImageForm, ImageForm);

  ImageForm.Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

  ImageForm.ClientHeight:=ImageForm.Image1.Picture.Height;

  ImageForm.ClientWidth:=ImageForm.Image1.Picture.Width;

 end;

end;

setelah gambar dapat dimunculkan langkah selanjutnya adalah menampilkan histogram dari gambar tersebut.

coding dari pemunculan histogram tersebut adalah:

procedure TMainForm.Histogram2Click(Sender: TObject);

begin

 if ImageForm<>nil then

  begin

    ImageForm:=TImageForm(ActiveMDIChild);

    try

    begin

      Application.CreateForm(THistogramForm,HistogramForm);

      HistogramForm.ShowHistogram(ImageForm.Image1);

    end;

    except

      HistogramForm.Free;

      ShowMessage('terlalu besar bosssss!!!');

    end;

  end;

end;