SELECT CASE...CASE...END SELECT - Cronologia

Vuott il 22:53, 6 lug 2024

2024-07-06T22:53:05Z

← Versione meno recente		Versione delle 16:53, 6 lug 2024
Riga 87:		Riga 87:

	Nella verifica, altresì, potrà essere utilizzato anche l'operatore '''LIKE''': <SUP>[[[#Note\|nota 1]]]</sup>		Nella verifica, altresì, potrà essere utilizzato anche l'operatore '''LIKE''': <SUP>[[[#Note\|nota 1]]]</sup>
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim s As String = "abcg"		Dim s As String = "abcg"

	Select Case s		'''Select Case''' s
	Case "aaa"		Case "aaa"
	Print "aaa"		Print "aaa"
	Case <FONT Color=~~#B22222~~>Like</font> "abc*"		Case <FONT Color=red>Like</font> "abc*"
	Print "like !"		Print "like !"
	End Select		'''End Select'''

	~~'''~~End~~'''~~		End

Vuott il 23:27, 24 mag 2023

2023-05-24T23:27:40Z

← Versione meno recente		Versione delle 17:27, 24 mag 2023
Riga 1:		Riga 1:
	'''SELECT CASE''' variabile		'''SELECT CASE''' variabile
	'''CASE''' ''variabile(1)''		'''CASE''' ''variabile(1)''
	<<vostro codice 1>>		<<vostro codice 1>>
	'''CASE''' ''variabile(2)''		'''CASE''' ''variabile(2)''
	<<vostro codice 2>>		<<vostro codice 2>>
	'''CASE''' ''variabile(3)''		'''CASE''' ''variabile(3)''
	<<vostro codice 3>>		<<vostro codice 3>>
	'''CASE ELSE''' oppure soltanto '''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 '''
Riga 44:		Riga 44:
	Esempio:		Esempio:
	'''SELECT CASE''' key.Code		'''SELECT CASE''' key.Code
	'''CASE''' key.Del		'''CASE''' key.Del
	Message.Info("premuto il tasto DEL")		Message.Info("premuto il tasto DEL")
	'''CASE''' key.F1, key.F2, Key.Ins		'''CASE''' key.F1, key.F2, Key.Ins
	Message.Info("premuto il tasto F1 oppure F2 oppure Ins")		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 Ins); alla pressione dei tasti corrispondenti verrà eseguita la stessa istruzione.
Riga 57:		Riga 57:
	Esempio:		Esempio:
	'''SELECT CASE''' variabile		'''SELECT CASE''' variabile
	'''CASE''' variabile1 '''TO''' variabile2		'''CASE''' variabile1 '''TO''' variabile2
	Message.Info("rientra nell'ambito da variabile1 a variabile 2")		Message.Info("rientra nell'ambito da variabile1 a variabile 2")
	'''CASE''' variabile3 '''TO''' variabile4		'''CASE''' variabile3 '''TO''' variabile4
	Message.Info("rientra nell'ambito da variabile3 a variabile 4")		Message.Info("rientra nell'ambito da variabile3 a variabile 4")
	'''END SELECT'''		'''END SELECT'''

Vuott il 23:26, 24 mag 2023

2023-05-24T23:26:04Z

← Versione meno recente		Versione delle 17:26, 24 mag 2023
Riga 71:		Riga 71:
	'''SELECT CASE''' variabile		'''SELECT CASE''' variabile
	'''CASE''' 2, 8 '''TO''' 10'''		'''CASE''' 2, 8 '''TO''' 10'''
			Print "Primo caso"
	'''CASE''' 16 '''TO''' 17''', 14		'''CASE''' 16 '''TO''' 17''', 14
	Print "~~Primo~~ caso"		Print "Secondo caso"
	'''CASE''' 20 '''TO''' 25''',''' 30 '''TO''' 35		'''CASE''' 20 '''TO''' 25''',''' 30 '''TO''' 35
	Print "~~Secondo~~ caso"		Print "Terzo caso"
	'''CASE''' 40 '''TO''' 45''',''' 48''',''' 50 '''TO''' 55''',''' 58		'''CASE''' 40 '''TO''' 45''',''' 48''',''' 50 '''TO''' 55''',''' 58
	Print "~~Terzo~~ caso"		Print "Quarto caso"
	'''CASE ELSE'''		'''CASE ELSE'''
	Print "Nulla"		Print "Nulla"
Riga 85:		Riga 86:


	Nella verifica, altresì, potrà essere utilizzato anche l'operatore ~~"Like"~~: <SUP>[[[#Note\|nota 1]]]</sup>		Nella verifica, altresì, potrà essere utilizzato anche l'operatore '''LIKE''': <SUP>[[[#Note\|nota 1]]]</sup>
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 23:23, 24 mag 2023

2023-05-24T23:23:01Z

← Versione meno recente		Versione delle 17:23, 24 mag 2023
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.~~Escape~~		'''CASE''' key.Del
	Message.Info("premuto il tasto ~~ESC~~")		Message.Info("premuto il tasto DEL")
	'''CASE''' key.F1		'''CASE''' key.F1
	Message.Info("premuto il tasto F1")		Message.Info("premuto il tasto F1")
	'''DEFAULT'''		'''DEFAULT'''
	Message.Info("tasto non riconosciuto")		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.~~Escape~~		'''CASE''' key.Del
	Message.Info("premuto il tasto ~~ESC~~")		Message.Info("premuto il tasto DEL")
	'''CASE''' key.F1, key.F2, Key.~~Home~~		'''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 ~~Home~~); 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''':		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''' 11''',''' 0		'''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'''

Vuott il 22:52, 24 mag 2023

2023-05-24T22:52:30Z

← Versione meno recente		Versione delle 16:52, 24 mag 2023
Riga 76:		Riga 76:
	'''END SELECT'''		'''END SELECT'''


	~~Se la verifica deve essere effettuata tra due o più variabili, si utilizzerà '''&''':~~

	~~Esempio:~~
	~~'''SELECT CASE''' variabileA '''&''' variabileB~~
	~~'''CASE''' variabile1 '''&''' variabile2~~
	~~Message.Info("variabileA è uguale a variabile1, variabileB è uguale a variabile2")~~
	~~'''CASE''' variabile3 '''&''' variabile4~~
	~~Message.Info("variabileA è uguale a variabile3, variabileB è uguale a variabile4")~~
	~~'''END SELECT'''~~

	----		----

Vuott il 22:20, 10 gen 2022

2022-01-10T22:20:15Z

← Versione meno recente		Versione delle 16:20, 10 gen 2022
Riga 64:		Riga 64:


	Le modalità di verifica con la ''virgola'' e con il ''TO'' possono essere anche utilizzate contestualmente nel medesimo CASE.		Le modalità di verifica con la ''virgola'' e con il '''TO''' possono essere anche utilizzate contestualmente nel medesimo CASE.

	Esempio:		Esempio:

Vuott il 22:18, 10 gen 2022

2022-01-10T22:18:25Z

← Versione meno recente		Versione delle 16:18, 10 gen 2022
Riga 90:		Riga 90:


	Nella verifica, altresì, potrà essere utilizzato anche l'operatore "''Like''": <SUP>[[[#Note\|nota 1]]]</sup>		Nella verifica, altresì, potrà essere utilizzato anche l'operatore "Like": <SUP>[[[#Note\|nota 1]]]</sup>
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 22:17, 10 gen 2022

2022-01-10T22:17:44Z

← Versione meno recente		Versione delle 16:17, 10 gen 2022
Riga 15:		Riga 15:

	Ogni valore che assume variabile esegue il codice successivo alla verifica.		Ogni valore che assume variabile esegue il codice successivo alla verifica.
	Questa funzione è simile a [[If..Then..Else]] 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.
	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'''.

	''Esempio 1'' - '''Verifica pressione di un tasto'''		''Esempio 1'' - '''Verifica pressione di un tasto'''
Riga 49:		Riga 49:
	----		----
	Come si può notare dall'esempio, nel secondo CASE sono stati definiti tre valori (F1, F2 e Home); 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 Home); 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''':		Per associare lo stesso codice a più situazioni che insistono in un ambito ben determinato di valori, allora si utilizzerà '''TO''':
Riga 81:		Riga 80:

	Esempio:		Esempio:

	'''SELECT CASE''' variabileA '''&''' variabileB		'''SELECT CASE''' variabileA '''&''' variabileB
	'''CASE''' variabile1 '''&''' variabile2		'''CASE''' variabile1 '''&''' variabile2
Riga 110:		Riga 108:
	----		----
	=Note=		=Note=
	[1] Sull'uso dell'operatore "Like" vedere anche questa discussione: https://~~sourceforge~~.~~net/p/~~gambas/~~mailman~~/~~message~~/~~30654991~~/		[1] Sull'uso dell'operatore "Like" vedere anche questa discussione: https://lists.gambas-basic.org/pipermail/user/2013-March/043458.html

Vuott il 22:09, 25 giu 2020

2020-06-25T22:09:58Z

@@ Riga 53: / Riga 53: @@
 Per associare lo stesso codice a più situazioni che insistono in un ambito ben determinato di valori, allora si utilizzerà '''TO''':
 Esempio:
@@ Riga 68: / Riga 67: @@
 Le modalità di verifica con la ''virgola'' e con il ''TO'' possono essere anche utilizzate contestualmente nel medesimo CASE.
 Esempio:
   '''SELECT CASE''' variabile
@@ Riga 82: / Riga 80: @@
 Se la verifica deve essere effettuata tra due o più variabili, si utilizzerà '''&''':
 Esempio:
@@ Riga 93: / Riga 90: @@
 ----

Vuott il 09:26, 22 mag 2013

2013-05-22T09:26:48Z

← Versione meno recente		Versione delle 03:26, 22 mag 2013
Riga 66:		Riga 66:


	Le modalità di verifica con la ''virgola'' e con il ''TO'' possono essere anche utilizzate contestualmente.		Le modalità di verifica con la ''virgola'' e con il ''TO'' possono essere anche utilizzate contestualmente nel medesimo CASE.

	----		----