Differenze tra le versioni di "SELECT CASE...CASE...END SELECT"
| Riga 6: | Riga 6: | ||
'''CASE''' ''variabile(3)'' | '''CASE''' ''variabile(3)'' | ||
<<vostro codice 3>> | <<vostro codice 3>> | ||
| − | '''CASE ELSE''' oppure '''DEFAULT''' | + | '''CASE ELSE''' oppure soltanto '''DEFAULT''' |
<<vostro codice 4>> | <<vostro codice 4>> | ||
'''END SELECT''' | '''END SELECT''' | ||
''' Esegue del codice previa verifica della condizione ''' | ''' Esegue del codice previa verifica della condizione ''' | ||
| − | |||
''Spiegazione'' | ''Spiegazione'' | ||
| Riga 16: | Riga 15: | ||
Ogni valore che assume variabile esegue il codice successivo alla verifica. | Ogni valore che assume variabile esegue il codice successivo alla verifica. | ||
<BR>Questa funzione è simile a [[IF...THEN...ELSE...ENDIF|If...Then...Else...Endif]] con la differenza che è più immediata e pulita la lettura del codice, e prevede un controllo più stretto sul range di valori. | <BR>Questa funzione è simile a [[IF...THEN...ELSE...ENDIF|If...Then...Else...Endif]] con la differenza che è più immediata e pulita la lettura del codice, e prevede un controllo più stretto sul range di valori. | ||
| − | <BR>Inoltre è possibile gestire il flusso di dati in modo che in caso non sia soddisfatta nessuna condizione il sistema esegua qualche cosa, questo è possibile tramite '''CASE ELSE''' o '''DEFAULT'''. | + | <BR>Inoltre è possibile gestire il flusso di dati in modo che in caso non sia soddisfatta nessuna condizione il sistema esegua qualche cosa, questo è possibile tramite '''CASE ELSE''' o '''DEFAULT''' da solo. |
''Esempio 1'' - '''Verifica pressione di un tasto''' | ''Esempio 1'' - '''Verifica pressione di un tasto''' | ||
| − | |||
'''SELECT CASE''' key.Code | '''SELECT CASE''' key.Code | ||
| − | + | '''CASE''' key.Del | |
| − | + | Message.Info("premuto il tasto DEL") | |
| − | + | '''CASE''' key.F1 | |
| − | + | Message.Info("premuto il tasto F1") | |
| − | + | '''DEFAULT''' | |
| − | + | Message.Info("tasto non riconosciuto") | |
| − | '''END SELECT''' | + | '''END SELECT''' |
| + | Se vogliamo utilizzare '''CASE ELSE''': | ||
| + | '''SELECT CASE''' key.Code | ||
| + | '''CASE''' key.Del | ||
| + | Message.Info("premuto il tasto DEL") | ||
| + | '''CASE''' key.F1 | ||
| + | Message.Info("premuto il tasto F1") | ||
| + | '''CASE ELSE''' | ||
| + | Message.Info("tasto non riconosciuto") | ||
| + | '''END SELECT''' | ||
''Spiegazione'' | ''Spiegazione'' | ||
| Riga 35: | Riga 42: | ||
Per associare lo stesso codice a più situazioni, è possibile definirle nella stessa istruzione CASE, separando ogni valore da una '''virgola''': | Per associare lo stesso codice a più situazioni, è possibile definirle nella stessa istruzione CASE, separando ogni valore da una '''virgola''': | ||
| − | |||
Esempio: | Esempio: | ||
| − | |||
'''SELECT CASE''' key.Code | '''SELECT CASE''' key.Code | ||
| − | '''CASE''' key. | + | '''CASE''' key.Del |
| − | Message.Info("premuto il tasto | + | Message.Info("premuto il tasto DEL") |
| − | '''CASE''' key.F1, key.F2, Key. | + | '''CASE''' key.F1, key.F2, Key.Ins |
| − | Message.Info("premuto il tasto F1") | + | Message.Info("premuto il tasto F1 oppure F2 oppure Ins") |
'''DEFAULT''' | '''DEFAULT''' | ||
Message.Info("tasto non riconosciuto") | Message.Info("tasto non riconosciuto") | ||
'''END SELECT''' | '''END SELECT''' | ||
| − | + | Come si può notare dall'esempio, nel secondo CASE sono stati definiti tre valori (F1, F2 e Ins); alla pressione dei tasti corrispondenti verrà eseguita la stessa istruzione. | |
| − | |||
| − | Come si può notare dall'esempio, nel secondo CASE sono stati definiti tre valori (F1, F2 e | ||
Per associare lo stesso codice a più situazioni che insistono in un ambito ben determinato di valori, allora si utilizzerà '''TO''': | Per associare lo stesso codice a più situazioni che insistono in un ambito ben determinato di valori, allora si utilizzerà '''TO''': | ||
Esempio: | Esempio: | ||
| − | |||
'''SELECT CASE''' variabile | '''SELECT CASE''' variabile | ||
'''CASE''' variabile1 '''TO''' variabile2 | '''CASE''' variabile1 '''TO''' variabile2 | ||
| Riga 68: | Riga 70: | ||
Esempio: | Esempio: | ||
'''SELECT CASE''' variabile | '''SELECT CASE''' variabile | ||
| − | '''CASE''' 8 '''TO''' | + | '''CASE''' 2, 8 '''TO''' 10''' |
| + | '''CASE''' 16 '''TO''' 17''', 14 | ||
Print "Primo caso" | Print "Primo caso" | ||
'''CASE''' 20 '''TO''' 25''',''' 30 '''TO''' 35 | '''CASE''' 20 '''TO''' 25''',''' 30 '''TO''' 35 | ||
| Riga 74: | Riga 77: | ||
'''CASE''' 40 '''TO''' 45''',''' 48''',''' 50 '''TO''' 55''',''' 58 | '''CASE''' 40 '''TO''' 45''',''' 48''',''' 50 '''TO''' 55''',''' 58 | ||
Print "Terzo caso" | Print "Terzo caso" | ||
| + | '''CASE ELSE''' | ||
| + | Print "Nulla" | ||
'''END SELECT''' | '''END SELECT''' | ||
Versione delle 17:23, 24 mag 2023
SELECT CASE variabile CASE variabile(1) <<vostro codice 1>> CASE variabile(2) <<vostro codice 2>> CASE variabile(3) <<vostro codice 3>> CASE ELSE oppure soltanto DEFAULT <<vostro codice 4>> END SELECT
Esegue del codice previa verifica della condizione
Spiegazione
Ogni valore che assume variabile esegue il codice successivo alla verifica.
Questa funzione è simile a If...Then...Else...Endif con la differenza che è più immediata e pulita la lettura del codice, e prevede un controllo più stretto sul range di valori.
Inoltre è possibile gestire il flusso di dati in modo che in caso non sia soddisfatta nessuna condizione il sistema esegua qualche cosa, questo è possibile tramite CASE ELSE o DEFAULT da solo.
Esempio 1 - Verifica pressione di un tasto
SELECT CASE key.Code
CASE key.Del
Message.Info("premuto il tasto DEL")
CASE key.F1
Message.Info("premuto il tasto F1")
DEFAULT
Message.Info("tasto non riconosciuto")
END SELECT
Se vogliamo utilizzare CASE ELSE:
SELECT CASE key.Code
CASE key.Del
Message.Info("premuto il tasto DEL")
CASE key.F1
Message.Info("premuto il tasto F1")
CASE ELSE
Message.Info("tasto non riconosciuto")
END SELECT
Spiegazione
Ad ogni pressione di un tasto il sistema verifica a quale codice della tastiera corrisponde e si comporta di conseguenza. Per provare l'esempio è sufficiente scrivere il codice sopra riportato all'interno di una TextBox.
Per associare lo stesso codice a più situazioni, è possibile definirle nella stessa istruzione CASE, separando ogni valore da una virgola:
Esempio:
SELECT CASE key.Code
CASE key.Del
Message.Info("premuto il tasto DEL")
CASE key.F1, key.F2, Key.Ins
Message.Info("premuto il tasto F1 oppure F2 oppure Ins")
DEFAULT
Message.Info("tasto non riconosciuto")
END SELECT
Come si può notare dall'esempio, nel secondo CASE sono stati definiti tre valori (F1, F2 e Ins); alla pressione dei tasti corrispondenti verrà eseguita la stessa istruzione.
Per associare lo stesso codice a più situazioni che insistono in un ambito ben determinato di valori, allora si utilizzerà TO:
Esempio:
SELECT CASE variabile
CASE variabile1 TO variabile2
Message.Info("rientra nell'ambito da variabile1 a variabile 2")
CASE variabile3 TO variabile4
Message.Info("rientra nell'ambito da variabile3 a variabile 4")
END SELECT
Le modalità di verifica con la virgola e con il TO possono essere anche utilizzate contestualmente nel medesimo CASE.
Esempio:
SELECT CASE variabile
CASE 2, 8 TO 10
CASE 16 TO 17, 14
Print "Primo caso"
CASE 20 TO 25, 30 TO 35
Print "Secondo caso"
CASE 40 TO 45, 48, 50 TO 55, 58
Print "Terzo caso"
CASE ELSE
Print "Nulla"
END SELECT
Nella verifica, altresì, potrà essere utilizzato anche l'operatore "Like": [nota 1]
Public Sub Main()
Dim s As String = "abcg"
Select Case s
Case "aaa"
Print "aaa"
Case Like "abc*"
Print "like !"
End Select
End
Note
[1] Sull'uso dell'operatore "Like" vedere anche questa discussione: https://lists.gambas-basic.org/pipermail/user/2013-March/043458.html
