Karty – vykládání karet

Vykládání karet je plně funkční. Je vytvořeno podle časopisu Vlasta a může být použito pro zábavu. Ovládání hry je intuitivní. Napřed karty zamícháme, potom klikáním vybereme 7 karet a nakonec si vyžádáme výpis vyhodnocení.

Přesto, že je k dispozici volně přístupný kód, nedoporučuji jej příliš ke studiu – znovu bych to řešil jinak (chybami se člověk učí). Zajímavá je spíše příprava této aplikace. Byla vytvořena 2 textová. Pole s 32 prvky (kolik je karet), každý prvek obsahuje 2 znaky (první – označení karty, druhý – barva) a pole se 7 prvky (počet vykládanách karet). Každý člen pole reprezentuje objekt Image – obrázek. Obrázky i výkladové texty jsou uloženy na skrytém listě. Makro NaplnPole je jen pomocné a použije se jen jednou, ke skutečnému naplnění polí, později se používá jen k zobrazení rubu karet a míchání. Pro výběr karty je využita událost Sub Image1_MouseUp(), která volá podprogram VyberKarty s parametrem cislo (pořadové číslo karty) a ten zajistí její zobrazení na správném místě. Zajímavé je také skrývání panelů nástrojů, záhlaví řádků a sloupců listů, oušek listů … V průběhu řešení jsem narazil na neočekávaný problém. Při zobrazení karty se někdy měnila její velikost ??? Nepátral jsem příliš po příčině špatného chování Excelu, ale obešel jsem to tak, že po zobrazení karet jsem vždy znovu nastavil vlastnosti Width a Height v podprogramu ObnovitKarty.

Stažení souboru

Zpět na hlavní stránku