Grafika Komputer part 08

•December 14, 2009 • Leave a Comment

Pasar Legi Minggu Pagi Enam April 2008

•December 14, 2009 • Leave a Comment

Suparmi : Weeee yu Jiyem, neng ngendi wae kok wis suwe ora ketok

Parjiyem : Eeeeeee Parmi tho iki, waduh soyo mundak ayu

Suparmi : yu Jiyem neng koran-koran kae wong-wong kok dho ngomong Linak Linuk ki opo tho kuwi. Terus jarene Linuk-i ono sing jenenge Usus Buntu, Kenthus, Susi, Genthoo, yo ? Nek sing jenenge Maling ono pora ?

Parjiyem : Lucu tenan kowe ki nduk. Ngene-ngene, saiki kowe nganggo komputer opo ?

Suparmi : Celeron yu.

Parjiyem : Operating System-e ?

Suparmi : 98.

Parjiyem : Ooooo Microsoft Windows 98 yo. Ngene Linux iku koyo 98 kuwi. Nah Linux kuwi sak jane mung bagian inti soko Sistem Operasi, jenenge Kernel. Tanggung jawabe kernel, yo iku nangani hubungan antarane hardware lan software. Nah koyo Word, Corel, Visual Basic lan liyo liyane sing marak ake gaweyan ndak rampung kae, dilakoake neng ndhuwure kernel mau. Kuwi jenenge distribusi, istilah londone Distro. Kan ngene Yem, aku karo kowe ki nduweni kesenengan dhewe-dhewe, wong liyo yo edo meneh tho. Lha distro kuwi mau akeh jenis-e. Jeneng-jeneng sing terkenal koyo tho Ubuntu, CentOs, Suse, Gentoo, sing koyo mbok kandake mau.

Suparmi : Piye  karepe kuwi ? Mbok sing rodo cetho tho yu.

Parjiyem : Kowe masak opo dino iki ?

Suparmi : Thengkleng yu.

Parjiyem : Nek aku oblok-oblok godong kates. Nha awake dhewe wae rak wis bedho tho. Lha menungso kuwi, pisan meneh yo bedo bedo. Contone nek ono uwong sing durung tau nganggo Linux, opo malah sing lagi wae kenalan karo komputer, rak dhewe-e nduwe pengare-arep nek komputer ki ora angel-angel nganggone. Lha nek sing model koyo kowe wis ahli, nganggo komputer karo masak wae kan wis iso. Nah apike Linux kuwi iso dienggo karo sing isih ajaran, lah sing wis ahli koyo kowe.

Suparmi  : Yu Jiyem-i ahli piye, buktine tokak-takok wae neng sampeyan. Oooo dadi tergantung wong-e yo yu yo.

Parjiyem : Lho wis mudheng tho, pinter tenan kowe cah ayu. Ngene Mi, misale kowe sekolah neng Gudang-e Pakar Komputer, alias mahasiswa komputer. Kowe rak pengin iso mudheng piye sih mlakune Sistem Operasi kuwi. Neng njerone kuwi piye nek ngonak-ngonok-ke. Lha wong sing koyo ngene iki apike iso nggawe Distro Linux dhewe. Ono proyek jenengen Linux From Scratch sing ngajari piye carane nggawe Distro Linux kuwi mau. Ono Distro Linux sing ngelayani koyo ngene iki yoan, jenegen Gentoo.

Suparmi : Yu aku rak ora anggota Gudang-e Pakar Komputer, aku ki Pakare Gudang Komputer, alias mung tukang resik-resik gudang. Mosok yo nganggo sing angel-angel ?

Parjiyem : Nek kanggo sing ngaku ora ahli utowo lagi anyaran, ono Distro-Distro sing wis nganggo GUI koyo 98-mu. Dadi mung kari ngeklak karo ngeklik. O iya, garis besar-e sakjane Linux iku iso digolongke nganggo Package Management sing didukung. Package Manager ki podo karo setup neng sing kanggo nginstall 98 kae lho. Sing mandegani ono loro. Package deb lan rpm. Deb iku singkatan soko Debian lan rpm iku RedHat Package Manager. Akeh-akehe Distro Linux ki melu cah loro kuwi mau. Nek Deb bolone Ubuntu, Freespire, Debian dhewe. Rpm bolone RedHat, Mandriva, Suse. Nek kowe pengin iso enak nginstal nganggoo koyo Ubuntu, Fedora, Debian lal liyo liyane, tapi ora iso kanggo nglakokake mp3, quicktime lan liyo liyane.

Suparmi : Lho nggak gaul dong Yu ?

Parjiyem : Lho kowe iso bahasa Indonesia tho. Ngene carane kowe donlot wae codec terus mbok install wae nek linux-mu. Contone aku nganggo mplayer kanggo mp3-ku.

Suparmi : Yu ono ra Linux sing nek diinstall langsung iso nganggo mp3 ?

Parjiyem : Yo ono thoooo. Contone Linspire lan Xandros, tapi kow kudu tuku.

Suparmi : Nek aku ameh nganggo Linux nggo server piye yu ?

Parjiyem : Yen kowe ameh nganggo Linux sing server, lha kuwi arti tampilane dadi ora patek apik, boso komputere GUI-ne dadi ora kanggo. Apik-e kowe nganggo Debian wae. Debian ki ngusahake banget neng keamanan lah nenggone sing dho nganggo Linux akeh dhew sing nganggo. Tapi kowe yo iso njajal RedHat utowo Suse yoan. Terus meneh yen Debian kuwi Distro sing iso dienggo neng kompuer liyane x86/IA32, koyo tho Intel 64 bit, AMD 64 bit lan Power PC, lagian Debian kuwi ora diduweki karo organisasi opo wae, alias ora ono sing nduweni. Dheweke uripe soko sumbangan lan uwong-uwong sing gelem ngewangi jiwo lan rogo wae.

Suparmi : Lha yu, neng nggo naku ki isih akeh komputer sing nganggo memory mung 32 mega ki terus ora iso no nganggo Linux ?!

Parjiyem : Ono kok Distro sing khusus kanggo komputer-komputer sing memori-ne cuwiluik, yo kuwi Damn Small Linux, liyane ono sing jenenge Puppy Linux. Malahan Damn Small Linux ki ukurane neng harddisk iku mung 50 mega.

Suparmi : Mosok tho yu ?!! Waduh tambah penasaran aku, dadi pengen nyoba sing kuwi mau.

Parjiyem : Lho sing luuuuuuwih cuilik maneh ono, iso dilakok-ake mung nganggo disktet, jenenge TOMSRTBT. Iso dienggo nggolek-i masalah neng komputer barang.

Suparmi : Kok iso akeh tur macem-macem yo yu ?

Parjiyem : Amargo Linux ki kode program-e oleh diduweni karo sopo wae. Nek sak umpomo ora ngono yo sopo sing ameh ndukung. Nek dijumblah kabeh ono atusan kok.

Suparmi : Lho yu lha nek sing pothet-pothet nganggone Linux opo ?

Parjiyem : Weh weh weh, lagi wae krungu wis langsung pengin dadi pothet. Biasane Slackware utowo Gentoo, sing disenengi sing dho pothet kae. Slackware kuwi formate bedo, jenenge TGZ. Akeh yoan sing seneng karo Slack ware nanging distro iki oran cocok kanggone sing lagi mulai belajar.

Suparmi : Lha nek jumlah-e atusan kok yo ono sing ora kesuwur no yu ?

Parjiyem : Yo mesthi tho. Sakjane sing terkenal ki durung mesthi sing apik. Tapi coba bayangno ngene RedHat lan Novell ding nduwe Suse, kuwi perusahaan sing guwedhe buwanget. Duwite wah wis sak entek-enteke ongko duwe. Nah sing koyo ngono kuwi iso terkenal amargo iso mbayar iklan, ngeneke ijazah kanggo sing wis rodo iso. Ono Disto-distro sing terkenal amargo krentege sing sosial lan digratiske kowo howo sing awake dhewe nggo ambegan, koyo tho Debian lan Ubuntu. Dadi sakjane ora ono Distro sing iso diarani paling apik. Tergantung karo pengine sing nganggo piye ?

Suparmi : Wis mudheng aku saiki. Matur sembah nuwun yo yu. Bejo kemayangan pancen nduwe mbakyu pinter koyo sampeyan ki. Si Adi saiki wis kelas piro ?

Parjiyem : Si adi wis kelas 3 esde nek bayu teka nol gedhe. Lha kowe kapan ? Isih karo Agung ?

Suparmi : Wah it’s complicated kok yu. Agung ki wis masa lalu. Bar kuwi ono meneh kok yu.

Parjiyem : Sopo jenenge ? Cah ngendi ?

Suparmi : Tapi yo wis masa lalu kok yu.

Parjiyem : Tapi rak isih tho ?

Suparmi : Isih no yu !.

Parjiyem : Isih opo tho ?

Suparmi : Ha.. ha.. ha.. ha.. ha.. Wis yo yu selak dienteni iki. Suk mben disambung meneh yo. Maturnuwun tenan iki.

Parjiyem : Yo podo-podo.

Suparmi dan Parjiyem sudah pasti tokoh fiktif, mengambil panggung kejadian di pasar legi dengan harapan bahwa suatu hari memang akan terjadi obrolan berbau teknologi informasi di pasar induk terbesar di karesidenan surakarta.

diadaptasi dari sini

Sumber : Catatan Nanung Nur Zula di Facebook


Satu Rindu (Opick Feat Amanda)

•October 8, 2009 • Leave a Comment

Hujan teringatkan aku
Tentang satu rindu
Dimasa yang lalu
Saat mimpi masih indah bersamamu

Terbayang satu wajah
Penuh cinta penuh kasih
Terbayang satu wajah
Penuh dengan kehangatan
Kau ibu Oh ibu

Alloh izinkanlah aku
Bahagiakan dia
Meski dia telah jauh
Biarkanlah aku
Berarti untuk dirinya
oh ibu oh ibu kau ibu

Terbayang satu wajah
Penuh cinta penuh kasih
Terbayang satu wajah
Penuh dengan kehangatan
Kau ibu

Terbayang satu wajah
Penuh cinta penuh kasih
Terbayang satu wajah
Penuh dengan kehangatan
Kau ibu oh ibu kau ibu
oh ibu oh ibu

Hujan teringatkan aku
Tentang satu rindu
Dimasa yang lalu
Saat mimpi masih indah bersamamu
Kau ibu kau ibu kau ibu

**lagu ini ingin ku persambahkan untuk Ibuku tersayang
i miss yaou, MOM. @};-

Lowongan di Esoftdream.net

•October 7, 2009 • Leave a Comment

Saat ini Esoftdream membutuhkan secepatnya, PROGRAMMER WEB dengan kualifikasi :

  • Pria/wanita
  • Berdomisili di Yogya (Diutamakan)
  • Pendidikan S1 / semester akhir
  • Menguasai php
  • Menguasai mysql
  • Menguasai logika pemrograman
  • Mampu dengan cepat mempelajari teknik teknik pemrograman
  • Sanggup bekerja dalam team
  • Menguasai framework MVC / OOP dalam PHP adalah nilai tambah

Fasilitas :

  • Gaji Pokok
  • Gaji Mingguan
  • Bonus Project
  • Bonus Tahunan
  • Asuransi

Kirimkan lamaran beserta CV lengkap dan Portofolio (link website jika ada) dalam format PDF melalui email hrd[at]esoftdream[dot]net paling lambat 21 November 2009. Kandidat yang terpilih akan dihubungi melalui telpon.

source : esoftdream.net

I’ll Be There (Mariah carrey Ft Trey Lorenz)

•September 7, 2009 • Leave a Comment

You and I must make a pact
We must bring salvation back
Where there is love
I’ll be there
I’ll reach out my hand to you
I’ll have faith in all you do Just call my name
And I’ll be there

I’ll be there to comfort you
Build my world of dreams around you
I’m so glad that I found you
I’ll be there with a love that’s strong
I’ll be your strength I’ll keep holding on

Let me fill your heart with joy and laughter
Togetherness is all I’m after
Whenever you need me I’ll be there
I’ll be there to protect you
With an unselfish love
I’ll respect you Just call my name
And I’ll be there

I’ll be there to comfort you
Build my world of dreams around you
I’m so glad that I found you
I’ll be there with a love that’s strong
I’ll be your strength
I’ll keep holding on

If you should ever find someone new
I know she’d better be good to you
‘Cause if she doesn’t I’ll be there

I’ll be there
I’ll be there Just call my name
I’ll be there I’ll be there
I’ll be there Whenever you need me
I’ll be there

**suka banget ma ni lagu. Enjoy it😀

Grafika Komputer part 08

•May 11, 2009 • 1 Comment

APLIKASI GRAFIKA KOMPUTER ‘MEDIA PLAYER’

Grafika komputer memainkan peranan penting dalam sistem multimedia. Yang dimaksud multimedia dalam konteks ini adalah program yang mampu menjalankan file-file dari berbagai bentuk, mulai dari format teks, sound, image, bahkan video. Untuk merancang multimedia, Borland C++ Builder telah menyediakan komponen khusus yaitu media player.

Scriptnya adalah sebagai berikut :

//————————————————————————–

#include <vcl.h> // pemanggilan library dari borland

#pragma hdrstop

#include “Unit1.h”

//————————————————————————–

#pragma package(smart_init)

#pragma resource “*.dfm”

TForm1 *Form1;

//————————————————————————–

__fastcall TForm1::TForm1(TComponent* Owner) // deklarasi dari form bernama TForm1

: TForm(Owner)

{

}

//————————————————————————–

void __fastcall TForm1::Button1Click(TObject *Sender) // fungsi apabila button ganti file diklik maka akan muncul

{

if (OpenDialog1->Execute()) // untuk membuka open file yang akan dibuka

MediaPlayer1->FileName=OpenDialog1->FileName; // Mlayer akan membuka file sesuai file yang dipilih di open dialog

MediaPlayer1->Open();

MediaPlayer1->Display=Panel1; // file video yang dibuka akan diputar di obyek panel1

RadioButton6->Enabled=True; // mengaktifkan radio button puter 2 kali

RadioButton7->Enabled=True; // mengaktifkan radio button puter 3 kali

RadioButton8->Enabled=True; // mengaktifkan radio button puter 4 kali

}

//————————————————————————–

void __fastcall TForm1::Button2Click(TObject *Sender) // fungsi button keluar

{

Close();

}

//————————————————————————–

void __fastcall TForm1::RadioButton6Click(TObject *Sender) // fungsi yang jika radio button AVI diklik

{

RadioButton7->Enabled=False; // menon-aktifkan radio button puter 3 kali

RadioButton8->Enabled=False; // menon-aktifkan radio button puter 4 kali

MediaPlayer1->Stop(); // mplayer tidak bekerja

MediaPlayer1->Wait=True; // mplayer dalam keadaan standby

MediaPlayer1->Play(); // mplayer memainkan file

MediaPlayer1->Wait=True; // mplayer dalam keadaan standby

MediaPlayer1->Play(); // mplayer memainkan file

RadioButton6->Enabled=True; // mengaktifkan radio button puter 2 kali

RadioButton7->Enabled=True; // mengaktifkan radio button puter 3 kali

RadioButton8->Enabled=True; // mengaktifkan radio button puter 4 kali

RadioButton6->Enabled=False; // // menon-aktifkan radio button puter 2 kali

RadioButton7->Enabled=False; // menon-aktifkan radio button puter 3 kali

RadioButton8->Enabled=False; // menon-aktifkan radio button puter 4 kali

}

//————————————————————————–

void __fastcall TForm1::RadioButton7Click(TObject *Sender)

{

RadioButton6->Enabled=False;

RadioButton8->Enabled=False;

MediaPlayer1->Stop();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Enabled=False;

RadioButton7->Enabled=False;

RadioButton8->Enabled=False;

}

//————————————————————————–

void __fastcall TForm1::RadioButton8Click(TObject *Sender)

{

RadioButton6->Enabled=False;

RadioButton7->Enabled=False;

MediaPlayer1->Stop();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

MediaPlayer1->Wait=True;

MediaPlayer1->Play();

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Enabled=False;

RadioButton7->Enabled=False;

RadioButton8->Enabled=False;

}

//————————————————————————–

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

OpenDialog1->FileName=””;

OpenDialog1->Filter=”Audio Video(*.avi)|*.avi”;

if (OpenDialog1->Execute())

MediaPlayer1->Close();

Button1->Enabled=True;

MediaPlayer1->DeviceType=dtAVIVideo;

MediaPlayer1->FileName=OpenDialog1->FileName;

MediaPlayer1->Open();

Panel4->Caption=”Gambar Yang bagus”;

MediaPlayer1->Display=Panel1;

Panel3->Caption=OpenDialog1->FileName;

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Checked=False;

RadioButton7->Checked=False;

RadioButton8->Checked=False;

}

//————————————————————————–

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

OpenDialog1->FileName=””;

OpenDialog1->Filter=”WAV Audio Files (*.wav)|*.wav”;

if (OpenDialog1->Execute())

MediaPlayer1->Close();

Button1->Enabled=True;

MediaPlayer1->DeviceType=dtWaveAudio;

MediaPlayer1->FileName=OpenDialog1->FileName;

MediaPlayer1->Open();

Panel4->Caption=”Maaf tidak ada gambar”;

MediaPlayer1->Display=Panel1;

Panel3->Caption=OpenDialog1->FileName;

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Checked=False;

RadioButton7->Checked=False;

RadioButton8->Checked=False;

}

//————————————————————————–

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

OpenDialog1->FileName=””;

OpenDialog1->Filter=”Midi Files(*.midi)|*.midi”;

if (OpenDialog1->Execute())

MediaPlayer1->Close();

Button1->Enabled=True;

MediaPlayer1->DeviceType=dtSequencer;

MediaPlayer1->FileName=OpenDialog1->FileName;

MediaPlayer1->Open();

Panel4->Caption=”Maaf tidak ada gambar”;

MediaPlayer1->Display=Panel1;

Panel3->Caption=OpenDialog1->FileName;

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Checked=False;

RadioButton7->Checked=False;

RadioButton8->Checked=False;

}

//————————————————————————–

void __fastcall TForm1::RadioButton4Click(TObject *Sender)

{

MediaPlayer1->Close();

Button1->Enabled=True;

MediaPlayer1->DeviceType=dtCDAudio;

MediaPlayer1->FileName=EmptyStr;

MediaPlayer1->Open();

Panel4->Caption=”Maaf, Tidak ada gambar”;

MediaPlayer1->Display=Panel1;

Panel3->Caption=”CD Audio”;

RadioButton6->Enabled=True;

RadioButton7->Enabled=True;

RadioButton8->Enabled=True;

RadioButton6->Checked=False;

RadioButton7->Checked=False;

RadioButton8->Checked=False;

}

//————————————————————————–

outputnya:

multimediamultimedia1

Grafika Komputer part 7

•May 11, 2009 • Leave a Comment

RENDERING

Rendering (pengecatan) adalah sebuah cara dalam grafika computer untuk membuat pemandangan nampak ‘nyata’ atau visualisasi objek 3D menjadi riil. Untuk rendering objek 3D, ada beberapa factor yang mempengaruhi, diantaranya factor cahaya, sifat/karakteristik bahan, posisi kamera dan lain-lain. Suatu citra yang mengalami proses rendering yang baik akan menghasilkan gambar hasil akhir. Sedangkan tanpa rendering tidak akan menghasilkan gambar.

Proses rendering dapat dilakukan dengan beberapa cara, yaitu : lighting dan texturing.

LIGHTING

Lighting atau pencahayaan merupakan suatu metode yang dapat kita terapkan pada proses rendering untuk menjadikan sebuah objek menjadi terlihat berbeda. Untuk memperlihatkan bahwa lighting atau pencahayaan akan mempengaruhi pandangan terhadap sebuah objek.

Dalam proses rendering , lighting dipengaruhi oleh factor-faktor sebagai berikut :

1.jarak objek dengan sumber cahaya,

2.posisi objek,

3.bentuk permukaan objek.

Untuk memahami dasar-dasar lighting kita mulai dengan memperkenalkan model bayangan.

1.MODEL BAYANGAN

Sebuah objek akan memberikan sifat yang berbeda pada saat dikenai cahaya. Ada yang memantulkan, membiaskan ataupun menyerap cahaya. Selain itu, ada objek yang apabila dikenai cahaya maka akan menimbulkan bayangan. Terdapat dua cara pemberian bayangan pada proses rendering :

1)Bayangan rata (flat shading)

Pemberian bayangan rata (flat) merupakan cara termudah untuk dibuat. Bayangan rata mempunyai karakteristik sebagai berikut :

Pemberian tone yang sama untuk setiap polygon.

Penghitungan jumlah cahaya mulai dari titik tunggal pada permukaan.

Penggunaan satu normal untuk seluruh permukaan.

Pemberian bayangan rata ini mengasumsikan bahwa setiap muka polygon dari sebuah objek adalah rata dan semua titik pada permukaan mempunyai jarak yang sama dengan sumber cahaya.

2)Bayangan halus (smooth shading)

Cara ini mengijinkan kita untuk membuat perubahan setahap demi setahap dalam pemberian bayangan pada sebuahnpermukaan. Cara ini juga mengijinkan pemberian bayangan pada satu muka lebih pudar dibandingkan muka yang lain. Ini akan menghasilkan permukaan yang lebih halus.

Bayangan tinbul disebabkan oleh adanya sumber cahaya. Di sekitar kita banyak didapati pelbagai sumber cahaya, contohnya : cahaya matahari, neon, lampu pijar dan lain sebagainya. Jenis cahaya dari pelbagai sumber cahaya sering diasumsikan dan dimodelkan dengan cahaya titik dan cahaya lingkungan. Dengan dua jenis cahaya ini memudahkan pembuatan model bayangan dan pantulan.

Program

//——————————————————————-

#include // deklarasi library dari builder

#pragma hdrstop

#include “Unit1.h”

//——————————————————————-

#pragma package(smart_init)

#pragma resource “*.dfm”

TForm1 *Form1;

//——————————————————————-

__fastcall TForm1::TForm1(TComponent* Owner) // deklarasi form

: TForm(Owner)

{

}

//——————————————————————-

Graphics::TBitmap* pix = new Graphics::TBitmap(); // obyek baru bernama pix menggunakan komponen bmp

RGBTRIPLE* t; //RGBTRIPLE merupakan komponen TBitmap dengan inisialisasi t

int cycle = 0;

int step;

bool stop = false;

//—————————————————-

void renderBMP(Graphics::TBitmap* picture) //proses rendering dengan fungsi renderBMP

{

Form1->Canvas->Draw(0, 0, pix); //menggunakan form1 maka besar gambar akan memenuhi form yang dipake

}

//—————————————————

void bmpAlter(Graphics::TBitmap* picture) //proses alter

{

stop = false;

Form1->Button4->Caption = “Stop”; //jika alter dipencet atau dijalankan maka button 4(button stop) captionnya kaan berubah

while (!stop)

{

for (step = 0; step < 256; step++) //jumlah warna 256

{

if (stop) break; //proses berhenti sejenak unutk proses pembacaan dimulai lagi

for (int y = 0; y < pix->Height; y++) //saat berhenti sejenak makan y menjadi 0

{

t = (RGBTRIPLE*)picture->ScanLine[y]; // scan garis yang terbuat dari titik2

for (int x = 0; x < pix->Width; x++)

{

t->rgbtRed++; //tambah warna merah saat proses alter

t->rgbtGreen–;//kurangi warna hijau

t->rgbtBlue++;//kurangi warna biru

t++;

}

}

Form1->Canvas->Draw(0, 0, pix);

cycle++; // nilai cycle ditambah secara otomatis

if (cycle > 255) cycle = cycle -256;

Form1->Edit1->Text = cycle;

Application->ProcessMessages();

}

}

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (OpenPictureDialog1->Execute() )

pix->LoadFromFile(OpenPictureDialog1->FileName); //memilih sebuah file dari openpicturedialog

}

//——————————————————————-

void __fastcall TForm1::Button2Click(TObject *Sender)

{

renderBMP(pix); //memanggil fungsi randerbmp-> menempatkan gambar pada form 1

}

//——————————————————————-

void __fastcall TForm1::Button3Click(TObject *Sender)

{

bmpAlter(pix); //memanggil fungsi bmpAlter();

}

//——————————————————————-

void __fastcall TForm1::Button4Click(TObject *Sender)

{

stop = !stop;

if (stop) {

Button4->Caption = “Start”; //merubah caption button stop mjd star

}

else {

Button4->Caption = “Stop”;//merubah caption button stop

bmpAlter(pix);

}

Application->ProcessMessages();

}

//——————————————————————-

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

cycle = 0;

Form1->Edit1->Text = cycle; //jika adatext yang bisa dibaca maka akan berubah jika tidak ada maka defaultnya 0

}

//——————————————————————-

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

delete pix; //agar gambar tidak tertinggal didalam program.

}

Outputnya:

render

render3