Kamis, 26 Februari 2009

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);

}


  1. 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 :


Tidak ada komentar: