LAPORAN PRAKTIKUM FISIKA KOMPUTASI INTERPRETASI ...

Laporan Praktikum FisKom RGB
TColor berdasarkan garis. Selanjutnya, Series1.Clear merupakan perintah agar
disetiap perubahan geser yang ada, mengalami looping sesuai posisi terupdate
sesuai TScrollBar Change-nya, posisi-clear-posisi dan seterusnya. Dan
garis:=TBitmap.Create adalah Garis yang menyatakan TScrollBar yang ada,
perintah dibuat dengan memunculkan garis ketika posisi scrollbar diubah-ubah
pada batas (0,b).
Part 5
Selanjutnya adalah perintah warna:=Image1.Picture.Bitmap.Canvas.Pixels[a,b]; ini
menyatakan warna yang dibaca dari image bitmap dengan menggunakan canvas
yang bersatuan pixel, mengapa gambar harus bitmap?? Jawabnya karena bitmap
adalah gambar yang tersusun dari titik-titik atau dot dan banyaknya dot disetiap
luasan dinyatakan sebagai pixel, sehingga suatu gambar ber-ekstensi bitmap
dengan luasan per-inci yang memiliki satu juta dot dinyatakan sebagai
1MegaPixel. Itulah mengapa semakin besar pixel suatu kamera atau semakin
besar dpi (dot per-Inch) suatu printer, maka akan menghasilkan kualitas gambar
yang semakin baik. Semakin besar pixel berarti semakin baik pula resolusi
gambar, karena pixel menyatakan kepadatan titik yang men-detailkan gambar.
Kemudian red:=GetRValue(warna);… Series1.AddXY(a,red); menyatakan warna
yang harus dipilih oleh masing-masing series. Sedangkan Garis.Free digunakan
untuk memunculkan garis jika posisi scrollbar diubah.
Part 6
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y:
Integer); merupakan perintah yang dijalankan ketika mouse digerakkan di atas
gambar sehingga posisi akan muncul pada tiap komponen Label masing-masing.