Delphi - 8. lekce
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Delphi - 8. lekceDelphi - 8. lekce

 

Delphi - 8. lekce

Google       Google       21. 6. 2005       16 885×

V předchozích lekcích jsme si již něco ukázali, i když toho máme ještě spoustu před sebou. Ukážeme si, co bychom již měli být schopni vytvořit. Vytvoříme spolu takovou jednoduchou hru, na které si zopakujeme naše znalosti a samozřejmě si je i rozšíříme.

Reklama
Reklama

Výsledek programu který spolu vytvoříme bude vypadat asi takto:



Půjde o to, že hráč bude pomocí kláves W, A, S, D ovládat tlačítko, na kterém je na obrázku <. Odteď tomuto tlačítku budu říkat žrout. Žroutem musíte vysbírat všechny bílé puntíky, ale aby to nebylo tak jednoduché, tak Vás honí tlačítko s nápisem ×. Nejlepší asi bude, když si to vyzkoušíte na vlastní "kůži": zracka.exe.


Formulář

Začneme tím, že umístíme všechny potřebné komponenty na formulář. Je úplně jedno, jak je umístíte. Použijte vlastní fantazii. Takže někam, nejlépe k sobě, dejte čtyři tlačítka pro pohyb (WASD). Poté další dvě, o kterých jsem už psal. Caption jim můžete nastavit tak, jak vidíte na obrázku. Ale o tom si ještě něco povíme. Ty bílé tečky nejsou nic jiného než RadioButtony = přepínací tlačítka. Najdete je pod záložkou Standart a takovouto ikonou:. Nasázejte jich tam kolik chcete ale zase to moc nepřežeňte. Teď to vypadá že je to všechno vše ale není tomu tak. Pak jsou na formuláři ještě dva Timery (časovače). To jsou komponenty, které nejsou vidět (jsou nevizuální). Povíme si o nich už za chvíli. Najdete je pod záložkou System a pod touto ikonkou: . To by už mělo být vše.


Pohyb

Snad to nejjednodušší na našem programu je pohyb žrouta. Bude ovládán, jak už jsem zmínil, pomocí tlačítek WASD. Kód tlačítka v události OnClick bude vypadat následovně:

procedure TForm1.horClick(Sender: TObject);
begin
 zrout.Top := zrout.Top - 5;
end;

Jak vidíte, je to velmi jednoduché. Vlastnost žrouta Top se zmenší o 5. Top udává polohu komponenty od horního okraje formuláře v pixelech. To znamená, že po kliknutí na tlačítko W se žrout posune o pět pixelů nahoru. Nemusí to být zrovna pět. Nastavte si to, jak Vám vyhovuje. Mě přišlo pět ideálních, protože pohyb poté není příliš pomalý ani trhaný. Tady pro úplnost uvádím ještě kód ostatních tlačítek, i když si myslím, že je to zbytečné:

procedure TForm1.dolClick(Sender: TObject);
begin
 zrout.Top := zrout.Top + 5;
end;

procedure TForm1.levClick(Sender: TObject); begin
 zrout.Left := zrout.Left - 5;
end;

procedure TForm1.pravClick(Sender: TObject);
begin
 zrout.Left := zrout.Left + 5;
end; 

Asi jste si všimli, že popisek tlačítek na obrázku je podtržený. To je proto, aby se dala označit klávesami. Je to vcelku uspokojující způsob ovládání žrouta klávesnicí. Uděláte to jednoduše tak, že ve vlastnosti Caption před písmenem které má být podtrženo napíšete &.
.

Co jsouVlastnosti, to předpokládám, že každý chápe. Jsou to prostě vlastnosti komponenty např.: velikost, popisek, zda-li je vidět, poloha atd. Uvedu zde seznam takových nejzákladnějších vlastností u komponenty button:

Caption  - Text na tlačítku (doporučuji tuhle vlastnost vyzkoušet i u jiných komponent jak se chovají).

Cursor - Jaký kurzor má myš po najetí na tlačítko.

Enabled - Pokud nastavíte na False, tak tlačítko zašedne a nejde s ním nic dělat (radši si to vyzkoušejte :).

Font - Úprava textu na tlačítku (Caption). Na normálním tlačítku nejde měnit barva to lze pouze u tlačítka s bitmapou.

Height - Výška komponenty v pixelech.

Hint - Popisek tlačítka, který se zobrazí pokud na něm déle necháte kurzor (funguje pouze pokud je vlastnost ShowHint nastavena na True).

Left - Vzdálenost v pixelech od levého okraje formuláře.

Name - Název komponenty.

Top - Vzdálenost v pixelech od horního okraje formuláře.

Visible - Pokud je tato vlastnost na False, komponenta zmizí.

Width - Šířka komponenty opět pixelech.


U Událostí to ale už může být o něco složitější. Události jsou různé podněty, které jsou posílány všelijakým komponentám a ty je potom zpracovávají. Např. kliknutí myší atp. Událostí může být i změna rozlišení. Váš počítač neustále zpracovává tisíce událostí. Proto využívá multitasking, jinak by každá událost zabrala v podstatě 100% využití procesoru. Zde jsou opět uvedeny takové základní události:

OnClick - Kliknutí myši.

OnMouseDown - Zmáčknutí tlačítka myši.

OnMouseUp - Uvolnění tlačítka myši.

OnMouseMove - Pokud kurzorem přejedete nad komponentou.

OnKeyDown - Zmáčknutí tlačítka. U tlačítka je to zmáčknutí mezerníku pokud je tlačítko označené.

OnKeyUp - Uvolnění tlačítka (mezerníku).

OnKeyPress - Potvrzení komponenty tlačítkem (mezera).


Timer

Na žroutovi jste si všimli (pokud máte stažený výše uvedený prográmek), že se text na něm mění. Mělo by to připomínat klapaní tlamou či tak něco. Doufám, že to alespoň z části splňuje účel. Toho jsem docílil pomocí komponenty Timer. Je to v celku jednoduchá komponenta a dosti užitečná. Má jen pár vlastností a jedinou událost:

Enable - Určuje jestli je Timer aktivní.

Interval - Interval v milisekundách, v kterém se má provádět událost OnTimer.

OnTimer - Událost, která se provede každých (Interval).


Pokud tedy chceme udělat jednoduché klapání, tak prvnímu časovači nastavíme interval přibližně na 100, Enabled necháme na True a do události OnTimer napíšeme nasledující kód:

if zrout.Caption = '-' then
  zrout.Caption := '<'
else
zrout.Caption :='-';

Doufám, že je na tom vše jasné. Pokud je na žroutovi napsáno "-" tak se na něj vypíše "<" a pokud ne, tak se na něj vypíše "-".


Pojídání

Nyní si ukážeme, jak udělat, aby žrout pojídal bílé puntíky. Jde o to, že jakmile se zjistí kolize daného RadioButtonu se žroutem, tak se vlastnost Visible toho daného RadioButtonu nastaví na False. Ten nejtěžší problém bude asi, jak zjistit tu kolizi. Na to ale naštěstí Windows pamatují a znají několik užitečných funkcí. Pokusím se Vám to co nejlépe vysvětlit. Tlačítko, v našem případě žrout, má jednu takovou vlastnost, která se nám teď bude hodit. Je to vlastnost BoundsRect. Tu ovšem v inspektoru objektů nenajdete. Je typu TRect. To je typ, který udává nějaký čtverec. Obsahuje šest proměnných a to:

Left(Integer) - Vzdálenost v pixelech od levého okraje formuláře k levé straně čtverce.

Top(Integer) - Vzdálenost v pixelech od horního okraje formuláře k horní straně čtverce.

Bottom(Integer) - Vzdálenost v pixelech od horního okraje formuláře k dolní straně čtverce.

Right(Integer) - Vzdálenost v pixelech od levého okraje formuláře k pravé straně čtverce.

TopLeft(TPoint) - Označuje levý horní roh čtverce.

BottomRight(TPoint) - Pravý dolní roh.


TPoint, jak už z názvu vyplývá, se používá pro označení nějakého bodu. Obsahuje další dvě proměnné, a to X a Y. Ty udávají souřadnice bodu. X je vzdálenost v pixelech od levého okraje formuláře a Y od horního okraje. Z toho vyplývá že:

Button.BoundsRect.Right = Button.Left + Button.Width

Button.BoundsRect.Bottom = Button.Top + Button.Height


RadioButtony nejsou moc velké, takže si vystačíme s tím že známe jenom jejich prostřední bod. Na to už žádná funkce není ,ale to bez obtíží zvládneme sami. Naleznutí tohoto bodu může vypadat takto:

var Bod: TPoint;
begin
 Bod.X := RadioButton.Left + (RadioButton.width div 2);
 Bod.Y := RadioButton.Top + (RadioButton.Height div 2);


Nyní, když známe polohu všeho co potřebujeme, ukážeme si funkci, která vyhodnocuje kolizi. Je to funkce PtInRect. Zjišťuje, zda-li je bod ve čtverci. Má dva parametry. Prvním je čtverec a druhým bod. Pokud se tento bod nachází v daném čtverci, funkce vrací True, jinak False. Obecně to tedy vypadá takto:

PtInRect(TRect,TPoint).

V našem případě by tedy celé vyhodnocení mohlo vypadat následovně:

var Bod: TPoint;
begin
 Bod.X := RadioButton1.Left + (RadioButton1.width div 2);
 Bod.Y := RadioButton1.Top + (RadioButton1.Height div 2);
  if PtInRect(zrout.BoundsRect,Bod) then
   RadioButton1.Visible := false;

Ale tak jednoduché to nebude, protože RadioButtonů je tam několik. Aby se nám s nimi dobře manipulovalo, uložíme si je všechny do pole. To je datový typ, který zatím neznáte a budeme ho podrobně probírat později. Pravděpodobně v příští lekci. Pole se deklaruje za klíčovým slovem type:

type
  pole = array[1..X] of TRadioButton;

Za X dosaďte takový počet RadioButtonů, jaký jste použili. Já tam mám číslo 13. Teď pod klíčovým slovem var nadeklarujeme proměnnou typu pole. Já jsem jí dal jméno jidlo:

var
  jidlo: pole;

Do pole jidlo teď musíme přiřadit všechny RadioButtony. To uděláme v události formuláře OnCreate.:

procedure TForm1.FormCreate(Sender: TObject);
begin
  jidlo[1] := RadioButton1;
  jidlo[2] := RadioButton2;
  jidlo[3] := RadioButton3;
  jidlo[4] := RadioButton4;
  jidlo[5] := RadioButton5;
  jidlo[6] := RadioButton6;
  jidlo[7] := RadioButton7;
  jidlo[8] := RadioButton8;
  jidlo[9] := RadioButton9;
  jidlo[10] := RadioButton10;
  jidlo[11] := RadioButton11;
  jidlo[12] := RadioButton12;
  jidlo[13] := RadioButton13;
end;

To je mých třináct, ale pokud jich tam máte víc nebo míň, přiřaďte jen potřebný počet. Teď, když jsme vše přiřadili do pole, si můžeme ukázat, jak bude vypadat vyhodnocování kolize. Protože ještě nevíte, jak se manipuluje s polem, asi to budete muset opsat :( Následující kód napište do procedury, kterou si sami vytvoříte. Já jsem si ji pojmenoval žraní:

procedure TForm1.zrani;
var bod: Tpoint; i: integer; vysbiral: boolean; //proměnná vysbiral ukazuje jestli zbívají ještě nějaké bílé puntíky nebo už jsou všechny vyzbírané
begin
  vysbiral := True; //zde je nutné nastavit na True aby vše správně fugovalo
  for i := 1 to 13 do //cyklus s pevným počtem opakování nastavený na 13.. zase si upravte podle toho kolik máte puntíků;)
    begin
      Bod.X := jidlo[i].Left + (jidlo[i].width div 2); //to Vám jistě něco připomíná:)
      Bod.Y := jidlo[i].Top + (jidlo[i].Height div 2); //to Vám jistě něco připomíná:)

 

      if PtInRect(zrout.BoundsRect,bod) then  //tohle jsme taky už probrali
        jidlo[i].Visible := false;

 

      if jidlo[i].Visible = True then   //tady je vyhodnocení, jestli jsou všechny RadioButtony vysbírané. Pokud je nějaký viditelný tak vysbiral := False
        vysbiral := False;
    end;

 

  if vysbiral = True then   //Pokud tedy není ani jeden viditelný tak se program zavře
Close(); // funkce Close() ukončí celou aplikaci...

 

end;

Teď už jenom stačí tuto proceduru vyvolat pokaždé, když se žrout pohne.


Úkol

Jistě jste si všimli, že v programu, který jste si stáhli, je toho mnohem víc než jsme teď probrali. To je proto, že zbytek je úkol. Takže si to shrneme:

×Přepsat to, co je v lekci.

×Dodělat co chybí - klapání ve všech směrech

                             - Tlačítko které Vás honí (Ano i tohle je už A.I., i když hodně primitivní).

*Teď si prosím přečtěte text dole u hvězdiček!!

                             - Doladit program. Můžete mu udělat menu. Přidat nějaké funkce. Když vysbíráte všechny puntíky, tak se program jenom suše vypne. Lepší by bylo kdyby nám třeba pogratuloval. Zkrátka zapojte fantazii ;)

 

****Vyhodnocení kam půjde tlačítko, které Vás honí napište do události OnTimer v druhém časovači. Interval bude určovat rychlost pohybu. Pro vyhodnocení kolize použijte funkci IntersectRect(). Má tři parametry, druhý a třetí jsou čtverce, ve kterých se má vyhodnotit kolize a první parametr udává čtverec, který vyjde z kolize.

Bude to vypadat asi takto:

IntersectRect(nic, zrout.BoundsRect, AI.BoundsRect)

Pokud nastala kolize, funkce vrací True jinak False.











×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Tagy:
Hlasování bylo ukončeno    
0 hlasů
Google
Autor programuje v Delphi.

Nové články

Obrázek ke článku Hackerský kongres přiveze v září do Prahy špičky světové kryptoanarchie

Hackerský kongres přiveze v září do Prahy špičky světové kryptoanarchie

Hackerský kongres HCPP16 pořádá od 30. září do 2. října nezisková organizace Paralelní Polis již potřetí, a to ve stejnojmenném bitcoinovém prostoru v pražských Holešovicích. Letos přiveze na třídenní konferenci přes 40 většinou zahraničních speakerů – lídrů z oblastí technologií, decentralizované ekonomiky, politických umění a aktivismu. Náměty jejich přednášek budou také hacking, kryptoměny, věda, svoboda nebo kryptoanarchie.

Reklama
Reklama
Obrázek ke článku ICT PRO školení zaměřené nejenom na ICT

ICT PRO školení zaměřené nejenom na ICT

Dovolte, abychom se představili. Jsme zaměstnanci společnosti ICT Pro, profesionálové v oblasti poskytování komplexních ICT služeb. Neboli služeb spojených s informačními a komunikačními technologiemi, které dnes - ve 21. století - tvoří  nedílnou součást běžného provozu všech moderních firem.

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý