|
|
|
| Navrhnite projekt -- hru Video Stop. Na obrazovke sa nachádzajú 3 hracie kocky. Kocky sa točia -- postupne sa na nich mení počet bodiek. Úlohou hráča je zastaviť kocky stlačením napr. ľavého tlačidla myši tak, aby aspoň na 2 z nich bol rovnaký počet bodiek. |  |
| type
TKocka = class X, Y: integer; // suradnice hodnota: integer; f: TColor; constructor Create(nx,ny,nhod:integer; nF:TColor); procedure Kresli; procedure DalsieCislo; end; |
a jej 3 inštancie.
V metóde Kresli nakreslite kocku ako štvorec veľkosti
105 bodiek na súradniciach X, Y. Bodky v nej rozmiestnite nasledujúcim
spôsobom:
| g.Ellipse(x+45,y+40,x+60,y+55); // stredna
g.Ellipse(x+75,y+10,x+90,y+25); // prava horna g.Ellipse(x+15,y+70,x+30,y+85); // lava dolna g.Ellipse(x+75,y+70,x+90,y+85); // prava dolna g.Ellipse(x+15,y+10,x+30,y+25); // lava horna g.Ellipse(x+15,y+40,x+30,y+55); // lava stredna g.Ellipse(x+75,y+40,x+90,y+55); // prava stredna |
|