praktikum Grafika perdanaku

20 februari 2009 adalah gari perdana buat praktikum Grafika Komputer dengan mas Rizahilmi yang jadi asdosnya…

Kegiatan praktikumnya seperti memahami IDE Borland C++ Buiilder beserta komponen-komponennya dan membuat program grafis sederhana dengan Borland C++ Buiilder.

Seperti yang dijelaskan pada modul 1 dimana Borland C++ Buiilder adalah sebuah bahasa pemrograman visual berorientasi objek yang dikembangkan oleh Borland dengan menggunakan bahasa C++ sebagai compiler.

Pada dasarnya IDE Borland C++ Buiilder dibagi menjadi enam bagian utama yaitu:

• Menu

• Speed Bar / Toolbar

• Component Palette

• Form Designer

• Editor Code

• Object Inspector

IDE Borland C++ Buiilder memakai istilah project dalam menginisialisasi program aplikasi. Projeck merupakan nama program aplikasi yang sedang dibuat, defaultnya adalah project1, project2 dan seterusnya. IDE Borland C++ Buiilder menghasilkan beberapa file dalam setiap project yang dibuat. File-file tersebut adalah :

1. File Project, file ini terdiri dari : File.cpp , File.mak, File.res

2. File Form, file ini terdiri dari : File.dfm , File.cpp, dan File.h

3. File Unit.

4. File Desktop.

Setelah pembahasan mengenai Borland C++ Buiilder, kemudian kita membuat project baru dengan TImage. Program aplikasi ini akan menunjukkan bagaimana membuat aplikasi pemrograman grafis dengan fasilitas TImage. Langkah-langkah pembuatan aplikasi adalah sebagai berikut :

1. Pembuatan antarmuka
   

Langkah-langkahnya adalah :

• Membuat image  segi empat dengan garis putus-putus.
• Membuat Label  untuk menampilkan teks
• Membuat Button  membuat control tombol tekan
• Membuat Dialogs

2. Membuat Program

/---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

int Tergambar;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormActive(TObject *Sender)

{

Tergambar=false;

Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (ColorDialog1->Execute())

Image1->Canvas->Pen->Color=ColorDialog1->Color;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Tergambar=false;

Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::OpenPictureDialog1CanClose(TObject *Sender,

bool &CanClose)

{

if (OpenPictureDialog1->Execute())

{

Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::SavePictureDialog1CanClose(TObject *Sender,

bool &CanClose)

{

if (SavePictureDialog1->Execute())

{

Image1->Picture->SaveToFile(SavePictureDialog1->FileName);

}

}

//----------------------------

-----------------------------------------------

void __fastcall TForm1::I

mage1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

Tergambar=True;

Image1->Canvas->MoveTo(X,Y);

}

3. Setelah semuanya selesai lalu dis

   impan dengan cara :

• Pilih File kemudian Save All

• Simpan unit dan simpan projectnya.

• Untuk menjalankan project yang dibu

  at tadi  klik run.

Maka hasilnya adalah seperti :