1. Sintaksisga kirish Dastur yaratish muhiti



Yüklə 1,17 Mb.
səhifə22/34
tarix19.09.2022
ölçüsü1,17 Mb.
#63802
1   ...   18   19   20   21   22   23   24   25   ...   34
1 kurslarga moljallangan Dasturlash 2 fanidan C Builder muhitida (2)

Zarur ko‘nikmalar


Bu dasturni yozish uchun bir o‘lchovli massivlar ustida ishlashni yaxshi o‘zlashtirgan va ko‘p o‘lchovlilar bilan ishlash tamoyillarini bilishi kerak. Undan tashqari ixtiyoriy ko‘pburchaklarni shaklga chiqarish usullarini bilishi kerak.

Yechish

Shakl


Bu dasturda shakl bevosita grafik chiqarish uchun maydon sifatida ishlatiladi. Shuning uchun ham u faqat boshqarish tugmachalaridan tashkil topadi. U tugmachalar yordamida sirtlarni aks ettirish, yangi tasodifiy koordinatalarni tanlash funksiyalari va avvalgi misollardagi tamoyil bo‘yicha ishlaydigan «Pusk/Pauza» tugmachalari ishlatilgan.

Ko‘ptamonlilarni shaklga to‘g‘ridan to‘g‘ri o‘tkazish

Blok sxema


Mazkur blok sxema sirtni approksimatsiya qiluvchi parallelepipedlar majmuini bevosita ekranga chiqarishni aniqlaydi. Bu protseduradagi uchinchi koordinata qiymatlarini aniqlovchi, ikki o‘lchovli Pole[20][20] massiv berilgan deyiladi.

Dastur kodi


#include


#pragma hdrstop

#include "Unit1.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

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


int Pole[20][20]; // Maydon
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void DrawPole()
{
TPoint P[4];


for(int y = 0; y < 20; y++)
for(int x = 19; x >= 0; x--)
{
P[0].x = x * 20 + y * 10 + 22;
P[0].y = y * 10 - Pole[x][y] + 202;
P[1].x = P[0].x + 16;
P[1].y = P[0].y;
P[2].x = P[0].x + 26;
P[2].y = P[0].y + 6;
P[3].x = P[0].x + 10;
P[3].y = P[0].y + 6;

TPoint P2[4] = {P[0],P[1],P[2],P[3]};


TPoint P1[4] = {P[0],P[1],P[2],P[3]};

P2[1].y = y * 10 + 256;


P2[1].x = P[2].x;
P2[0].y = y * 10 + 256;
P2[0].x = P[3].x;

P1[1].x = P[0].x;


P1[1].y = y * 10 + 250;
P1[2].x = P[3].x;
P1[2].y = y*10 + 256;

Form1->Canvas->Brush->Color = clBlue;


Form1->Canvas->Polygon(P2,3);

Form1->Canvas->Brush->Color = clRed;


Form1->Canvas->Polygon(P1,3);

Form1->Canvas->Brush->Color = clGreen;


Form1->Canvas->Polygon(P,3);
}
}

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


void RandomPole()
{
for(int y = 0; y < 20; y++)
for(int x = 0; x < 20; x++)
{
Pole[x][y] = random(50)+10;
}
}

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


void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i = 0; i < 20; i++)
for(int j = 0; j < 20; j++)
{
Pole[i][j] = 0;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)


{
Form1->Refresh();
DrawPole();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)


{
RandomPole();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)


{
if(Button3->Caption == "Pauza")
{Button3->Caption = "Pusk";}
else
{Button3->Caption = "Pauza";}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)


{
if(Button3->Caption == "Pauza")
{
RandomPole();
Form1->Refresh();
DrawPole();
}
}

Yüklə 1,17 Mb.

Dostları ilə paylaş:
1   ...   18   19   20   21   22   23   24   25   ...   34




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin