Lekce 5 - Podmínky (větvení) ve VB.NET

V předešlém cvičení, Řešené úlohy k 4. lekci VB.NET, jsme si procvičili nabyté zkušenosti z předchozích lekcí.

Abychom si něco naprogramovali, potřebujeme nějak reagovat na různé situace. Může to být například hodnota zadaná uživatelem, podle které budeme chtít měnit další běh programu. Říkáme, že se program větví a k větvení používáme podmínky, těm se budeme věnovat celý dnešní Visual Basic .NET tutoriál. Vytvoříme program na výpočet odmocniny a vylepšíme naši kalkulačku.

Podmínky

Podmínky zapisujeme pomocí klíčového slova If, za kterým následuje logický výraz a za ním klíčové slovo Then. Pokud je výraz pravdivý, provede se následující příkaz. Pokud ne, následující příkaz se přeskočí a pokračuje se až pod ním. Podmínku ukončuje End If. Vyzkoušejme si to:

{VBNET_CONSOLE}
If 15 > 5 Then
    Console.WriteLine("Pravda")
End If
Console.WriteLine("Program zde pokračuje dál")
Console.ReadKey()
{/VBNET_CONSOLE}

Výstup programu:

Konzolová aplikace
Pravda
Program zde pokračuje dál

Pokud podmínka platí (což zde ano), provede se příkaz vypisující do konzole text pravda. V obou případech program pokračuje dál. Součástí výrazu samozřejmě může být i proměnná:

{VBNET_CONSOLE}
Console.WriteLine("Zadej nějaké číslo")
Dim a As Integer = Console.ReadLine()
If a > 5 Then
    Console.WriteLine("Zadal jsi číslo větší než 5!")
End If
Console.WriteLine("Děkuji za zadání")
Console.ReadKey()
{/VBNET_CONSOLE}

Ukažme si nyní relační operátory, které můžeme ve výrazech používat:

Rovnost zapisujeme jedním =, stejně jako když chceme přiřadit hodnotu do proměnné. Pokud chceme nějaký výraz znegovat, napíšeme před něj Not.

{VBNET_CONSOLE}
Console.WriteLine("Zadej nějaké číslo, ze kterého spočítám odmocninu:")
Dim a As Integer = Console.ReadLine()
If a > 0 Then
    Console.WriteLine("Zadal jsi číslo větší než 0, to znamená, že ho mohu odmocnit!")
    Dim o As Double = Math.Sqrt(a)
        Console.WriteLine("Odmocnina z čísla " & a & " je " & o)
End If
Console.WriteLine("Děkuji za zadání")
Console.ReadKey()
{/VBNET_CONSOLE}

Konzolová aplikace
Zadej nějaké číslo, ze kterého spočítám odmocninu:
144
Zadal jsi číslo větší než 0, to znamená, že ho mohu odmocnit!
Odmocnina z čísla 144 je 12
Děkuji za zadání

Program načte od uživatele číslo a pokud je větší než 0, vypočítá z něj druhou odmocninu. Mimo jiné jsme použili třídu Math, která na sobě obsahuje řadu užitečných matematických metod, na konci této kapitoly si ji blíže představíme. Sqrt() vrací hodnotu jako Double. Bylo by hezké, kdyby nám program vyhuboval v případě, že zadáme záporné číslo. S dosavadními znalostmi bychom napsali něco jako:

{VBNET_CONSOLE}
Console.WriteLine("Zadej nějaké číslo, ze kterého spočítám odmocninu:")
Dim a As Integer = Console.ReadLine()
If a > 0 Then
    Console.WriteLine("Zadal jsi číslo větší než 0, to znamená, že ho mohu odmocnit!")
    Dim o As Double = Math.Sqrt(a)
    Console.WriteLine("Odmocnina z čísla " & a & " je " & o)
End If
If a <= 0 Then
    Console.WriteLine("Odmocnina ze záporného čísla neexistuje!")
End If
Console.WriteLine("Děkuji za zadání")
Console.ReadKey()
{/VBNET_CONSOLE}

Všimněte si, že musíme pokrýt i případ, kdy se a = 0, nejen když je menší. Kód však můžeme výrazně zjednodušit pomocí klíčového slova Else, které vykoná následující příkaz nebo blok příkazů v případě, že se podmínka neprovede:

{VBNET_CONSOLE}
Console.WriteLine("Zadej nějaké číslo, ze kterého spočítám odmocninu:")
Dim a As Integer = Console.ReadLine()
If a > 0 Then
    Console.WriteLine("Zadal jsi číslo větší než 0, to znamená, že ho mohu odmocnit!")
    Dim o As Double = Math.Sqrt(a)
    Console.WriteLine("Odmocnina z čísla " & a & " je " & o)
Else
    Console.WriteLine("Odmocnina ze záporného čísla neexistuje!")
End If
Console.WriteLine("Děkuji za zadání")
Console.ReadKey()
{/VBNET_CONSOLE}

Kód je mnohem přehlednější a nemusíme vymýšlet opačnou podmínku, což by v případě složené podmínky mohlo být někdy i velmi obtížné.

Else se také využívá v případě, kdy potřebujeme v příkazu manipulovat s proměnnou z podmínky a nemůžeme se na ni tedy ptát potom znovu. Program si sám pamatuje, že se podmínka nesplnila a přejde do sekce Else. Ukažme si to na příkladu: Mějme číslo a, kde bude hodnota 0 nebo 1 a po nás se bude chtít, abychom hodnotu prohodili (pokud tam je 0, dáme tam 1, pokud 1, dáme tam 0). Naivně bychom mohli kód napsat takto:

{VBNET_CONSOLE}
Dim a As Integer = 0
If a = 0 Then
    a = 1
End If
If a = 1 Then
    a = 0
End If
Console.WriteLine(a)
Console.ReadKey()
{/VBNET_CONSOLE}

Nefunguje to, že? Pojďme si projet, co bude program dělat. Na začátku máme v a nulu, první podmínka se jistě splní a dosadí do a jedničku. No ale rázem se splní i ta druhá. Co s tím? Když podmínky otočíme, budeme mít ten samý problém s jedničkou. Jak z toho ven? Ano, použijeme Else.

{VBNET_CONSOLE}
Dim a As Integer = 0
If a = 0 Then
    a = 1
Else
    a = 0
End If
Console.WriteLine(a)
Console.ReadKey()
{/VBNET_CONSOLE}

Podmínky je možné skládat a to pomocí dvou základních operátorů:

Uveďme si příklad:

{VBNET_CONSOLE}
Console.WriteLine("Zadejte číslo v rozmezí 10-20:")
Dim a As Integer = Console.ReadLine()
If a >= 10 And a <= 20 Then
    Console.WriteLine("Zadal jsi správně")
Else
    Console.WriteLine("Zadal jsi špatně")
End If
Console.ReadKey()
{/VBNET_CONSOLE}

S tím si zatím vystačíme, operátory se pomocí závorek samozřejmě dají kombinovat.

{VBNET_CONSOLE}
Console.WriteLine("Zadejte číslo v rozmezí 10-20 nebo 30-40:")
Dim a As Integer = Console.ReadLine()
If ((a >= 10) And (a <= 20)) Or ((a >= 30) And (a <= 40)) Then
    Console.WriteLine("Zadal jsi správně")
Else
    Console.WriteLine("Zadal jsi špatně")
End If
Console.ReadKey()
{/VBNET_CONSOLE}

Select Case

Select Case nám umožňuje zjednodušit (relativně) zápis více podmínek pod sebou. Vzpomeňme si na naši kalkulačku v prvních lekcích, která načetla 2 čísla a vypočítala všechny 4 operace. Nyní si ale budeme chtít zvolit, kterou operaci chceme. Bez Select Case bychom napsali kód podobný tomuto:

{VBNET_CONSOLE}
Console.WriteLine("Vítejte v kalkulačce")
Console.WriteLine("Zadejte první číslo:")
Dim a As Single = Console.ReadLine()
Console.WriteLine("Zadejte druhé číslo:")
Dim b As Single = Console.ReadLine()
Console.WriteLine("Zvolte si operaci:")
Console.WriteLine("1 - sčítání")
Console.WriteLine("2 - odčítání")
Console.WriteLine("3 - násobení")
Console.WriteLine("4 - dělení")
Dim volba As Integer = Console.ReadLine()
Dim vysledek As Single = 0
If volba = 1 Then
    vysledek = a + b
Else
    If volba = 2 Then
        vysledek = a - b
    Else
        If volba = 3 Then
            vysledek = a * b
        Else
            If volba = 4 Then
                vysledek = a / b
            End If
        End If
    End If
End If
If volba > 0 And volba < 5 Then
    Console.WriteLine("Výsledek: {0}", vysledek)
Else
    Console.WriteLine("Neplatná volba")
End If

Console.WriteLine("Děkuji za použití kalkulačky, aplikaci ukončíte libovolnou klávesou.")
Console.ReadKey()
{/VBNET_CONSOLE}

Konzolová aplikace
Vítejte v kalkulačce
Zadejte první číslo:
3,14
Zadejte druhé číslo:
2,72
Zvolte si operaci:
1 - sčítání
2 - odčítání
3 - násobení
4 - dělení
2
Výsledek: 0,42
Děkuji za použití kalkulačky, aplikaci ukončíte libovolnou klávesou.

Všimněte si, že jsme proměnnou vysledek deklarovali na začátku, jen tak do ni můžeme potom přiřazovat. Kdybychom ji deklarovali u každého přiřazení, Visual Basic by kód nezkompiloval a vyhodil chybu redeklarace proměnné. Proměnná může být deklarována (založena v paměti) vždy jen jednou. Bohužel Visual Basic není schopen poznat, zda je do proměnné vysledek opravdu přiřazena nějaká hodnota. Ozve se při výpisu na konzoli, kde se mu nelíbí, že může vypisovat proměnnou, která nemá přiřazenu hodnotu. Z tohoto důvodu na začátku dosadíme do vysledek nulu. Další vychytávka je kontrola správnosti volby. Program by v tomto případě fungoval stejně i bez těch Else, ale nač se dále ptát, když již máme výsledek.

Nyní si zkusíme napsat ten samý kód pomocí Select Case:

{VBNET_CONSOLE}
Console.WriteLine("Vítejte v kalkulačce")
Console.WriteLine("Zadejte první číslo:")
Dim a As Single = Console.ReadLine()
Console.WriteLine("Zadejte druhé číslo:")
Dim b As Single = Console.ReadLine()
Console.WriteLine("Zvolte si operaci:")
Console.WriteLine("1 - sčítání")
Console.WriteLine("2 - odčítání")
Console.WriteLine("3 - násobení")
Console.WriteLine("4 - dělení")
Dim volba As Integer = Console.ReadLine()
Dim vysledek As Single = 0
Select Case volba
    Case 1
        vysledek = a + b
    Case 2
        vysledek = a - b
    Case 3
        vysledek = a * b
    Case 4
        vysledek = a / b
End Select
If volba > 0 And volba < 5 Then
    Console.WriteLine("Výsledek: {0}", vysledek)
Else
    Console.WriteLine("Neplatná volba")
End If

Console.WriteLine("Děkuji za použití kalkulačky, aplikaci ukončíte libovolnou klávesou.")
Console.ReadKey()
{/VBNET_CONSOLE}

Select Case může místo Case x: obsahovat ještě možnost Case Else, která se vykoná v případě, že nebude platit žádný Case. Je jen na vás, jestli budete Select Case používat, obecně se vyplatí jen při větším množství příkazů a vždy jde nahradit sekvencí If a Else. Select Case jde samozřejmě udělat i pro hodnoty proměnné typu String.

To bychom měli.

V následujícím cvičení, Řešené úlohy k 5. lekci VB.NET, si procvičíme nabyté zkušenosti z předchozích lekcí.