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;
