Belajar Bahasa Borland C++ Builder

PENGENALAN BORLAND C++ BUILDER
Microsoft Windows dan Borland C + + Builder memberi Anda kemampuan untuk menggambar grafik.
Langkah-langkah yang dilakukan dalam Pembuatan garis :
1. Install Borland C++ Builder ( Dalam Contoh di bawah menggunakan Borland c++ Builder 6.0).
2. Setelah ituKlik Menu—File—New—Apllication
3. Maka akan Muncul Form1
4. Dan Pilih Event—OnPaint—(Klik Dua kali)
5. Ketikkan Listing program di bawah ini

1. Membuat Garis Lurus
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Pen->Color = clRed;
Canvas-> MoveTo (45, 15);
Canvas-> LineTo (275, 95);
}
//---------------------------------------------------------------------------


2. Membuat Garis tak beraturan , tetapi ketebalan garis yang tidak berturan.
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Form1->Color=clYellow;

Canvas->Pen->Color=clGreen;
Canvas->Pen->Width=7;
Canvas->MoveTo(275,220);
Canvas->LineTo(195,175);

Canvas->Pen->Color=clRed;
Canvas->Pen->Width=5;
Canvas->LineTo(167,230);
Canvas->MoveTo(190,220);

Canvas->Pen->Color=clBlue;
Canvas->Pen->Width=2;
Canvas->MoveTo(270,220);
Canvas->LineTo(245,285);

}
//---------------------------------------------------------------------------





3. Membuat bangun Ruang yang sederhana
void __fastcall TForm1::FormPaint(TObject *Sender)
{

Canvas->Pen->Color=clBlue;
Canvas->Pen->Width=5;
Canvas-> MoveTo (90, 50);
Canvas-> LineTo (90, 152);
Canvas-> LineTo (294, 152);
Canvas-> LineTo (90, 50);
}
//---------------------------------------------------------------------------




4. Membuat Bangun ruang dengan pewarnaan di dalamnya
void __fastcall TForm1::FormPaint(TObject *Sender)
{

// Bola
Canvas->Pen->Width = 4;
Canvas->Brush->Color=clBlue;
Canvas->Ellipse(20,20,100,100);
Canvas->Brush->Color=clWhite;
Canvas->TextOutA(50,110,"Bola");

// Oval
Canvas->Pen->Width=3;
Canvas->Brush->Color=clGreen;
Canvas->Ellipse(120,20,300,100);
Canvas->Brush->Color=clWhite;
Canvas->TextOutA(200,110,"Oval");
}
//---------------------------------------------------------------------------