Реализация игры "Жизнь", в которой необходимо захватить как можно большее пространство своим цветом
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
lt;StdCtrls.hpp>
#include
#include
//---------------------------------------------------------------------------TForm1 : public TForm
{
__published:// IDE-managed Components*GroupBox1; TGroupBox *GroupBox2;TGroupBox *GroupBox3;*Edit1; TEdit *Edit2; TEdit *Edit3; TEdit *Edit4;*Label1; TLabel *Label2; TLabel *Label3; TLabel *Label4;*Label5; TLabel *Label6; TButton *Button1; TButton *Button2;*Label7; TLabel *Label8; TEdit *Edit5; TEdit *Edit6;*Shape1; TShape *Shape2; TTimer *Timer1;__fastcall FormPaint(TObject *Sender);__fastcall Button1Click(TObject *Sender);__fastcall Button2Click(TObject *Sender);__fastcall Timer1Timer(TObject *Sender);__fastcall FormCreate(TObject *Sender);:// User declarations:// User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
class TCells
{:size;init(_size){size=_size;} //установка размера клетки
};
class TDoska:public TCells
{:() //конструктор - устанавливает значение размера клетки
{
init(33);
}
void draw() //рисует доску белого цвета
{(int i=0;i<10;i++)(int j=0;j<10;j++)
{->Canvas->Brush->Color=clWhite;->Canvas->Ellipse(i*size,j*size,(i+1)*size,(j+1)*size);
}
}
};
//---------------------------------------------------------------------------
class TFishka
{:mas[10][10];color[10][10];x,y,size;count_1,count_2;
//-------------();
//-------------draw_greed() // рисует доску с фишками
{i,j;( i=0;i<10;i++)( j=0;j<10;j++)
{->Canvas->Brush->Color=color[i][j];->Canvas->Ellipse(i*size,j*size,(i+1)*size,(j+1)*size);
}
}
//-------------
void draw() // рисует одну фишку с установленными координатами
{->Canvas->Brush->Color=color[x][y];->Canvas->Ellipse(x*size,y*size,(x+1)*size,(y+1)*size);
}
//------------- // прототип функцииinit(int _x, int _y, TColor _c, int __gamer);
//------------- // процедура проверки окончания игры
void Game_over()
{i,j,t1,t2,_gamer;=100;_gamer=0;t2=0;
(i=0;i<10;i++)(j=0;j<10;j++)(mas[i][j]==1){t2++;}
(t2==t1)
{(count_1>count_2){_gamer=1;} else {_gamer=2;}->Button1->Enabled=false;->Button2->Enabled=false;("Game Over!!! ["+IntToStr(_gamer)+"]");
}
}
//-------------
};
//---------------------- установка координат и захват ближайших клеток -----------
void TFishka::init(int _x, int _y, TColor _c, int __gamer)
{temp;=_x;=_y;=0;(mas[x][y]==0) {color[x][y]=_c; mas[x][y]=1; temp++;}(mas[x+1][y]==0) {color[x+1][y]=_c; mas[x+1][y]=1; temp++;}(mas[x-1][y]==0) {color[x-1][y]=_c; mas[x-1][y]=1; temp++;}(mas[x][y+1]==0) {color[x][y+1]=_c; mas[x][y+1]=1; temp++;}(mas[x][y-1]==0) {color[x][y-1]=_c; mas[x][y-1]=1; temp++;}(mas[x+1][y-1]==0) {color[x+1][y-1]=_c; mas[x+1][y-1]=1; temp++;}(mas[x+1][y+1]==0) {color[x+1][y+1]=_c; mas[x+1][y+1]=1; temp++;}(mas[x-1][y-1]==0) {color[x-1][y-1]=_c; mas[x-1][y-1]=1; temp++;}(mas[x-1][y+1]==0) {color[x-1][y+1]=_c; mas[x-1][y+1]=1; temp++;}
(__gamer)
{1 : count_1+=temp;break; 2 : count_2+=temp;break;
}
}
//------------- конструктор - установка начальных значений переменных -------
TFishka::TFishka()
{(int i=0;i<10;i++)(int j=0;j<10;j++)
{color[i][j]=clWhite;[i][j]=0;}_1=0;_2=0;=33;
}
Программный код модуля unit1.cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;f;doska;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{}
//----------- обработчик прорисовки формы -----------------------------------------__fastcall TForm1::FormPaint(TObject *Sender)
{
doska.draw();
}
//---------------------- нажатие кнопки первого игрока ----------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{.init(StrToInt(Edit1->Text),StrToInt(Edit2->Text),clBlue,1);.draw();->Text=IntToStr(f.count_1);->Enabled=false;->Enabled=false;Edit1->Text="";->Enabled=false;Edit2->Text="";(Button2->Enabled==false)
{ Button2->Enabled=true;->Enabled=true;->Enabled=true;}{Button2->Enabled=false;}.Game_over();
}
//-------------------------- нажатие кнопки второго игрока ------------------------------__fastcall TForm1::Button2Click(TObject *Sender)
{.init(StrToInt(Edit3->Text),StrToInt(Edit4->Text),clRed,2);.draw();->Text=IntToStr(f.count_2);->Enabled=false;->Enabled=false;Edit3->Text="";->Enabled=false;Edit4->Text="";(Button1->Enabled==false)
{Button1->Enabled=true;->Enabled=true;->Enabled=true;
}else{Button1->Enabled=false;}.Game_over();
}
//------------------------------ обработчик таймера для прорисовки доски ------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{f.draw_greed();}
//---------------------- обработчик создания формы ------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{->Text=IntToStr(f.count_1);->Text=IntToStr(f.count_2);->Enabled=false;->Enabled=false;
}
//---------------------------------------------------------------------------
Результаты работы программы
Рис. 1. Главное окно после запуска программы.
Рис. 2. промежуточный результат работы программы.
Рис. 3. конечный результат работы программы.