API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 24th, 2018
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.86 KB | None | 0 0
raw download clone embed print report
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5. #include "windows.h"
  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; // pola w grze (p='n' nic,'x','o'
  13. char czyja; // czyja runda jest aktualnie
  14. // x-gracz o-komputer
  15.  
  16.  
  17. void sprawdz()
  18. {
  19. if((p1 == p2) && (p2 == p3) && (p1 != 'n') || // p1 != 'n' ze wzgledu ze jak beda 3 pola puste to tez warunek zajdzie
  20. (p4 == p5) && (p5 == p6) && (p4 != 'n') ||
  21. (p7 == p8) && (p8 == p9) && (p7 != 'n') ||
  22. (p1 == p4) && (p4 == p7) && (p1 != '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. char *wygr;
  29.  
  30. if(czyja=='x') wygr="Wygrywa kółko!";
  31. else wygr="Wygrywa krzyżyk!";
  32. Application->MessageBox(wygr, "Koniec Gry!", MB_OK);
  33. Form1->FormCreate(Form1);
  34. }
  35. else if(p1 != 'n' && p2 != 'n' && p3 != 'n' &&
  36. p4 != 'n' && p5 != 'n' && p6 != 'n' &&
  37. p7 != 'n' && p8 != 'n' && p9 != 'n' )
  38. {
  39. Application->MessageBox("Remis!", "Koniec Gry!", MB_OK);
  40. Form1->FormCreate(Form1);
  41. }
  42.  
  43.  
  44. }
  45. //--------------------------------------------------------------------------
  46. void sleep()
  47. {
  48. Application->ProcessMessages(); Sleep(1500); //opoznienie "myslenie" komputera
  49. }
  50.  
  51. //---------------------------------------------------------------------------
  52. __fastcall TForm1::TForm1(TComponent* Owner)
  53. : TForm(Owner)
  54. {
  55. }
  56. //---------------------------------------------------------------------------
  57.  
  58.  
  59.  
  60. void __fastcall TForm1::FormCreate(TObject *Sender)
  61. {
  62. Color = clWhite;
  63. pole1->Picture->LoadFromFile("img/nic.bmp"); //zaladowac grafike, pusta plansza
  64. pole2->Picture->LoadFromFile("img/nic.bmp");
  65. pole3->Picture->LoadFromFile("img/nic.bmp");
  66. pole4->Picture->LoadFromFile("img/nic.bmp");
  67. pole5->Picture->LoadFromFile("img/nic.bmp");
  68. pole6->Picture->LoadFromFile("img/nic.bmp");
  69. pole7->Picture->LoadFromFile("img/nic.bmp");
  70. pole8->Picture->LoadFromFile("img/nic.bmp");
  71. pole9->Picture->LoadFromFile("img/nic.bmp");
  72. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  73.  
  74. p1 = 'n'; p2 = 'n'; p3 = 'n'; //przypisanie wszystkim polom oznaczenia ze sa puste
  75. p4 = 'n'; p5 = 'n'; p6 = 'n';
  76. p7 = 'n'; p8 = 'n'; p9 = 'n';
  77.  
  78. czyja = 'x';
  79.  
  80. pole1->Enabled = true; // najechanie kursorem na pole i pokazanie ze mozna go wcisnac
  81. pole2->Enabled = true;
  82. pole3->Enabled = true;
  83. pole4->Enabled = true;
  84. pole5->Enabled = true;
  85. pole6->Enabled = true;
  86. pole7->Enabled = true;
  87. pole8->Enabled = true;
  88. pole9->Enabled = true;
  89. }
  90. //---------------------------------------------------------------------------
  91.  
  92.  
  93. void __fastcall TForm1::pole1Click(TObject *Sender)
  94. {
  95. if(p1=='n')
  96. {
  97. if(czyja=='x')
  98. {
  99. pole1->Picture->LoadFromFile("img/x.bmp");
  100. p1='x';
  101. czyja='o';
  102. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  103. sleep();
  104. if(p5=='n')
  105. {
  106. p5='o';
  107. pole5->Picture->LoadFromFile("img/o.bmp");
  108. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  109. pole5->Enabled=false;
  110. czyja='x';
  111. }
  112. else if(p3=='n')
  113. {
  114. p3='o';
  115. pole3->Picture->LoadFromFile("img/o.bmp");
  116. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  117. pole3->Enabled=false;
  118. czyja='x';
  119. }
  120. else if(p7=='n')
  121. {
  122. p7='o';
  123. pole7->Picture->LoadFromFile("img/o.bmp");
  124. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  125. pole7->Enabled=false;
  126. czyja='x';
  127. }
  128. else if(p9=='n')
  129. {
  130. p9='o';
  131. pole9->Picture->LoadFromFile("img/o.bmp");
  132. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  133. pole9->Enabled=false;
  134. czyja='x';
  135. }
  136. }
  137. pole1->Enabled=false;
  138. sprawdz();
  139. }
  140. }
  141. //---------------------------------------------------------------------------
  142.  
  143. void __fastcall TForm1::pole2Click(TObject *Sender)
  144. {
  145. if(p2=='n')
  146. {
  147. if(czyja=='x')
  148. {
  149. pole2->Picture->LoadFromFile("img/x.bmp");
  150. p2='x';
  151. czyja='o';
  152. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  153. sleep();
  154. if(p1=='n')
  155. {
  156. p1='o';
  157. pole1->Picture->LoadFromFile("img/o.bmp");
  158. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  159. pole1->Enabled=false;
  160. czyja='x';
  161. }
  162. else if(p3=='n')
  163. {
  164. p3='o';
  165. pole3->Picture->LoadFromFile("img/o.bmp");
  166. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  167. pole3->Enabled=false;
  168. czyja='x';
  169. }
  170. else if(p8=='n')
  171. {
  172. p8='o';
  173. pole8->Picture->LoadFromFile("img/o.bmp");
  174. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  175. pole8->Enabled=false;
  176. czyja='x';
  177. }
  178. else if(p7=='n')
  179. {
  180. p7='o';
  181. pole7->Picture->LoadFromFile("img/o.bmp");
  182. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  183. pole7->Enabled=false;
  184. czyja='x';
  185. }
  186. }
  187. pole2->Enabled=false;
  188. sprawdz();
  189. }
  190. }
  191. //---------------------------------------------------------------------------
  192.  
  193. void __fastcall TForm1::pole3Click(TObject *Sender)
  194. {
  195. if(p3=='n')
  196. {
  197. if(czyja=='x')
  198. {
  199. pole3->Picture->LoadFromFile("img/x.bmp");
  200. p3='x';
  201. czyja='o';
  202. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  203. sleep();
  204. if(p5=='n')
  205. {
  206. p5='o';
  207. pole1->Picture->LoadFromFile("img/o.bmp");
  208. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  209. pole5->Enabled=false;
  210. czyja='x';
  211. }
  212. else if(p1=='n')
  213. {
  214. p1='o';
  215. pole1->Picture->LoadFromFile("img/o.bmp");
  216. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  217. pole1->Enabled=false;
  218. czyja='x';
  219. }
  220. else if(p6=='n')
  221. {
  222. p6='o';
  223. pole6->Picture->LoadFromFile("img/o.bmp");
  224. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  225. pole6->Enabled=false;
  226. czyja='x';
  227. }
  228. else if(p7=='n')
  229. {
  230. p7='o';
  231. pole7->Picture->LoadFromFile("img/o.bmp");
  232. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  233. pole7->Enabled=false;
  234. czyja='x';
  235. }
  236. }
  237. pole3->Enabled=false;
  238. sprawdz();
  239. }
  240. }
  241. //---------------------------------------------------------------------------
  242.  
  243. void __fastcall TForm1::pole4Click(TObject *Sender)
  244. {
  245. if(p4=='n')
  246. {
  247. if(czyja=='x')
  248. {
  249. pole4->Picture->LoadFromFile("img/x.bmp");
  250. p4='x';
  251. czyja='o';
  252. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  253. sleep();
  254. if(p5=='n')
  255. {
  256. p5='o';
  257. pole5->Picture->LoadFromFile("img/o.bmp");
  258. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  259. pole5->Enabled=false;
  260. czyja='x';
  261. }
  262. else if(p2=='n')
  263. {
  264. p2='o';
  265. pole2->Picture->LoadFromFile("img/o.bmp");
  266. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  267. pole2->Enabled=false;
  268. czyja='x';
  269. }
  270. else if(p8=='n')
  271. {
  272. p8='o';
  273. pole8->Picture->LoadFromFile("img/o.bmp");
  274. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  275. pole8->Enabled=false;
  276. czyja='x';
  277. }
  278. else if(p9=='n')
  279. {
  280. p9='o';
  281. pole9->Picture->LoadFromFile("img/o.bmp");
  282. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  283. pole9->Enabled=false;
  284. czyja='x';
  285. }
  286. }
  287. pole4->Enabled=false;
  288. sprawdz();
  289. }
  290. }
  291. //---------------------------------------------------------------------------
  292.  
  293. void __fastcall TForm1::pole5Click(TObject *Sender)
  294. {
  295. if(p5=='n')
  296. {
  297. if(czyja=='x')
  298. {
  299. pole5->Picture->LoadFromFile("img/x.bmp");
  300. p5='x';
  301. czyja='o';
  302. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  303. sleep();
  304. if(p1=='n')
  305. {
  306. p1='o';
  307. pole1->Picture->LoadFromFile("img/o.bmp");
  308. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  309. pole1->Enabled=false;
  310. czyja='x';
  311. }
  312. else if(p3=='n')
  313. {
  314. p3='o';
  315. pole3->Picture->LoadFromFile("img/o.bmp");
  316. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  317. pole3->Enabled=false;
  318. czyja='x';
  319. }
  320. else if(p7=='n')
  321. {
  322. p7='o';
  323. pole7->Picture->LoadFromFile("img/o.bmp");
  324. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  325. pole7->Enabled=false;
  326. czyja='x';
  327. }
  328. else if(p9=='n')
  329. {
  330. p9='o';
  331. pole9->Picture->LoadFromFile("img/o.bmp");
  332. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  333. pole9->Enabled=false;
  334. czyja='x';
  335. }
  336. }
  337. pole5->Enabled=false;
  338. sprawdz();
  339. }
  340. }
  341. //---------------------------------------------------------------------------
  342.  
  343. void __fastcall TForm1::pole6Click(TObject *Sender)
  344. {
  345. if(p6=='n')
  346. {
  347. if(czyja=='x')
  348. {
  349. pole6->Picture->LoadFromFile("img/x.bmp");
  350. p6='x';
  351. czyja='o';
  352. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  353. sleep();
  354. if(p3=='n')
  355. {
  356. p3='o';
  357. pole3->Picture->LoadFromFile("img/o.bmp");
  358. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  359. pole3->Enabled=false;
  360. czyja='x';
  361. }
  362. else if(p8=='n')
  363. {
  364. p8='o';
  365. pole8->Picture->LoadFromFile("img/o.bmp");
  366. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  367. pole8->Enabled=false;
  368. czyja='x';
  369. }
  370. else if(p4=='n')
  371. {
  372. p4='o';
  373. pole4->Picture->LoadFromFile("img/o.bmp");
  374. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  375. pole4->Enabled=false;
  376. czyja='x';
  377. }
  378. else if(p2=='n')
  379. {
  380. p2='o';
  381. pole2->Picture->LoadFromFile("img/o.bmp");
  382. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  383. pole2->Enabled=false;
  384. czyja='x';
  385. }
  386. }
  387. pole6->Enabled=false;
  388. sprawdz();
  389. }
  390. }
  391. //---------------------------------------------------------------------------
  392.  
  393. void __fastcall TForm1::pole7Click(TObject *Sender)
  394. {
  395. if(p7=='n')
  396. {
  397. if(czyja=='x')
  398. {
  399. pole7->Picture->LoadFromFile("img/x.bmp");
  400. p7='x';
  401. czyja='o';
  402. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  403. sleep();
  404. if(p5=='n')
  405. {
  406. p5='o';
  407. pole5->Picture->LoadFromFile("img/o.bmp");
  408. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  409. pole5->Enabled=false;
  410. czyja='x';
  411. }
  412. else if(p4=='n')
  413. {
  414. p4='o';
  415. pole4->Picture->LoadFromFile("img/o.bmp");
  416. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  417. pole4->Enabled=false;
  418. czyja='x';
  419. }
  420. else if(p8=='n')
  421. {
  422. p8='o';
  423. pole8->Picture->LoadFromFile("img/o.bmp");
  424. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  425. pole8->Enabled=false;
  426. czyja='x';
  427. }
  428. else if(p3=='n')
  429. {
  430. p3='o';
  431. pole3->Picture->LoadFromFile("img/o.bmp");
  432. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  433. pole3->Enabled=false;
  434. czyja='x';
  435. }
  436. }
  437. pole7->Enabled=false;
  438. sprawdz();
  439. }
  440. }
  441. //---------------------------------------------------------------------------
  442.  
  443. void __fastcall TForm1::pole8Click(TObject *Sender)
  444. {
  445. if(p8=='n')
  446. {
  447. if(czyja=='x')
  448. {
  449. pole8->Picture->LoadFromFile("img/x.bmp");
  450. p8='x';
  451. czyja='o';
  452. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  453. sleep();
  454. if(p5=='n')
  455. {
  456. p5='o';
  457. pole5->Picture->LoadFromFile("img/o.bmp");
  458. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  459. pole5->Enabled=false;
  460. czyja='x';
  461. }
  462. else if(p9=='n')
  463. {
  464. p9='o';
  465. pole9->Picture->LoadFromFile("img/o.bmp");
  466. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  467. pole9->Enabled=false;
  468. czyja='x';
  469. }
  470. else if(p7=='n')
  471. {
  472. p7='o';
  473. pole7->Picture->LoadFromFile("img/o.bmp");
  474. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  475. pole7->Enabled=false;
  476. czyja='x';
  477. }
  478. else if(p6=='n')
  479. {
  480. p6='o';
  481. pole6->Picture->LoadFromFile("img/o.bmp");
  482. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  483. pole6->Enabled=false;
  484. czyja='x';
  485. }
  486. }
  487. pole8->Enabled=false;
  488. sprawdz();
  489. }
  490. }
  491. //---------------------------------------------------------------------------
  492.  
  493. void __fastcall TForm1::pole9Click(TObject *Sender)
  494. {
  495. if(p9=='n')
  496. {
  497. if(czyja=='x')
  498. {
  499. pole9->Picture->LoadFromFile("img/x.bmp");
  500. p9='x';
  501. czyja='o';
  502. Obraz->Picture->LoadFromFile("img/komputer.jpg");
  503. sleep();
  504. if(p5=='n')
  505. {
  506. p5='o';
  507. pole5->Picture->LoadFromFile("img/o.bmp");
  508. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  509. pole5->Enabled=false;
  510. czyja='x';
  511. }
  512. else if(p3=='n')
  513. {
  514. p3='o';
  515. pole3->Picture->LoadFromFile("img/o.bmp");
  516. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  517. pole3->Enabled=false;
  518. czyja='x';
  519. }
  520. else if(p7=='n')
  521. {
  522. p7='o';
  523. pole7->Picture->LoadFromFile("img/o.bmp");
  524. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  525. pole7->Enabled=false;
  526. czyja='x';
  527. }
  528. else if(p1=='n')
  529. {
  530. p1='o';
  531. pole1->Picture->LoadFromFile("img/o.bmp");
  532. Obraz->Picture->LoadFromFile("img/czlowiek.jpg");
  533. pole1->Enabled=false;
  534. czyja='x';
  535. }
  536. }
  537. pole9->Enabled=false;
  538. sprawdz();
  539. }
  540. }
  541. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!