TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
V dalším díle seriálu si probereme cykly, pole a ošetřování výjimek.
V tomto díle se podíváme na další důležitou část jazyka VB.NET, a to sice cykly. Také se naučíme pracovat s kolekcemi a zjistíme, jak ošetřit výjimky vzniklé za běhu programu. Také bych se chtěl omluvit za velmi dlouhý interval mezi tímto a předchozím dílem, ale pracoval jsem na jednom projektu a nemohl jsem si najít čas. Doufám, že jste zatím na tento kurz nezanevřeli.
Cykly
Cyklus, jak už jeho název naznačuje, je část programu, která vykonává dokola nějakou činnost. Prvním z cyklů, které si ukážeme, je While. Cyklus While se opakuje tak dlouho, dokud platí zadaná podmínka:
Dim i As Integer = 0
While i < 10
Console.WriteLine(i) 'Vypiš i.
i += 1 'Přičti k i jedničku a skoč na začátek cyklu.
End WhileCyklus While je dost možná nejpoužívanější cyklus ve všech programovacích jazycích. Dalším cyklem je Do, který je téměř identický s While, ale jeden podstatný rozdíl existuje: cyklus While nejprve testuje podmínku a až pak provádí tělo cyklu, takže pokud je podmínka už na začátku nepravdivá, neprovede se tělo cyklu ani jednou. Narozdíl od toho, Do napřed provede tělo cyklu a až potom testuje podmínku, čili tělo cyklu se vždy provede alespoň jednou:
Dim i As Integer = 0
Do
Console.WriteLine(i)
i += 1
Loop While i > 10
'Podmínka se vyhodnotí jako False.
'Cyklus While by nebyl proveden ani jednou.
'Cyklus Do se provede alespoň jednou a
'do konzole se vypíše: 0.
nebo
Dim i As Integer = 0
Do
Console.WriteLine(i)
i += 1
Loop Until i > 10
'Loop Until je téměř totéž
'jako Loop While, ale
'provádí se pouze, pokud
'je podmínka vyhodnocena
'jako False.
nebo
Dim i As Integer = 0
Do Until i > 10
Console.WriteLine(i)
i += 1
Loop
'Stejné, ale podmínka
'se testuje ještě před
'provedením cyklu.Dalším, trochu jiným cyklem je For. Ten je specifický tím, že už na začátku cyklu je určeno, kolikrát proběhne. Vypadá to takto:
Dim i As Integer
i = Integer.Parse(Console.ReadLine())
Console.WriteLine()
For o As Integer = 0 To i Step 1
Console.WriteLine(o)
NextČást Step je nepovinná, pokud chcete cyklus, ve kterém bude proměnná o po každém zopakování narůstat o jedničku. Pokud byste ale chtěli, aby proměnná o klesala o jedničku nebo naopak narůstala o 2, napsali byste Step -1 nebo Step 2.
Pole
Pole (angl. array) je proměnná, která uchovává více hodnot stejného typu. Pokud byste chtěli vytvořit pole pro typ Integer, napsali byste toto (prvky pole jsou číslovány od nuly, tzn. první prvek má číslo 0):
Dim intArray(2) As Integer
'Vytvoří pole Integerů, do kterého se vejdou
'tři proměnné.
intArray(0) = 1
'První proměnné v poli přiřadí hodnotu 1.
intArray(1) = 8
'Druhé proměnné v poli přiřadí hodnotu 8.
intArray(2) = 16
'Třetí proměnné v poli přiřadí hodnotu 16.
'Pole lze také inicializovat takto:
Dim secondIntArray() As Integer = {2, 4, 6}
'Vytvoří pole Integerů a přiřadí do něj hodnoty 2, 4, a 6.
'Velikost pole se odvodí při kompilaci.
Console.WriteLine(secondIntArray(2))
'Vypíš třetí prvek pole, tedy číslo 6.Když už máme pole vytvořené, potřebujeme nějaký způsob, jak jej projít a získat jeho hodnoty. K tomu můžeme využít jednoduchý cyklus For:
Dim secondIntArray() As Integer = {2, 4, 6}
For i As Integer = 0 To secondIntArray.Length - 1
'Indexy pole začínají nulou, proto Length - 1.
'Length je vlastnost pole určující jeho velikost.
Console.WriteLine(secondIntArray(i))
'Přístup k prvku pole s indexem i.
NextNebo můžeme využít sofistikovaný nástroj pro procházení kolekcí, a tím je cyklus For Each:
Dim secondIntArray() As Integer = {2, 4, 6}
For Each i As Integer In secondIntArray
Console.WriteLine(i)
NextOšetřování výjimek
Výjimka je zvláštní událost, ke které dojde při běhu programu, pokud se někde stala chyba. Ukázka:
Sub Main()
Dim i As Integer = Integer.Parse("Honza")
'Zde program skončí, protože dojde k výjimce typu
'FormatException - "honza" se nedá převést na číslo.
End SubKlidně si tento příklad spusťte - nic se nestane, až na to, že program nefunguje. Nyní si ukážeme, jak tomuto předejít. Program počká na vstup uživatele a sdělí, zda jde o číslo, nebo ne:
Sub Main()
Dim s As String = Console.ReadLine()
Try
Dim i As Integer = Integer.Parse(s)
Console.WriteLine("Zadaná hodnota je číslo.")
Catch ex As Exception
Console.WriteLine("Zadaná hodnota není číslo.")
End Try
End SubV tomto úryvku kódu jsme se setkali s novou konstrukcí jazyka VB.NET - blok Try ... Catch. Ten slouží právě k odchycení a ošetření vzniklé výjimky. Kód, který může vyvolat výjimku, uzavřeme do bloku Try, kód který bude výjimku ošetřovat, do bloku Catch. To "ex As Exception" určuje, jaký typ výjimky budeme ošetřovat. Protože Exception je základní typ výjimky, bude blokem Catch ex As Exception ošetřena každá výjimka, ke které dojde v bloku Try. Mohli bychom ale také napsat:
Try
'Nějaký kód...
Catch ex As FormatException
'Ošetří výjimku typu FormatException.
Catch ex As OverflowException
'Ošetří výjimku typu OverflowException.
Catch ex As Exception
'Ošetří všechny ostatní výjimky.
End TryBlok Try ... Catch má ještě jednu speciální část, a tou je blok Finally. Ke kódu v bloku Finally dojde vždy, ať už testovaný kód vyvolá výjimku či ne:
Sub Main()
Dim s As String = Console.ReadLine()
Try
Dim i As Integer = Integer.Parse(s)
Console.WriteLine("Zadaná hodnota je číslo.")
Catch ex As Exception
Console.WriteLine("Zadaná hodnota není číslo.")
Finally
Console.WriteLine("Test ukončen")
End Try
End SubOpět upozorňuji, pokud máte jakýkoli problém, napište do komentářů.
Praktický příklad
A nastal čas na praktickou ukázku toho, co jsme se naučili. Napíšeme si program, který bude fungovat jako kalkulačka - nechá uživatele provádět základní aritmetické operace zadáním něčeho jako "+42" do konzole:
Sub Main()
Console.WriteLine("Vítejte v programu Konzolová kalkulačka 1.0")
Console.WriteLine()
Dim quit As Boolean = False
'Indikuje, zda má být program
'ukončen, nebo ne.
Try
'Načti počáteční hodnotu.
Dim start As Double = Double.Parse(Console.ReadLine())
Console.WriteLine()
'Opakuj, dokud v proměnné quit nebude True.
While Not quit
Dim input As String = Console.ReadLine()
'Načti vstup (např. +8).
Dim numberPart As Double
If input.Length > 0 Then
numberPart = Double.Parse(input.Substring(1))
'Získej z něho numerickou část. Funkce Substring vrací
'část daného řetězce. input.Substring(1) například vrátí znaky 2
'- poslední znak řetězce.
Else
numberPart = 0.0
Continue While
'Pokud tam uživatel nic nezadal, necháme ho to zkusit
'znova. Příkaz Continue jednoduše přeskočí
'jedno procházení cyklu a skočí zase na začátek.
End If
Dim writeToOutput As Boolean = True
'Chceme vypsat výsledek na výstup?
Select Case input.Substring(0, 1)
'Tady vrací Substring pouze první znak řetězce
'(začíná od prvního a vezme jeden znak).
Case "+"
start += numberPart
Case "-"
start -= numberPart
Case "*"
start *= numberPart
Case "/"
'U datového typu Double je výsledek dělení nulou
'nekonečno. To je bohužel dále nepoužitelné.
If numberPart <> 0 Then
start /= numberPart
Else
'Sami vyvoláme vyjímku DivideByZeroException.
Throw New DivideByZeroException("Pokus o dělení nulou!")
End If
Case "\"
start \= numberPart
Case "="
'Nedělej nic.
Case Else
Throw New FormatException("Invalid input!")
End Select
'Vypíšeme na výstup dosavadní výsledek.
If writeToOutput Then Console.WriteLine(start)
Console.WriteLine()
End While
Catch ex As FormatException
Catch ex As DivideByZeroException
Console.WriteLine("Je mi líto, ale nulou dělit nelze.")
End Try
End SubDomácí úkol
Pro tuto lekci žádný domácí úkol nebude. Zkuste si napsat nějaký zajímavý program, využívající to, co jsme se dnes naučili, a jestli chcete, pošlete mi ho. Teším se na viděnou u dalšího dílu.
