'''<destinazione> = iif( <condizione>, <valore_se_vero>, <valore_se_falso> )'''

Traduzione in funzione delle istruzioni [[IF...THEN...ELSE...ENDIF]].

La funzione valuta l'espressione contenuta nel primo parametro (<condizione>), che può essere un qualsiasi tipo di confronto tra variabili o valori di ogni tipo, e ritorna il valore impostato nel secondo parametro (<valore_se_vero>), altrimenti ritorna il terzo valore (<valore_se_falso>).
A differenza da alcune precedenti versioni, i tre parametri sono tutti obbligatori, e devono ritornare dati di tipo corrispondente o accettato dalla variabile di destinazione.

Esempio:
----
DIM var AS String = Iif( "ABC" = "CBA", "Uguale", "Diverso" )
...
DIM num AS Integer = 10
DIM var AS Integer = Iif( num > 10, 10, num )
...
----

E' possibile annidare più funzioni di test, in modo da simulare più istruzioni "IF...ELSE...ELSE IF...ENDIF":
----
DIM codice AS String = "IT"
DIM nazione AS String = Iif( test = "IT", "Italia", Iif( test = "FR", "Francia", Iif( test = "ES", "Spagna", "Non valido")))
----
Nell'esempio viene ritornato il nome della nazione, corrispondente al valore contenuto nella variabile codice; nel caso specifico, l'istruzione si fermerà alla prima IIF, ritornando la stringa "Italia". Nel caso questo non sia vero, il test verrà effettuato dalla successiva IIF in cascata; se tutte le verifiche non soddisferanno i requisiti, verrà ritornata l'ultima stringa <false> dell'ultima istruzione di test.

Sfruttando la possibilità in Gambas, di continuare un'istruzione su più righe, si può scrivere il codice dell'esempio nel modo seguente (ricordando che in questo caso è la virgola che lega le varie righe):
----
DIM codice AS String = "IT"
DIM nazione AS String = Iif( test = "IT", "Italia",
Iif( test = "FR", "Francia",
Iif( test = "ES", "Spagna", "Non valido")))
----

'''Nota''': l'utilizzo di questa funzione, in particolare nell'esecuzione di verifiche multiple (come da ultimo esempio), deve essere valutata attentamente, per non incorrere in problemi di leggibilità del codice. Di norma l'usa è limitato al test di una singola condizione, e permette di scrivere meno codice, rispetto alle istruzioni pure IF...ENDIF.

Md9327: For..Next moved to FOR...NEXT: Parole chiave, non funzioni

#REDIRECT [[FOR...NEXT]]

FOR...NEXT

2008-09-28T10:57:42Z

Md9327: For..Next moved to FOR...NEXT: Parole chiave, non funzioni

'''FOR''' ''variabile'' '''=''' ''valore1'' '''TO''' ''valore2'' [ '''STEP''' ''valore3'' ]
<<vostro codice>>
'''NEXT'''

''' Ripete un ciclo incrementando o decrementando un valore. '''
----

''Esempio 1'' - '''Ciclo crescente semplice'''

DIM variabile AS Integer
'''FOR variabile = 0 TO 10'''
Message.Info("Numero " & Str$(variabile))
'''NEXT'''
''Spiegazione''

Per ogni valore da 0 a 10 che può assumere variabile, mostra il messaggio "Numero" ed il valore di variabile. In questo caso saranno mostrati tutti i messaggi con i seguenti numeri: 0-1-2-3-4-5-6-7-8-9-10.

''Esempio 2'' - '''Ciclo crescente con passo'''

DIM variabile AS Integer
'''FOR variabile = 0 TO 10 STEP 2'''
Message.Info("Numero " & Str$(variabile))
'''NEXT'''
''Spiegazione''

Per ogni valore da 0 a 10 con passo (STEP) 2 che può assumere variabile, mostra il messaggio "Numero" ed il valore di variabile. In questo caso saranno mostrati i messaggi con questi numeri: 0-2-4-6-8-10.

''Esempio 3'' - '''Ciclo decrescente con passo'''

DIM variabile AS Integer
'''FOR variabile = 10 TO 0 STEP -2'''
Message.Info("Numero " & Str$(variabile))
'''NEXT'''
''Spiegazione''

Per ogni valore da 10 a 0 con passo (STEP) -2 che può assumere variabile, mostra il messaggio "Numero" ed il valore di variabile. In questo caso saranno mostrati i messaggi con questi numeri: 10-8-6-4-2-0. Siccome per definizione di linguaggio un ciclo FOR..NEXT è crescente (1-2-3-ecc.) in caso venga omesso il comando STEP -2 non sarà mostrato alcun messaggio in quanto il nostro codice risulterà soddisfatto immediatamente.

----
''Nota''

''Chi ha già esperienza di programmazione in Visual Basic avrà notato che dopo l'istruzione NEXT non è stato specificato a quale variabile si fa' riferimento:

''Visual Basic'' = '''NEXT''' ''variabile''

''Gambas'' = '''NEXT'''

In realtà questo è superfluo per il semplice motivo che un ciclo FOR...NEXT è fine a se stesso e di tipo concentrico: ogni istruzione FOR deve concludersi con una istruzione NEXT.''
----

''Esempio 4'' - '''Cicli nidificati'''

DIM variabile AS Integer
DIM variabile1 AS Integer
DIM variabile2 AS Integer
'''FOR variabile = 0 TO 10'''
'''FOR variabile1 = 0 TO 10'''
'''FOR variabile2 = 0 TO 10'''
Message.Info("Numero " & Str$(variabile) & Str$(variabile1) & Str$(variabile2))
'''NEXT'''
'''NEXT'''
'''NEXT'''
''Spiegazione''

Al primo avvio variabile assume il valore 0, variabile1 assume il valore 0 e variabile2 assume il valore 0. Il primo valore che viene incrementato è quello riferito a variabile2, quando questa arriva a 10 il sistema passa il controllo a variabile1 e così via fino a che variabile assume valore 10, variabile1 valore 10 e variabile2 valore 10. Possiamo quindi notare che all'interno di un codice FOR...NEXT composto da vari cicli nidificati la priorità di esecuzione è sempre riferita all'ultimo ciclo scritto.

''Esempio 5'' - '''Uscita anticipata'''

DIM variabile AS Integer
'''FOR variabile = 0 TO 10'''
IF variabile = 5 then
Message.Info("Esco dal ciclo.")
'''BREAK'''
ENDIF
Message.Info("Numero " & Str$(variabile))
'''NEXT'''
''Spiegazione''

Il programma mostrerà i messaggi per ogni valore di variabile da 0 a 4; quando variabile raggiunge il valore 5 il sistema uscirà (BREAK) dal ciclo e non mostrerà più alcun messaggio.

----
La sintassi FOR...NEXT viene in aiuto anche nel caso di loop su array e oggetti array, nel caso ci interessi solo il contenuto dell'array e non il numero di cicli effettuati:

''Esempio 6'' - '''Ciclo su array stringa'''

DIM variabile AS String[10]
DIM valore as String
'''FOR EACH valore IN variabile'''
PRINT valore
'''NEXT'''
''Spiegazione''

Come si può vedere dall'esempio, sono state inserite le parole chiave '''EACH''' e '''IN''', che indicano al ciclo di prendere tutti i valori includi nell'array 'variabile', uno per volta, di copiarli in 'valore', e di renderli disponibili alle istruzioni incluse nel loop. A questo punto pare evidente che la gestione di come e dove andare a prendere i dati è demandata al ciclo FOR, e a noi non resta che prenderci il valore restituito ogni volta, e manipolarlo come vogliamo, senza doverci neppure preoccupare di modificare l'array stesso, dato che la variabile 'value' contiene solo una copia del corrente elemento dell'array.
La sintassi è valida per ogni tipo di oggetto di tipo array, comprese le '''Collection'''.

IF...THEN...ELSE...ENDIF

2008-09-25T23:13:18Z

Md9327:

SELECT CASE...CASE...END SELECT

2008-09-25T23:07:12Z

Md9327:

Left..Right..Mid

2008-09-25T23:02:23Z

Md9327: Left$..Right$..Mid$ moved to Left..Right..Mid: Left$..Right$..Mid$ sono alias e riminiscenze di Basic

Left(”Gambas-it.org”, 3)
Right(”Gambas-it.org”, 3)
Mid(”Gambas-it.org”, 4, 2)
''' Estrapola una porzione di testo da una stringa'''
----
Non c’è niente da fare, prima o poi capiterà di dover manipolare i dati presenti in una stringa di testo.
Gambas2 ci viene in aiuto con queste tre istruzioni:
'''Left''' (sinistra)
'''Right''' (destra)
'''Mid''' (in mezzo)

L’utilizzo di queste istruzioni è molto semplice:

'''Left''' estrae i dati partendo da sinistra; guardando la riga di codice sopra riportato avremo la stampa della parola ''Gam''.

'''Right''' estrae i dati partendo da destra; guardando la riga di codice sopra riportato avremo la stampa della parola ''org''.

'''Mid''' estrae i dati partendo da una posizione specificata e con un intervallo specificato; guardando la riga di codice sopra riportato avremo la stampa della parola ''as''.

Attenzione, la posizione di partenza e l’intervallo è in funzione dei caratteri, la posizione 0 (zero) non esiste (il primo carattere di una stringa è sempre a posizione 1), e l’intervallo è il numero di caratteri da estrapolare.

Vediamo di seguito come estrapolare una parte di una parola con un esempio di codice che potrà tornarci utile nei nostri progetti:

----

DIM variabile AS String
DIM tmp AS Integer
variabile = “Gambas-it.org”
FOR tmp = 1 TO Len(variabile)
IF '''Mid(variabile, tmp, 3)''' = “bas” THEN
Message.Info(”Trovata la parola ” & '''Mid(variabile, tmp, 3)''')
ENDIF
NEXT

----

Analizziamo ogni singola riga per comprenderne meglio il significato:

''DIM variabile AS String'' dichiarazione della variabile (nome e tipo)

''DIM tmp AS Integer'' dichiarazione della variabile (nome e tipo)

''FOR tmp = 1 TO Len(variabile)'' comunichiamo al sistema che valori può assumere tmp, ovvero da 1 alla lunghezza (Len) di variabile, nel nostro caso 13.

''IF Mid(variabile, tmp, 3) = “bas” THEN'' chiediamo al sistema che deve controllare il valore di variabile (o meglio il 'Mid' di variabile), se questo valore è uguale a “bas” allora deve fare qualche cosa

''Message.Info(”Trovata la parola ” & Mid(variabile, tmp, 3))'' ad ogni valore di variabile uguale a “bas” il sistema stampa la frase “Trovata la parola ” e la parola trovata, ovviamente tale frase sarà stampata una sola volta in quanto la parola “bas” è presente una sola volta all’interno di “Gambas-it.org”.

''ENDIF'' termina il codice iniziato con IF.

''NEXT'' procediamo con un nuovo valore fino al raggiungimento del numero 13.

----

'''Nota:''' Le istruzioni descritte hanno le stesse funzioni di quelle in Visual Basic, e in Gambas esistono anche le nomenclature classiche del Basic: '''Left$''', '''Right$''' e '''Mid$'''. Questi alias sono presenti per compatibilità con il Visual Basic, e probilmente scompariranno (come alias) dalle librerie di Gambas.