Mam taki problem a mianowicie pętle mi nie działają. Nie wiem czemu ale program je ignoruje jakby ich niebyło niewiem czemu.
#include <vcl.h>
#include <time.h>
#include <windows.h>
#include <cstdlib>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x=312,y=416;
int punkty=100;
int f=0,w;
char p[9];//pola planszy;
void wypro ()
{
if(p[0]=='+')
{
Form1->Pole1 ->Picture->LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->Pole1 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[1]=='+')
{
Form1->pole2 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole2 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[2]=='+')
{
Form1->pole3 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole3 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[3]=='+')
{
Form1->pole4->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole4 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[4]=='+')
{
Form1->pole5 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole5 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[5]=='+')
{
Form1->pole6 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole6 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[6]=='+')
{
Form1->pole7 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole7 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[7]=='+')
{
Form1->pole8 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole8 ->Picture->LoadFromFile("imag/GreA.jpg");
}
if(p[8]=='+')
{
Form1->pole9 ->Picture-> LoadFromFile("imag/RedA.jpg");
}
else
{
Form1->pole9 ->Picture->LoadFromFile("imag/GreA.jpg");
}
}
void sp ()
{
if(f==1)
{
Application->MessageBoxA("Game Over","Game state",MB_OK | MB_ICONWARNING);
}
}
void los ()
{
srand(time(NULL));
w=rand()%8+1;
w-1;
p[w]='+';
}
void __fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::Start(TObject *Sender)
{
Pole1-> Picture -> LoadFromFile("imag/Puste.jpg");
Pole1-> Enabled=false;
pole2-> Picture -> LoadFromFile("imag/Puste.jpg");
pole2-> Enabled=false;
pole3-> Picture -> LoadFromFile("imag/Puste.jpg");
pole3-> Enabled=false;
pole4-> Picture -> LoadFromFile("imag/Puste.jpg");
pole4-> Enabled=false;
pole5-> Picture -> LoadFromFile("imag/Puste.jpg");
pole5-> Enabled=false;
pole6-> Picture -> LoadFromFile("imag/Puste.jpg");
pole6-> Enabled=false;
pole7-> Picture -> LoadFromFile("imag/Puste.jpg");
pole7-> Enabled=false;
pole8-> Picture -> LoadFromFile("imag/Puste.jpg");
pole8-> Enabled=false;
pole9-> Picture -> LoadFromFile("imag/Puste.jpg");
pole9-> Enabled=false;
Pod->Picture->LoadFromFile("imag/Bug.jpg");
Pod->Enabled=false;
}
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
Application->Terminate();
}
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form2->Visible=true;
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
BitBtn1->Visible=false;
BitBtn2->Visible=false;
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;
do
{
los();
wypro();
Sleep(2000);
for(int i=0;i==8;i++)
{
p[i]='-';
}
}while(f==1);
}
void __fastcall TForm1::Pole1Click(TObject *Sender)
{
if(p[0]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
sp ();
}
void __fastcall TForm1::pole2Click(TObject *Sender)
{
if(p[1]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole3Click(TObject *Sender)
{
if(p[2]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole4Click(TObject *Sender)
{
if(p[3]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole5Click(TObject *Sender)
{
if(p[4]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole6Click(TObject *Sender)
{
if(p[5]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole7Click(TObject *Sender)
{
if(p[6]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole8Click(TObject *Sender)
{
if(p[7]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}
void __fastcall TForm1::pole9Click(TObject *Sender)
{
if(p[8]=='+')
{
punkty+100;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Sleep(1200);
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
else
{
f=1;
Form1->Pod->Left=208;
Form1->Pod->Top=72;
Form1->Pod->Left=x;
Form1->Pod->Top=y;
}
}