Επιλέξτε Case Statement στο VB.Net με Παραδείγματα

Τι είναι το Select Case στο VB.Net;

Επιλέξτε Περίπτωση είναι μια δήλωση υπό όρους, που σας βοηθά να ελέγξετε μια μεταβλητή για ισότητα έναντι ενός συνόλου τιμών. Κάθε τιμή αναφέρεται ως περίπτωση και μια μεταβλητή που ενεργοποιείται θα πρέπει να ελέγχεται για όλες τις επιλεγμένες περιπτώσεις.

Η δήλωση Select Case σάς παρέχει έναν εύκολο τρόπο δοκιμής για τα περιεχόμενα μιας μεταβλητής. Ωστόσο, είναι κατάλληλο για χρήση μόνο όταν μια εν λόγω μεταβλητή έχει περιορισμένο μόνο αριθμό επιλογών.

Σύνταξη δήλωσης επιλογής περίπτωσης στο VB.Net

Η εντολή Select Case δηλώνεται σε VB.Net χρησιμοποιώντας την ακόλουθη σύνταξη:

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

Ας περιγράψουμε τις παραμέτρους που χρησιμοποιούνται στη σύνταξη:

• your_expression: αυτό υποδηλώνει μια έκφραση που αποτιμάται σε ένα από τα στοιχειώδη Τύποι δεδομένων υποστηρίζεται σε Microsoft VB.Net.
• έκφραση_λίστα: προτάσεις έκφρασης που δηλώνουν τις τιμές αντιστοίχισης για την παράσταση. Για την περίπτωση πολλαπλών προτάσεων, διαχωρίστε τις χρησιμοποιώντας κόμμα (,).
• δήλωση: δηλώσεις που ακολουθούν το Case και εκτελούνται αφού η έκφραση Select έχει ταιριάξει με οποιαδήποτε πρόταση στο express_list.
• άλλες δηλώσεις: δηλώσεις που ακολουθούν το Case Else και εκτελούνται μόλις η έκφραση select αποτύχει να ταιριάζει με καμία από τις ρήτρες στη express_list για οποιαδήποτε πρόταση Case.

VB.Net Επιλέξτε Παραδείγματα προγράμματος δήλωσης περίπτωσης

Ας χρησιμοποιήσουμε ένα παράδειγμα για να δείξουμε πώς να χρησιμοποιήσουμε την πρόταση Select Case στο VB.Net:

Βήμα 1) Αρχικά, δημιουργήστε μια νέα εφαρμογή κονσόλας.

Βήμα 2) Χρησιμοποιήστε τον ακόλουθο κωδικό:

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

Βήμα 3) Κάντε κλικ στο κουμπί Έναρξη από την επάνω γραμμή για να εκτελέσετε το πρόγραμμα. Θα σας δώσει το εξής αποτέλεσμα:

Ακολουθεί ένα στιγμιότυπο οθόνης του κώδικα που χρησιμοποιήσαμε:

Επεξήγηση του Code:

1. Δημιουργία μιας ενότητας με το όνομα Module1.
2. Έναρξη της κύριας υποδιαδικασίας.
3. Δημιουργία μιας μεταβλητής συμβολοσειράς με όνομα.
4. Ανάθεση τιμής Guru99 στο όνομα της μεταβλητής.
5. Η τιμή ενός ονόματος μεταβλητής θα χρησιμοποιηθεί για την εκτέλεση συγκρίσεων με τις διάφορες προτάσεις Case για την εύρεση μιας αντιστοίχισης.
6. Αν η τιμή ενός ονόματος μεταβλητής είναι John.
7. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
8. Αν η τιμή ενός ονόματος μεταβλητής είναι Guru99.
9. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
10. Εάν η τιμή ενός ονόματος μεταβλητής είναι Alice.
11. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
12. Εάν η τιμή ενός ονόματος μεταβλητής είναι Joel.
13. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
14. Εάν καμία από τις παραπάνω προτάσεις Περίπτωσης δεν είναι αληθής/ αντιστοιχίζεται.
15. Κείμενο προς εκτύπωση στην κονσόλα, εάν η παραπάνω περίπτωση είναι αληθής, δηλαδή, καμία πρόταση Case δεν ταιριάζει.
16. Τέλος της δήλωσης Επιλογή.
17. Αυτή η δήλωση θα εκτυπώσει κάποιο κείμενο στην οθόνη, ανεξάρτητα από το εάν μια δήλωση Case αντιστοιχεί ή όχι. Πάντα θα εκτελείται.
18. Παύση του παραθύρου της κονσόλας για λίγο, περιμένοντας κάποιος χρήστης να κάνει κάποια ενέργεια για να το κλείσει.
19. Λήξη της κύριας υποδιαδικασίας.
20. Τέλος της ενότητας.

Παράδειγμα 2

Μπορείτε επίσης να αφήσετε τον χρήστη να πληκτρολογήσει το όνομα και, στη συνέχεια, να λάβει την απόφασή του με βάση αυτήν την εισαγωγή.

Βήμα 1) Δημιουργήστε μια νέα εφαρμογή κονσόλας.

Βήμα 2) Χρησιμοποιήστε τον ακόλουθο κωδικό:

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

Βήμα 3) Κάντε κλικ στο κουμπί Έναρξη από την επάνω γραμμή για να το εκτελέσετε. Θα πρέπει να επιστρέψει τα ακόλουθα:

Βήμα 4) Πληκτρολογήστε το όνομα Guru99 και πατήστε το πλήκτρο Enter. Θα πρέπει να λάβετε τα εξής:

Εδώ είναι ένα στιγμιότυπο οθόνης του κώδικα:

Επεξήγηση του Code:

1. Δημιουργία μιας ενότητας με το όνομα Module1.
2. Έναρξη της κύριας υποδιαδικασίας.
3. Εκτύπωση κειμένου στην κονσόλα που δίνει εντολή στον χρήστη να εισαγάγει το όνομά του.
4. Δημιουργία μιας μεταβλητής συμβολοσειράς με όνομα όνομα και προτροπή στον χρήστη να εισαγάγει μια τιμή για αυτήν τη μεταβλητή στην κονσόλα.
5. Η τιμή του ονόματος της μεταβλητής θα χρησιμοποιηθεί για την εκτέλεση συγκρίσεων με τις διάφορες προτάσεις Case για την εύρεση μιας αντιστοίχισης.
6. Αν η τιμή του ονόματος της μεταβλητής είναι John.
7. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
8. Αν η τιμή του ονόματος της μεταβλητής είναι Guru99.
9. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
10. Εάν η τιμή του ονόματος της μεταβλητής είναι Alice.
11. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
12. Αν η τιμή του ονόματος της μεταβλητής είναι Joel.
13. Κείμενο προς εκτύπωση στην κονσόλα εάν η παραπάνω περίπτωση είναι αληθής/ταιριασμένη.
14. Εάν καμία από τις παραπάνω προτάσεις Περίπτωσης δεν είναι αληθής/ αντιστοιχίζεται.
15. Κείμενο προς εκτύπωση στην κονσόλα, εάν η παραπάνω περίπτωση είναι αληθής, δηλαδή, καμία πρόταση Case δεν ταιριάζει.
16. Τέλος της δήλωσης Επιλογή.
17. Αυτή η δήλωση θα εκτυπώσει κάποιο κείμενο στην οθόνη, ανεξάρτητα από το εάν μια δήλωση Case αντιστοιχεί ή όχι. Πάντα θα εκτελείται.
18. Παύση του παραθύρου της κονσόλας για λίγο, περιμένοντας κάποιος χρήστης να κάνει κάποια ενέργεια για να το κλείσει.
19. Λήξη της κύριας υποδιαδικασίας.
20. Τέλος της ενότητας.

Λειτουργίες ToLower() και ToUpper() στο VB.Net

Η πρόταση Select Case κάνει διάκριση πεζών-κεφαλαίων. Αυτό σημαίνει ότι θα αντιμετωπίσει τον guru99 ως διαφορετικό από Guru99. Ωστόσο, μπορούμε να χρησιμοποιήσουμε τις συναρτήσεις ToLower() και ToUpper() για να χειριστούμε το ζήτημα μιας περίπτωσης με αυτήν την πρόταση.

Παράδειγμα ToLower() και ToUpper() στο VB.Net

Ακολουθεί ένα παράδειγμα των συναρτήσεων ToLower() και ToUpper() στο VB.Net:

Βήμα 1) Δημιουργήστε μια νέα εφαρμογή κονσόλας.

Βήμα 2) Χρησιμοποιήστε τον ακόλουθο κωδικό:

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

Βήμα 3) Κάντε κλικ στο κουμπί Έναρξη στην επάνω γραμμή για να εκτελέσετε τον κώδικα. Θα πρέπει να λάβετε την ακόλουθη έξοδο:

Βήμα 4) Πληκτρολογήστε το όνομα Guru99 (το G είναι κεφαλαίο γράμμα) και πατήστε το πλήκτρο Enter στο πληκτρολόγιό σας. Θα πρέπει να λάβετε τα εξής:

Εδώ είναι ένα στιγμιότυπο οθόνης του κώδικα:

Επεξήγηση του Code:

Code γραμμή 5: Η τιμή του ονόματος της μεταβλητής θα χρησιμοποιηθεί για την εκτέλεση συγκρίσεων με τις διάφορες εντολές Case για να βρεθεί μια αντιστοιχία. Η συνάρτηση ToLower() θα διασφαλίσει ότι οποιοδήποτε όνομα πληκτρολογεί ο χρήστης μετατρέπεται πρώτα σε πεζά γράμματα πριν από την αξιολόγηση των εντολών Case. Αυτό σημαίνει ότι εάν ο χρήστης πληκτρολογήσει Guru99, θα μετατραπεί αμέσως σε guru99, και στη συνέχεια θα ολοκληρωθεί η αξιολόγηση των δηλώσεων Case. Εάν ο χρήστης πληκτρολογήσει John, θα μετατραπεί αμέσως σε john πριν ολοκληρωθεί η αξιολόγηση των δηλώσεων Case.

Ο υπόλοιπος κώδικας είναι ίδιος με τον παραπάνω.

Συχνές Ερωτήσεις