Tugas 1
script programnya....
//-----------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//-----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct Elemen { float x,y ;} ;
Elemen Objek[25];
//-----------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//-----------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
FormShow(Sender);
}
//========================================
void __fastcall TForm1::FormShow(TObject *Sender)
{
int i;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
Image1->Canvas->MoveTo(Objek[4].x,Objek[4].y);
for (i=1;i<=4;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
Image1->Canvas->MoveTo(Objek[8].x,Objek[8].y);
for (i=5;i<=8;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
Image1->Canvas->MoveTo(Objek[12].x,Objek[12].y);
for (i=9;i<=12;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
Image1->Canvas->MoveTo(Objek[16].x,Objek[16].y);
for (i=13;i<=16;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
Image1->Canvas->MoveTo(Objek[20].x,Objek[20].y);
for (i=17;i<=20;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
Image1->Canvas->MoveTo(Objek[24].x,Objek[24].y);
for (i=21;i<=24;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Objek[1].x = 100; Objek[1].y = 50;
Objek[2].x = 50; Objek[2].y = 50;
Objek[3].x = 50; Objek[3].y = 100;
Objek[4].x = 100; Objek[4].y = 100;
FormShow(Sender);
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Objek[5].x = 100; Objek[5].y = 50;
Objek[6].x = 50; Objek[6].y = 50;
Objek[7].x = 75; Objek[7].y = 125;
Objek[8].x = 125; Objek[8].y = 125;
FormShow(Sender);
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Objek[9].x = 50; Objek[9].y = 100;
Objek[10].x = 100; Objek[10].y = 100;
Objek[11].x = 125; Objek[11].y = 175;
Objek[12].x = 75; Objek[12].y = 175;
FormShow(Sender);
}
//------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Objek[13].x = 75; Objek[13].y = 125;
Objek[14].x = 125; Objek[14].y = 125;
Objek[15].x = 125; Objek[15].y = 175;
Objek[16].x = 75; Objek[16].y = 175;
FormShow(Sender);
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Objek[17].x = 100; Objek[17].y = 50;
Objek[18].x = 100; Objek[18].y = 100;
Objek[19].x = 125; Objek[19].y = 175;
Objek[20].x = 125; Objek[20].y = 125;
FormShow(Sender);
}
//------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Objek[21].x = 50; Objek[21].y = 50;
Objek[22].x = 50; Objek[22].y = 100;
Objek[23].x = 75; Objek[23].y = 175;
Objek[24].x = 75; Objek[24].y = 125;
FormShow(Sender);
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Close();
}
//--------------------------------------------------------------------
outputnya.
jika klik button M1:
jika klik M2
jika klik M3:
jika klik M4:
jika klik M5:
jika klik M6
Tugas 2
Script programnya.
//-------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//-------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct Elemen { float x,y ;} ;
Elemen Objek[15];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Objek[1].x = 125; Objek[1].y = 100;
Objek[2].x = 75; Objek[2].y = 200;
Objek[3].x = 175; Objek[3].y = 200;
Objek[4].x = 100; Objek[4].y = 125;
Objek[5].x = 50; Objek[5].y = 225;
Objek[6].x = 150; Objek[6].y = 225;
Objek[7].x = 125; Objek[7].y = 100;
Objek[8].x = 100; Objek[8].y = 125;
Objek[9].x = 75; Objek[9].y = 200;
Objek[10].x = 50; Objek[10].y = 225;
Objek[13].x = 175; Objek[13].y = 200;
Objek[14].x = 150; Objek[14].y = 225;
FormShow(Sender);
}
//================================================
void __fastcall TForm1::FormShow(TObject *Sender)
{
int i;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
//titik 1 sampai 3
Image1->Canvas->MoveTo(Objek[3].x,Objek[3].y);
for (i=1;i<=3;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
//titik 4 sampai 6
Image1->Canvas->MoveTo(Objek[6].x,Objek[6].y);
for (i=4;i<=6;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
//garis satu
Image1->Canvas->MoveTo(Objek[8].x,Objek[8].y);
for (i=7;i<=8;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
//garis dua
Image1->Canvas->MoveTo(Objek[10].x,Objek[10].y);
for (i=9;i<=10;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
//garis tiga
Image1->Canvas->MoveTo(Objek[14].x,Objek[14].y);
for (i=13;i<=14;i++){ Image1->Canvas->LineTo(Objek[i].x,Objek[i].y);};
}
Output:
Postingan Lebih Baru Postingan Lama Beranda
Langganan:
Postingan (Atom)