komputer grafik

BAB I
PENDAHULUAN


Latar Belakang
Grafika komputer (Inggris: Computer graphics) adalah bagian dari ilmu komputer yang berkaitan dengan pembuatan dan manipulasi gambar (visual) secara digital. Bentuk sederhana dari grafika komputer adalah grafika komputer 2D yang kemudian berkembang menjadi grafika komputer 3D, pemrosesan citra (image processing), dan pengenalan pola (pattern recognition). Grafika komputer sering dikenal juga dengan istilah visualisasi data.
Grafika Komputer merupakan salah satu cabang Ilmu Komputer yang membahas mengenai bagaimana menggambar bentuk menggunakan komputer. Grafika komputer tidak hanya digunakan di komputer dengan sumber daya tinggi seperti komputer meja (desktop computer) tetapi juga di komputer dengan sumber daya rendah seperti telepon genggam, kalkulator, mesin-mesin khusus (embedded system) dan sebagainya.
Bagian dari grafika komputer meliputi:
- Geometri: mempelajari cara menggambarkan permukaan bidang
- Animasi: mempelajari cara menggambarkan dan memanipulasi gerakan
- Rendering: mempelajari algoritma untuk menampilkan efek cahaya
- Citra (Imaging): mempelajari cara pengambilan dan penyuntingan gambar.

Dalam kesempatan ini kita akan mempelajari Veltor Grafik 2 Dimensi dengan menggunakan software DELPHI 7.0

Maksud dan Tujuan

- Membuat Form besrta komponen lainya menggunakan fungsi
standar Delphi Button.
- Membuat fungsi proccedure dan menjalankan aplikasi tersebut.
- Menganalisa dan menyimpulkan hasil Veltor Grafik 2 Dimensi stelah berjalan.

BAB I I
PEMBAHASAN



”Membuat Veltor Grafik 2 Dimensi dengan Pemrograman DELPHI”


1. Langkah Pertama

Pembuatan Form.
Buatlah sebuah Form. Pada program berikut ini kita akan menggunakan:
- 1 buah komponen Timer
- 1 buah komponen Panel
- 9 buah Button (ubah captionya menjadi Atas, Bawah, Kanan, Kiri, Zoom out, Zoom In, Rotasi 180, Balik Arah dan Keluar)

Tampilan Form:



2. Langkah ke Dua

Pembuatan procedure pada masing-masing komponen:

a. Doble Clik tombol “Atas” (Button1) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button1Click(Sender: TObject);
begin
y0:=y0-1;
end;

Berfungsi memindahkan pusat putaran ke atas


b. Doble Clik tombol “Bawah” (Button2) dan masukan code dibawah ini pada bidang code edit

procedure TForm1.Button3Click(Sender: TObject);
begin
x0:=x0+1
end;

Berfungsi memindahkan pusat putaran ke bawah


c. Doble Clik tombol “Kanan” (Button3) dan masukan code dibawah ini pada bidang code edit..

procedure TForm1.Button4Click(Sender: TObject);
begin
x0:=x0-1
end;
Berfungsi memindahkan pusat putaran ke kanan


d. Doble Clik tombol “Kiri” (Button4) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button2Click(Sender: TObject);
begin
y0:=y0+1;
end;

Berfungsi memindahkan pusat putaran ke kiri


e. Doble Clik tombol “Zoom Out” (Button5) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button5Click(Sender: TObject);
begin
mf := mf +1;
end;

Berfungsi memperbesar gambar


f. Doble Clik tombol “Zoom In” (Button6) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button6Click(Sender: TObject);
begin
mf := mf -1;
end;

Berfungsi merubah arah putaran sebaliknya


g. Doble Clik tombol “Rotasi 180” (Button7) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button7Click(Sender: TObject);
begin
sf := -sf;
end;

Berfungsi memutar 1800 atau sebagai cermin gambar


h. Doble Clik tombol “Balik Arah” (Button8) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button8Click(Sender: TObject);
begin
dirFlg := Not dirFlg;
end;

Berfungsi memperkecil gambar


i. Doble Clik tombol “Keluar” (Button9) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Button9Click(Sender: TObject);
begin
close;
end;

Berfungsi keluar dari aplikasi


j. Doble Clik tombol “Timer” (Timer1) dan masukan code dibawah ini pada bidang code edit.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Refresh;
if dirFlg then
alf := alf + Pi/100 {putaran searah jarum jam}
else
alf := alf - Pi/100; {putaran berlawanan arah jarum jam}

si := Sin(alf);
co := Cos(alf);
drawHouse;
end;

k. Pada Var masukan kode:

alf, {sudut Putar}
si,co, {sinus dan cosinus}
mf, {factor skala}
x0, y0 : single; {basis koordinat absolute}
sf : integer; {factor cermin}
dirFlg : boolean; {flag arah}
var x1,y1,x2,y2: integer;
mausTaste: Boolean;

l. Penambahan Procedure
Kemudian pada bagian deklarasi awal (interface declaration) berikan kode seperti ini:

procedure dwc (dx1, dy1, R : single); {gambar lingkaran relatif}
var x1,y1 : single;
begin
dx1 := mf * dx1;
dy1 := mf * dy1;
R := mf * R;
x1 := x0 + dx1* co - sf * dy1 * si;
y1 := y0 - sf * dy1 * co - dx1 * si;
form1.Canvas.Ellipse ( round (x1-r), round (y1-r), round (x1+r), round (y1+r));
end;

procedure dw1 (dx1, dy1 :single); {gambar garis relative}
var x1,y1 : single;
begin
dx1 := mf * dx1;
dy1 := mf * dy1;
x1 := x0 + dx1* co - sf * dy1 * si;
y1 := y0 - sf * dy1 * co - dx1 * si;
form1.Canvas.LineTo(round (x1), round (y1));
end;

procedure dwp (dx1, dy1 :single); {gambar titik relative}
var x1,y1 : single;
begin
dx1 := mf * dx1;
dy1 := mf * dy1;
x1 := x0 + dx1* co - sf * dy1 * si;
y1 := y0 - sf * dy1 * co - dx1 * si;
form1.Canvas.MoveTo (round (x1), round (y1));
end;

procedure drawHouse; {gambar rumah}
begin
dwp (0, 10); {sisi depan}
dw1 (10, 10); dw1(10, 0); dw1 (0,0); dw1 (0,10);
dwp (1,8); {jendela}
dw1 (4, 8); dw1 (4,4); dw1(1,4); dw1 (1,8);

dwp (6,0); {pintu}
dw1 (6,8); dw1 (9,8); dw1 (9,0); dw1 (6,0);
dwp (-1, 9); {atap}
dw1 (5, 15); dw1 (11,9);
dwc (5,12,1); {fentilasi}
dwp (7, 13); {fondasi antenna}
dw1 (7, 16); dw1 (9,16); dw1(9,11);
end;

Setelah semua form dan procedure ditulis kemudian jalankan aplikasi dengan menekan tombol ”RUN” / menekan tombol hijau pada tools atau dengan menekan F9.

Dalam kesempatan ini saya menggunakan spesifikasi komputer sebagai berikut:
1. Proceccor Centrino Intel® Pentium® M 740 (1.73 GHz, 533 MHz FSB, 2MB L2 Chace)
2. RAM DDR2 512 MB
3. Harddisk 60 GB
4. Sistem Operasi Windows XP SP2

3. Langkah ke Tiga

Pengetesan Aplikasi
a. Pengetesan tampilan awal Program saat RUN

























b. Pengetesan saat tombol Navigasi (Atas, Bawah, Kanan, Kiri) ditekan
Sebagai contoh tombol Atas











c. Pengetesan saat tombol Zoom Out ditekan


d. Pengetesan saat tombol Zoom In ditekan























e. Analisa dan kesimpulan

- Membuat sebuah elemen grafik seperti garis bentuk lainnya, menggunakan baris-baris perintah. Perintah tersebut untuk mengatur antara lain posisi, warna, dan warna lain-lain.
Contoh fasilitas penggambaran grafik yang disediakan antara lain : LineTo(), Rectangle(), Ellipse(), dan lain-lain.

- Membuat Rumah berbentuk grafik dari delphi menggunakan angka-angka yang berfungsi sebagai koordiant yang merefleksikanya kedalam gambar yang kita buat.