Minggu, 17 Juni 2012

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


5 komentar: