Vyberte Case Statement ve VB.Net s příklady

Co je Select Case ve VB.Net?

Vyberte případ je podmíněný příkaz, který vám pomůže otestovat proměnnou na rovnost vůči sadě hodnot. Každá hodnota je označována jako případ a proměnná, která se zapíná, by měla být zkontrolována pro všechny vybrané případy.

Příkaz Select Case vám poskytuje snadný způsob testování obsahu proměnné. Je však vhodný pouze pro použití, když má daná proměnná pouze omezený počet možností.

Syntaxe příkazu Select Case ve VB.Net

Příkaz Select Case je deklarován v VB.Net pomocí následující syntaxe:

Select [ Case ] your_expression
   [ Case expression_list
      [ statement(s) ] ]
   [ Case Else
      [ else statement(s) ] ]
End Select

Popišme parametry použité v syntaxi:

• tvůj_výraz: označuje výraz, který je vyhodnocen jako jeden z elementárních Typy dat podporováno v Microsoft VB.Net.
• seznam_výrazů: klauzule výrazu, které označují shodné hodnoty výrazu. V případě více klauzulí je oddělte čárkou (,).
• prohlášení: příkazy, které následují za Case a provádějí se poté, co se výběrový výraz shoduje s klauzulí v seznamu výrazů.
• další prohlášení: příkazy, které následují za Case Else a spouštějí se, jakmile výraz select neodpovídá žádné z klauzulí v seznamu výrazů pro jakýkoli příkaz Case.

Příklady programů VB.Net Select Case Statement

Použijme příklad k demonstraci použití příkazu Select Case ve VB.Net:

Krok 1) Nejprve vytvořte novou konzolovou aplikaci.

Krok 2) Použijte následující kód:

Module Module1
    Sub Main()
        Dim name As String
        name = "Guru99"
        Select Case name

            Case "John"
                Console.WriteLine("Hello John")

            Case "Guru99"
                Console.WriteLine("Hello Guru99")

            Case "Alice"
                Console.WriteLine("Hello Alice")

            Case "Joel"
                Console.WriteLine("Hello Joel")

            Case Else
                Console.WriteLine("unknown name")

        End Select
        Console.WriteLine("VB.NET is easy!")
        Console.ReadKey()
    End Sub
End Module

Krok 3) Kliknutím na tlačítko Start na horní liště spustíte program. Dá vám to následující výsledek:

Zde je snímek obrazovky kódu, který jsme použili:

Vysvětlení Code:

1. Vytvoření modulu s názvem Module1.
2. Zahájení hlavního dílčího postupu.
3. Vytvoření řetězcové proměnné s názvem name.
4. Přiřazení hodnoty Guru99 k názvu proměnné.
5. Hodnota názvu proměnné se použije k porovnání s různými příkazy Case, aby se našla shoda.
6. Pokud je hodnota názvu proměnné John.
7. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
8. Pokud je hodnota názvu proměnné Guru99.
9. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
10. Pokud je hodnota názvu proměnné Alice.
11. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
12. Pokud je hodnota názvu proměnné Joel.
13. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
14. Pokud žádný z výše uvedených případů není pravdivý/odpovídá.
15. Text, který se má vytisknout na konzole, pokud je výše uvedený případ pravdivý, to znamená, že žádný příkaz Case neodpovídá.
16. Konec příkazu Select.
17. Tento výpis vytiskne na obrazovku nějaký text bez ohledu na to, zda byl výrok Case shodný nebo ne. Vždy se provede.
18. Pozastavte okno konzoly na chvíli a počkejte, až uživatel provede akci a zavře jej.
19. Konec hlavního dílčího postupu.
20. Konec modulu.

Příklad 2

Můžete také nechat uživatele zadat jméno a poté se na základě tohoto vstupu rozhodnout.

Krok 1) Vytvořte novou konzolovou aplikaci.

Krok 2) Použijte následující kód:

Module Module1
    Sub Main()
        Console.Write("Enter your name: ")
        Dim name As String = Console.ReadLine()
        Select Case name

            Case "John"
                Console.WriteLine("Hello John")

            Case "Guru99"
                Console.WriteLine("Hello Guru99")

            Case "Alice"
                Console.WriteLine("Hello Alice")

            Case "Joel"
                Console.WriteLine("Hello Joel")

            Case Else
                Console.WriteLine("unknown name")

        End Select
        Console.WriteLine("VB.NET is easy!")
        Console.ReadKey()
    End Sub
End Module

Krok 3) Proveďte jej kliknutím na tlačítko Start na horní liště. Mělo by vrátit následující:

Krok 4) Zadejte název Guru99 a stiskněte klávesu Enter. Měli byste dostat následující:

Zde je snímek obrazovky kódu:

Vysvětlení Code:

1. Vytvoření modulu s názvem Module1.
2. Zahájení hlavního dílčího postupu.
3. Vytištění nějakého textu na konzoli s pokynem pro uživatele, aby zadal své jméno.
4. Vytvoření řetězcové proměnné s názvem name a výzva k zadání hodnoty této proměnné na konzole.
5. Hodnota názvu proměnné se použije k porovnání s různými příkazy Case za účelem nalezení shody.
6. Pokud je hodnota názvu proměnné John.
7. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
8. Pokud je hodnota názvu proměnné Guru99.
9. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
10. Pokud je hodnota názvu proměnné Alice.
11. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
12. Pokud je hodnota názvu proměnné Joel.
13. Text k vytištění na konzole, pokud je výše uvedený případ pravdivý/odpovídající.
14. Pokud žádný z výše uvedených případů není pravdivý/odpovídá.
15. Text, který se má vytisknout na konzole, pokud je výše uvedený případ pravdivý, to znamená, že žádný příkaz Case neodpovídá.
16. Konec příkazu Select.
17. Tento výpis vytiskne na obrazovku nějaký text bez ohledu na to, zda byl výrok Case shodný nebo ne. Vždy se provede.
18. Pozastavte okno konzoly na chvíli a počkejte, až uživatel provede akci a zavře jej.
19. Konec hlavního dílčího postupu.
20. Konec modulu.

Funkce ToLower() a ToUpper() ve VB.Net

Příkaz Select Case rozlišuje velká a malá písmena. To znamená, že guru99 bude považován za odlišný od Guru99. K řešení problému případu s tímto příkazem však můžeme použít funkce ToLower() a ToUpper().

Příklad ToLower() a ToUpper() ve VB.Net

Zde je příklad funkcí ToLower() a ToUpper() ve VB.Net:

Krok 1) Vytvořte novou konzolovou aplikaci.

Krok 2) Použijte následující kód:

Module Module1
    Sub Main()
        Console.Write("Enter your name: ")
        Dim name As String = Console.ReadLine()
        Select Case name.ToLower()
		
            Case "john." 
                Console.WriteLine("Hello John")

            Case "guru99." 
                Console.WriteLine("Hello Guru99")

            Case "alice." 
                Console.WriteLine("Hello Alice")

            Case "joel." 
                Console.WriteLine("Hello Joel")

            Case Else
                Console.WriteLine("unknown name")

        End Select
        Console.WriteLine("VB.NET is easy!")
        Console.ReadKey()
    End Sub
End Module

Krok 3) Kliknutím na tlačítko Start na horní liště spustíte kód. Měli byste získat následující výstup:

Krok 4) Zadejte název Guru99 (G je velké písmeno) a stiskněte klávesu Enter na klávesnici. Měli byste dostat následující:

Zde je snímek obrazovky kódu:

Vysvětlení Code:

Code řádek 5: Hodnota proměnné name bude použita pro porovnání s různými příkazy Case za účelem nalezení shody. Funkce ToLower() zajistí, že jakýkoli název, který uživatel zadá, bude před vyhodnocením příkazů Case nejprve převeden na malá písmena. To znamená, že pokud uživatel zadá Guru99, bude okamžitě převeden na guru99 a poté se provede vyhodnocení příkazů Case. Pokud uživatel zadá John, bude okamžitě převeden na john před provedením vyhodnocení příkazů Case.

Zbytek kódu je stejný jako výše.

Nejčastější dotazy