Langsung ke konten utama

Postingan

Menampilkan postingan dengan label Tugas Kuliah

Membuat Histogram RGB Gambar dengan Delphi 7

Assalamu'aikum. Wr. Wb Saya hari ini ingin menunjukkan cara membuat histogram RGB gambar dengan Delphi 7 untuk memenuhi tugas mata kuliah Program Komputasi Fisika. Tugas tersebut diberikan pada hari Jum'at, 17 November 2017. Untuk membuat histogram RGB gambar, diperlukan 1 Chart dengan 3 series, 1 image, 2 button, 3 label, dan 1 open dialog. Mungkin kalian ada yang bertanya-tanya, kenapa sih buat histogram RGB gambar? Sebelum menjawabnya kita harus tahu pengertian histogram. Kita tahu bahwa histogram  adalah representasi grafis untuk distribusi warna dari citra digital atau menggambarkan penyebaran nilai-nilai intensitas pixel dari suatu citra atau bagian tertentu di dalam citra. Dari sebuah histogram dapat diketahui frekuensi kemunculan relatif dari intensitas pada citra, kecerahan, dan kontas dari sebuah gambar. Dan juga agar kita tahu persebaran warna merah, hijau dan biru yang ada pada gambar. Pertama, Buat susunan seperti gambar dibawah ini: Kedua, isi ko...

Membuat Grafik Sinusoida dengan Delphi 7

Minggu kemarin, saya sudah menjelaskan bagian-bagian dan fungsi dari Delphi 7. Dan minggu ini, saya dan teman-teman mendapat tugas membuat grafik sinusoida dengan menggunakan Delphi 7. Untuk itu saya akan menjelaskan cara membuat grafik sinusoida dengan Delphi 7. Langkah pertama, buka aplikasi Delphi 7. Langkah kedua, Klik image pada additional. Lalu tambahkan 1 button untuk proses, 3 label dan 3 edit untuk x,y serta amplitudo. Langkah ketiga , Isilah kode program seperti dibawah ini : var   Form1: TForm1; implementation {$R *.dfm} procedure sumbu (ax,ay,b,c:integer); begin     Form1.Image1.Canvas.MoveTo(ax,ay);     Form1.Image1.Canvas.LineTo(ax+b,ay);     Form1.Image1.Canvas.MoveTo(ax,ay);     Form1.Image1.Canvas.LineTo(ax,ay-c);     Form1.Image1.Canvas.MoveTo(ax,ay);     Form1.Image1.Canvas.LineTo(ax,ay+c);     end; procedure TForm1.Butt...