Advertisement
Guest User

Untitled

a guest
Nov 13th, 2019
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.29 KB | None | 0 0
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11.  
  12. char p1,p2,p3,p4,p5,p6,p7,p8,p9;
  13. //p1..p9 pola w grze (zawartosc: p1='n'; nic lub 'x' lub 'o')
  14. char kto;
  15.  
  16. void sprawdz()
  17. {
  18. if((p1==p2 && p2==p3 && p1=!'n') ||
  19. (p4==p5 && p5==p6 && p4=!'n') ||
  20. (p7==p8 && p8==p9 && p7=!'n') ||
  21. (p1==p2 && p2==p3 && p1=!'n') ||
  22. (p1==p4 && p4==p7 && p7=!'n') ||
  23. (p2==p5 && p5==p8 && p2=!'n') ||
  24. (p3==p6 && p6==p9 && p3=!'n') ||
  25. (p1==p5 && p5==p9 && p1=!'n') ||
  26. (p3==p5 && p5==p7 && p3=!'n'))
  27.  
  28. {
  29. char * w;
  30.  
  31. if(kto=='x') w=="wygrywa kółko!";
  32. else w=="Wygrywa krzyżyk"!;
  33.  
  34. Application->MassageBox(w, "Koniec Gry," MB_OK);
  35. }
  36. }
  37.  
  38.  
  39. //---------------------------------------------------------------------------
  40. __fastcall TForm1::TForm1(TComponent* Owner)
  41. : TForm(Owner)
  42. {
  43. }
  44. //---------------------------------------------------------------------------
  45.  
  46. void __fastcall TForm1::FormCreate(TObject *Sender)
  47. {
  48. pole1->Picture->LoadFromFile("img/nic.bmp");
  49. pole2->Picture->LoadFromFile("img/nic.bmp");
  50. pole3->Picture->LoadFromFile("img/nic.bmp");
  51. pole4->Picture->LoadFromFile("img/nic.bmp");
  52. pole5->Picture->LoadFromFile("img/nic.bmp");
  53. pole6->Picture->LoadFromFile("img/nic.bmp");
  54. pole7->Picture->LoadFromFile("img/nic.bmp");
  55. pole8->Picture->LoadFromFile("img/nic.bmp");
  56. pole9->Picture->LoadFromFile("img/nic.bmp");
  57. tura->Picture->LoadFromFile("img/osmall.bmp");
  58.  
  59. p1='n'; p4='n'; p7='n';
  60. p2='n'; p5='n'; p8='n';
  61. p3='n'; p6='n'; p9='n';
  62.  
  63. kto='o';
  64.  
  65. pole1->Enabled = true;
  66. pole2->Enabled = true;
  67. pole3->Enabled = true;
  68. pole4->Enabled = true;
  69. pole5->Enabled = true;
  70. pole6->Enabled = true;
  71. pole7->Enabled = true;
  72. pole8->Enabled = true;
  73. pole9->Enabled = true;
  74.  
  75.  
  76. }
  77. //---------------------------------------------------------------------------
  78.  
  79. void __fastcall TForm1::pole1Click(TObject *Sender)
  80. {
  81.  
  82. if(p1=='n')
  83. {
  84.  
  85. if kto=='o')
  86. {
  87.  
  88. pole1->Picture->LoadFromFile("img/o.bmp");
  89. p1='o';
  90. kto='x';
  91. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  92.  
  93. }
  94. else
  95. {
  96. pole1->Picture->LoadFromFile("img/x.bmp");
  97. p1='x';
  98. kto='o';
  99. tura ->Picture->LoadFromFile("img/osmall.bmp");
  100.  
  101. }
  102. pole1->Enabled=false;
  103. sprawdz();
  104. }
  105.  
  106. }
  107. //---------------------------------------------------------------------------
  108. void __fastcall TForm1::pole2Click(TObject *Sender)
  109. {
  110.  
  111. if(p2=='n')
  112. {
  113.  
  114. if kto=='o')
  115. {
  116.  
  117. pole2->Picture->LoadFromFile("img/o.bmp");
  118. p2='o';
  119. kto='x';
  120. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  121.  
  122. }
  123. else
  124. {
  125. pole2->Picture->LoadFromFile("img/x.bmp");
  126. p2='x';
  127. kto='o';
  128. tura ->Picture->LoadFromFile("img/osmall.bmp");
  129.  
  130. }
  131. pole2->Enabled=false;
  132. sprawdz();
  133. }
  134.  
  135. }
  136. //---------------------------------------------------------------------------
  137. void __fastcall TForm1::pole3Click(TObject *Sender)
  138. {
  139.  
  140. if(p3=='n')
  141. {
  142.  
  143. if kto=='o')
  144. {
  145.  
  146. pole3->Picture->LoadFromFile("img/o.bmp");
  147. p3='o';
  148. kto='x';
  149. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  150.  
  151. }
  152. else
  153. {
  154. pole3->Picture->LoadFromFile("img/x.bmp");
  155. p3='x';
  156. kto='o';
  157. tura ->Picture->LoadFromFile("img/osmall.bmp");
  158.  
  159. }
  160. pole3->Enabled=false;
  161. sprawdz();
  162. }
  163.  
  164. }
  165. //---------------------------------------------------------------------------
  166. void __fastcall TForm1::pole4Click(TObject *Sender)
  167. {
  168.  
  169. if(p4=='n')
  170. {
  171.  
  172. if kto=='o')
  173. {
  174.  
  175. pole4->Picture->LoadFromFile("img/o.bmp");
  176. p4='o';
  177. kto='x';
  178. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  179.  
  180. }
  181. else
  182. {
  183. pole4->Picture->LoadFromFile("img/x.bmp");
  184. p4='x';
  185. kto='o';
  186. tura ->Picture->LoadFromFile("img/osmall.bmp");
  187.  
  188. }
  189. pole4->Enabled=false;
  190. sprawdz();
  191. }
  192.  
  193. }
  194. //---------------------------------------------------------------------------
  195. void __fastcall TForm1::pole5Click(TObject *Sender)
  196. {
  197.  
  198. if(p5=='n')
  199. {
  200.  
  201. if kto=='o')
  202. {
  203.  
  204. pole5->Picture->LoadFromFile("img/o.bmp");
  205. p5='o';
  206. kto='x';
  207. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  208.  
  209. }
  210. else
  211. {
  212. pole5->Picture->LoadFromFile("img/x.bmp");
  213. p5='x';
  214. kto='o';
  215. tura ->Picture->LoadFromFile("img/osmall.bmp");
  216.  
  217. }
  218. pole5->Enabled=false;
  219. sprawdz();
  220. }
  221.  
  222. }
  223. //---------------------------------------------------------------------------
  224. void __fastcall TForm1::pole6Click(TObject *Sender)
  225. {
  226.  
  227. if(p6=='n')
  228. {
  229.  
  230. if kto=='o')
  231. {
  232.  
  233. pole6->Picture->LoadFromFile("img/o.bmp");
  234. p6='o';
  235. kto='x';
  236. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  237.  
  238. }
  239. else
  240. {
  241. pole6->Picture->LoadFromFile("img/x.bmp");
  242. p6='x';
  243. kto='o';
  244. tura ->Picture->LoadFromFile("img/osmall.bmp");
  245.  
  246. }
  247. pole6->Enabled=false;
  248. sprawdz();
  249. }
  250.  
  251. }
  252. //---------------------------------------------------------------------------
  253. void __fastcall TForm1::pole7Click(TObject *Sender)
  254. {
  255.  
  256. if(p7=='n')
  257. {
  258.  
  259. if kto=='o')
  260. {
  261.  
  262. pole7->Picture->LoadFromFile("img/o.bmp");
  263. p7='o';
  264. kto='x';
  265. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  266.  
  267. }
  268. else
  269. {
  270. pole7->Picture->LoadFromFile("img/x.bmp");
  271. p7='x';
  272. kto='o';
  273. tura ->Picture->LoadFromFile("img/osmall.bmp");
  274.  
  275. }
  276. pole7->Enabled=false;
  277. sprawdz();
  278. }
  279.  
  280. }
  281. //---------------------------------------------------------------------------
  282. void __fastcall TForm1::pole8Click(TObject *Sender)
  283. {
  284.  
  285. if(p8=='n')
  286. {
  287.  
  288. if kto=='o')
  289. {
  290.  
  291. pole8->Picture->LoadFromFile("img/o.bmp");
  292. p8='o';
  293. kto='x';
  294. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  295.  
  296. }
  297. else
  298. {
  299. pole8->Picture->LoadFromFile("img/x.bmp");
  300. p8='x';
  301. kto='o';
  302. tura ->Picture->LoadFromFile("img/osmall.bmp");
  303.  
  304. }
  305. pole8->Enabled=false;
  306. sprawdz();
  307. }
  308.  
  309. }
  310. //---------------------------------------------------------------------------
  311. void __fastcall TForm1::pole9Click(TObject *Sender)
  312. {
  313.  
  314. if(p9=='n')
  315. {
  316.  
  317. if kto=='o')
  318. {
  319.  
  320. pole9->Picture->LoadFromFile("img/o.bmp");
  321. p9='o';
  322. kto='x';
  323. tura ->Picture->LoadFromFile("img/xsmall.bmp");
  324.  
  325. }
  326. else
  327. {
  328. pole9->Picture->LoadFromFile("img/x.bmp");
  329. p9='x';
  330. kto='o';
  331. tura ->Picture->LoadFromFile("img/osmall.bmp");
  332.  
  333. }
  334. pole9->Enabled=false;
  335. sprawdz();
  336. }
  337.  
  338. }
  339. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement