Membuat Program C++ dengan Borland C++ Builder

Borland C++ Builder 6 merupakan software yang mendukung sebagain besar kebutuhan dari programmer, baik dari segi fasilitas (features) maupun daya dukungnya di setiap lini kebutuhan. Programmer dapat membuat beberapa jenis aplikasi, diantaranya adalah aplikasi konsol (console application) yang berbasis DOS dan aplikasi visual (visual appplication) yang berbasis Windows.

Berikut ini adalah contoh program untuk menampilkan tulisan ”Selamat Belajar Pemrograman C++ Builder”.

                                           Gambar 1.1  Program Perkenalan dengan Fasilitas Visual

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

#include <vcl.h>

#pragma hdrstop

#include "U_Perkenalan.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Label1->Caption="Selamat Belajar Pemrograman Visual dengan C++ Builder";

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{ 

Close(); 

}

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

                               Gambar 1.2  Program Luas Persegi Panjang dengan Object Visual

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

#include <vcl.h>

#pragma hdrstop

#include "U_PersegiPanjang.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int P, L;          float Luas;

P = StrToInt(Edit1->Text); 

L = StrToInt(Edit2->Text); 

Luas = P * L;

Edit3->Text = FloatToStr(Luas);

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{     Edit1->Clear();        Edit2->Clear();       Edit3->Clear();       Edit1->SetFocus();     }

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Close();       

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int a;

a=StrToInt(Edit1->Text);

if (a % 2 == 0)

Edit2->Text="genap";

else

Edit2->Text="ganjil";

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Edit1->Clear();

Edit2->Clear();

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Close();

}