c++ objek(tugas GRAFKOM p.FAISAL M.Kom)

 dari FB= kang tarecha



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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)


{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormPaint(TObject *Sender)
{

        //warna biru
        Canvas->Pen->Color=clBlue;

        //dinding putus2 antara - dan .
        Canvas->Pen->Style=psDashDot;
        Canvas->Brush->Color=clRed;
         Canvas->Brush->Style=bsVertical;
        //bodi mobil kotak X1, Y1, x2, y2
        Canvas->Rectangle(100,200,500,300);
         Canvas->Brush->Color=clBlue;
         Canvas->Brush->Style=bsHorizontal;
        //rubah warna roda
        Canvas->Pen->Color=clGreen;
        //pola roda 1
        Canvas->Pen->Style=psDash;
        //roda depan
        Canvas->Ellipse(150,250,250,350);
        //roda belakang
        Canvas->Ellipse(325,250,425,350);
        //tulisan
        Canvas->TextOutA(200,220,"Mobile Tarecha 09650135");
        //atap
        Canvas->Brush->Color=clAqua;
         Canvas->Brush->Style=bsDiagCross;
         Canvas->Pen->Color=clFuchsia;
        //pola atap
        Canvas->Pen->Style=psSolid;
        Canvas->RoundRect(400,200,170,120,70,40);
        Canvas->Pen->Color=clCream;
           Canvas->Brush->Color=clBlack;
         Canvas->Brush->Style=bsSolid;
        //moncong segi tiga
        Canvas->MoveTo(500,200);
        Canvas->LineTo(600,250);
        Canvas->MoveTo(500,300);
        Canvas->LineTo(600,250);


        //titik
        Canvas->Pen->Color=clDkGray;
        Canvas->Pen->Width=5;
        Canvas->MoveTo(150,150);
        Canvas->LineTo(190,190);



         //algoritma garis
         // algoritma bresenham
         //menggunakan loop untuk mencetak titik2 kemudian menjadi garis :)

        int x1=5,y1=5;     // titik pertama
        int x2=100,y2=180; //titik ke 2


        int dx, dy;
        int d;
        int x,y;
        dy=y2-y1;
        dx=x2-x1;
        d = dx-2 * dy;
        y = y1;
        for (x = x1; x <= x2; x++)
        {

                Canvas->Pixels[x][y]=clBlue;
                if (d < 0)
                {
                        y = y +1;
                        d = d + 2*dx-2*dy;
                }
                else
                {
                        d = d-2*dy;
                }
        }









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

dengan hasil RUN nya...

Share: