Chciałby ktoś przetestować moje programy exe (napisane w c++)? [ankieta]

Question

Chciałby ktoś przetestować moje programy exe (napisane w c++)? Wskazać błędy i ocenić je.

strona www: https://filszu.000webhostapp.com/

:)

który projekt najlepszy?

Możliwe odpowiedzi:

tic tac toe (1 głos, 100%)

haslo (0 głosów)

przeglądarka (0 głosów)

minurnik (0 głosów)

Comments

exe nie, kod tak

---

to dam jutro

---

@DragonCoder,

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"

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


char p1,p2,p3,p4,p5,p6,p7,p8,p9;//pola w grze  (ich zawartosc: p1='n'; nic lub 'x' lub 'o')
char kto;
int punktyX=0;
int punktyO=0;
String pktOO=0;
String pktX=0;

//-------------POCZĄTEK GRY WYWOŁANA FUNKCJA
void start()
{
    Form1->pole1->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole2->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole3->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole4->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole5->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole6->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole7->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole8->Picture->LoadFromFile("tic/puste.jpg");
    Form1->pole9->Picture->LoadFromFile("tic/puste.jpg");
    Form1->tura->Picture->LoadFromFile("tic/mO.jpg");

    p1='n';   p4='n';  p7='n';
    p2='n';   p5='n';  p8='n';
    p3='n';   p6='n';  p9='n';



   Form1->pole1->Enabled= true;
    Form1->pole2->Enabled= true;
    Form1->pole3->Enabled= true;
    Form1->pole4->Enabled= true;
    Form1->pole5->Enabled= true;
    Form1->pole6->Enabled= true;
    Form1->pole7->Enabled= true;
    Form1->pole8->Enabled= true;
    Form1->pole9->Enabled= true;
}
//--------------------


  void sprawdz()//procedura sprawdz
{

   if((p1==p2 && p2==p3 && p1!='n')||  // POZIOMO pole 1=2... p1 jest różne od n lub(||)
      (p4==p5 && p5==p6 && p4!='n')||
      (p7==p8 && p8==p9 && p7!='n')||
   //PIONOWO
      (p1==p4 && p4==p7 && p7!='n')||
      (p2==p5 && p5==p8 && p2!='n')||
      (p3==p6 && p6==p9 && p3!='n')||
   //Na ukos
      (p1==p5 && p5==p9 && p1!='n')||
      (p3==p5 && p5==p7 && p3!='n'))

   {

   char* w;

    if(kto=='x')
   { w="Wygrywa kółko!" ;
   punktyO++;

   }

    else
    {w="Wygrywa krzyżyk!";
    punktyX++;

    }
      pktOO=punktyO;
      pktX=punktyX;


	  //CurrToStr (punktyX) ;
	  Form1->pX->Caption = "Punkty X: " + pktX;
	  Form1->pO->Caption = "Punkty O: " + pktOO;
//-----------------------------------------------------
  //punktyX = Edit1->Text.ToInt();
  //Form1->pX->Caption = CurrToStr (punktyX);

//wpis = Edit1->Text.ToInt();
//otrzymane->Caption = CurrToStr (wpis);





    Application->MessageBox (w, "Koniec gry", MB_OK); //komunikat
    start();
   }
}


//------------------------START APLIKACJI---------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
kto='o'; //tura gracza o
 start();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::pole1Click(TObject *Sender)
{
if (p1=='n')
{
if(kto=='o')
{
pole1->Picture->LoadFromFile("tic/O.jpg");
p1='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole1->Picture->LoadFromFile("tic/X.jpg");
p1='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole1->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole2Click(TObject *Sender)
{
if (p2=='n')
{
if(kto=='o')
{
pole2->Picture->LoadFromFile("tic/O.jpg");
p2='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole2->Picture->LoadFromFile("tic/X.jpg");
p2='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole2->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole3Click(TObject *Sender)
{
if (p3=='n')
{
if(kto=='o')
{
pole3->Picture->LoadFromFile("tic/O.jpg");
p3='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole3->Picture->LoadFromFile("tic/X.jpg");
p3='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole3->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole4Click(TObject *Sender)
{
if (p4=='n')
{
if(kto=='o')
{
pole4->Picture->LoadFromFile("tic/O.jpg");
p4='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole4->Picture->LoadFromFile("tic/X.jpg");
p4='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole4->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole5Click(TObject *Sender)
{
if (p5=='n')
{
if(kto=='o')
{
pole5->Picture->LoadFromFile("tic/O.jpg");
p5='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole5->Picture->LoadFromFile("tic/X.jpg");
p5='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole5->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole6Click(TObject *Sender)
{
if (p6=='n')
{
if(kto=='o')
{
pole6->Picture->LoadFromFile("tic/O.jpg");
p6='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole6->Picture->LoadFromFile("tic/X.jpg");
p6='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole6->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole7Click(TObject *Sender)
{
if (p7=='n')
{
if(kto=='o')
{
pole7->Picture->LoadFromFile("tic/O.jpg");
p7='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole7->Picture->LoadFromFile("tic/X.jpg");
p7='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole7->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole8Click(TObject *Sender)
{
if (p8=='n')
{
if(kto=='o')
{
pole8->Picture->LoadFromFile("tic/O.jpg");
p8='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole8->Picture->LoadFromFile("tic/X.jpg");
p8='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole8->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pole9Click(TObject *Sender)
{
if (p9=='n')
{
if(kto=='o')
{
pole9->Picture->LoadFromFile("tic/O.jpg");
p9='o';
kto='x';
tura->Picture->LoadFromFile("tic/mX.jpg");


}
else
{ pole9->Picture->LoadFromFile("tic/X.jpg");
p9='x';
kto='o';
tura->Picture->LoadFromFile("tic/mO.jpg");

}
pole9->Enabled=false;
sprawdz();
}
}
//---------------------------------------------------------------------------








void __fastcall TForm1::Graj1Click(TObject *Sender)
{

Form2->Visible=true;
  Form2-> Label1->Visible=false;
  Form2->Cursor=crHourGlass;
  Form2->load->Caption="Loading....";
  Sleep(300);
  Form2->load->Caption="Loading...";
  Sleep(300);
  Application->MessageBox ("Błąd!!! Brak połączenia z siecią","BŁĄD", MB_OK); //komunikat
  Form2->Cursor=crDefault;
  Form2-> Label1->Visible=true;
  //Form2->load->Caption="BŁĄD";
}
//---------------------------------------------------------------------------








void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    start();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::NowaGra1Click(TObject *Sender)
{
 start();
}
//---------------------------------------------------------------------------




void __fastcall TForm1::informacjeowersji1Click(TObject *Sender)
{
	Form3->Visible=true;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::wygld1Click(TObject *Sender)
{
Form4->Visible=true;
}
//---------------------------------------------------------------------------










void __fastcall TForm1::tutorial1Click(TObject *Sender)
{
 Form3->Visible=true;	
}
//---------------------------------------------------------------------------

void __fastcall TForm1::stronawww1Click(TObject *Sender)
{
	  ShellExecute( NULL, "open", "https://filszu.000webhostapp.com/", "", "", SW_SHOWNORMAL );
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Nowagra2Click(TObject *Sender)
{
	Application->MessageBox ("Chcesz zakończy bieżącą rozgrywkę i rozpoczą nową?", "INFO", MB_ICONASTERISK); //komunikat
	punktyX=0;
	punktyO=0;
	start();
	Form1->pX->Caption = "Punkty X: ";
	Form1->pO->Caption = "Punkty O: ";
}
//---------------------------------------------------------------------------

unit 1 np.