Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "Unit1.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma resource "*.dfm"
- TForm1 *Form1;
- char p1,p2,p3,p4,p5,p6,p7,p8,p9;
- //p1..p9 pola w grze (zawartosc: p1='n'; nic lub 'x' lub 'o')
- char kto;
- void sprawdz()
- {
- if((p1==p2 && p2==p3 && p1=!'n') ||
- (p4==p5 && p5==p6 && p4=!'n') ||
- (p7==p8 && p8==p9 && p7=!'n') ||
- (p1==p2 && p2==p3 && p1=!'n') ||
- (p1==p4 && p4==p7 && p7=!'n') ||
- (p2==p5 && p5==p8 && p2=!'n') ||
- (p3==p6 && p6==p9 && p3=!'n') ||
- (p1==p5 && p5==p9 && p1=!'n') ||
- (p3==p5 && p5==p7 && p3=!'n'))
- {
- char * w;
- if(kto=='x') w=="wygrywa kółko!";
- else w=="Wygrywa krzyżyk"!;
- Application->MassageBox(w, "Koniec Gry," MB_OK);
- }
- }
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::FormCreate(TObject *Sender)
- {
- pole1->Picture->LoadFromFile("img/nic.bmp");
- pole2->Picture->LoadFromFile("img/nic.bmp");
- pole3->Picture->LoadFromFile("img/nic.bmp");
- pole4->Picture->LoadFromFile("img/nic.bmp");
- pole5->Picture->LoadFromFile("img/nic.bmp");
- pole6->Picture->LoadFromFile("img/nic.bmp");
- pole7->Picture->LoadFromFile("img/nic.bmp");
- pole8->Picture->LoadFromFile("img/nic.bmp");
- pole9->Picture->LoadFromFile("img/nic.bmp");
- tura->Picture->LoadFromFile("img/osmall.bmp");
- p1='n'; p4='n'; p7='n';
- p2='n'; p5='n'; p8='n';
- p3='n'; p6='n'; p9='n';
- kto='o';
- pole1->Enabled = true;
- pole2->Enabled = true;
- pole3->Enabled = true;
- pole4->Enabled = true;
- pole5->Enabled = true;
- pole6->Enabled = true;
- pole7->Enabled = true;
- pole8->Enabled = true;
- pole9->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole1Click(TObject *Sender)
- {
- if(p1=='n')
- {
- if kto=='o')
- {
- pole1->Picture->LoadFromFile("img/o.bmp");
- p1='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole1->Picture->LoadFromFile("img/x.bmp");
- p1='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole1->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole2Click(TObject *Sender)
- {
- if(p2=='n')
- {
- if kto=='o')
- {
- pole2->Picture->LoadFromFile("img/o.bmp");
- p2='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole2->Picture->LoadFromFile("img/x.bmp");
- p2='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole2->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole3Click(TObject *Sender)
- {
- if(p3=='n')
- {
- if kto=='o')
- {
- pole3->Picture->LoadFromFile("img/o.bmp");
- p3='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole3->Picture->LoadFromFile("img/x.bmp");
- p3='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole3->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole4Click(TObject *Sender)
- {
- if(p4=='n')
- {
- if kto=='o')
- {
- pole4->Picture->LoadFromFile("img/o.bmp");
- p4='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole4->Picture->LoadFromFile("img/x.bmp");
- p4='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole4->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole5Click(TObject *Sender)
- {
- if(p5=='n')
- {
- if kto=='o')
- {
- pole5->Picture->LoadFromFile("img/o.bmp");
- p5='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole5->Picture->LoadFromFile("img/x.bmp");
- p5='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole5->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole6Click(TObject *Sender)
- {
- if(p6=='n')
- {
- if kto=='o')
- {
- pole6->Picture->LoadFromFile("img/o.bmp");
- p6='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole6->Picture->LoadFromFile("img/x.bmp");
- p6='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole6->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole7Click(TObject *Sender)
- {
- if(p7=='n')
- {
- if kto=='o')
- {
- pole7->Picture->LoadFromFile("img/o.bmp");
- p7='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole7->Picture->LoadFromFile("img/x.bmp");
- p7='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole7->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole8Click(TObject *Sender)
- {
- if(p8=='n')
- {
- if kto=='o')
- {
- pole8->Picture->LoadFromFile("img/o.bmp");
- p8='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole8->Picture->LoadFromFile("img/x.bmp");
- p8='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole8->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::pole9Click(TObject *Sender)
- {
- if(p9=='n')
- {
- if kto=='o')
- {
- pole9->Picture->LoadFromFile("img/o.bmp");
- p9='o';
- kto='x';
- tura ->Picture->LoadFromFile("img/xsmall.bmp");
- }
- else
- {
- pole9->Picture->LoadFromFile("img/x.bmp");
- p9='x';
- kto='o';
- tura ->Picture->LoadFromFile("img/osmall.bmp");
- }
- pole9->Enabled=false;
- sprawdz();
- }
- }
- //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement