Zda uživatel vyhrál – provizorní kritéria

Kritéria, která určí, zda uživatel vyhrál, stanovíme pochopitelně my. Přirozeně bychom měli ohlídat, abychom
nezkrachovali. Otázkou stanovení finanční výše výher vzhledem k vsazené částce se budeme zabývat
později. Teď si zvolíme nějaké velmi jednoduché kritérium, abychom mohli prototyp aplikace rychle otestovat.
Jakmile máme vygenerovaná čísla, můžete do událostní procedury Click tlačítka s nápisem Roztočit přidat
kód, který zjistí, zda uživatel vyhrál (například první číslo je 1 nebo je druhé 2 nebo je třetí 3). Jestliže
vyhrál, zobrazíme obrázek a pípneme. Náš test může proto vypadat takto:
If lblCislo1.Text = "1" Or _
lblCislo2.Text = "2" Or _
lblCislo3.Text = "3" Then
picVýhra.Visible = True
End If
Také pro tuto úlohu se nabízí zpracování v nějakém cyklu. Rozbor některých postupů pro zpracování
množiny ovládacích prvků v cyklu viz oddíl „Procházení podmnožiny ovládacích prvků na formuláři“.
Jak už jsem se zmínil, když začnete ve Visual Basicu pást nějaký kód, editor kódu při tom asistuje
a nabízí různé pomůcky (jednu z nich jste viděli už výše v souvislosti s příkazem Option Strict v oddílu
„Vylosování čísel“.
Další šikovnou pomůckou – zvláště když chcete nahradit jednu variantu kódu jinou, ale nejste si jisti, zda
se nebudete později chtít vrátit k té původní – jsou tlačítka Comment Block a Uncomment Block na panelu nástrojů
Edit. Umožňují pohodlně převádět vybrané řádky kódu na komentář, resp. komentáře zase zpětně převádět
na kód (při jednom klepnutí se přidá, resp. odstraní ve vybraných řádcích jeden uvozující apostrof).
Jakmile napíšete název objektu a tečku, rozvine editor kódu (za předpokladu, že jste pomůcky nevypnuli)
seznam vlastností a metod tohoto objektu (viz okénko nad kódem na levé straně obrázku na příští straně).
Vpravo dole připomínám na obrázku opět situaci, kdy si už nemůžete dovolit implicitní konverzi (číslici musíte
zapsat jako řetězec, abyste sjednotili datové typy levé a pravé strany).