Gambas-it.org - Wikipedia - Contributi dell'utente [it]

Pagina principale

2008-10-26T19:24:39Z

Pixel:

Pagina principale

2008-01-22T20:41:08Z

Pixel:

== [http://www.gambas-it.org Gambas-it] ==

<big><big>'''GUIDA GAMBAS'''</big></big>

* <big> '''[[Indice]]'''</big>

* <big> '''[[Lezioni]]'''</big>

==Risorse Esterne==
*[http://linuxpedia.netsons.org/index.php/Gambas Pagina di Gambas su Linuxpedia]

Lezioni

2008-01-22T20:39:45Z

Pixel:

== Premessa ==
In questa sezione del Wiki raccoglieremo un insieme di lezioni spiegate partendo dalla creazione dell'interfaccia fino alla scrittura del codice.

== Lezioni ==

* 001) [[Ciao Mondo]]

Label

2008-01-22T19:37:27Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_label.png
''' Visualizza del testo alfanumerico'''
----
'''Finestra delle Proprietà'''
''(Class)'' = nome del tipo di oggetto (non modificabile)
''(Name)'' = nome dell'oggetto
''(Group)'' = gruppo di appartenenza dell'oggetto
''Alignment'' = posizione del testo
''Autoresize'' = ridimensiona l'oggetto in base al testo (consigliato in congiunzione con proprietà ''Adjust'')
''Background'' = colore di sfondo dell'oggetto
''Border'' = tipo di bordo attorno all'oggetto
''Drop'' = imposta l'oggetto per ricevere del contenuto Drag/Drop
''Enabled'' = stato dell'oggetto (attivo o non attivo)
''Expand'' = abilita l'espansione delle dimensioni dell'oggetto all'interno di un contenitore
''Font'' = tipologia del carattere visualizzante il testo
''Foreground'' = colore del carattere
''Height'' = altezza dell'oggetto
''Ignore'' = imposta la neutralità dell'oggetto al ridimensionamento del contenitore
''Mouse'' = tipo di puntatore del mouse
''Padding'' = spaziatura della scrittura del testo a partire da sinistra
''Tag'' = informazioni durante il debug (da non utilizzare, assegnato dal sistema)
''Text'' = testo da visualizzare
''ToolTip'' = informazioni (ballon) sull'oggetto
''Transparent'' = decide se l'oggetto avrà lo sfondo trasparente
''Visible'' = imposta lo stato di visibilità dell'oggetto
''Width'' = larghezza dell'oggetto
''X'' = posizione dell'oggetto a partire dal lato sinistro del contenitore di appartenenza (per esempio di un Form)
''Y'' = posizione dell'oggetto a partire dall'alto del contenitore di appartenenza (per esempio di un Form)

'''Proprietà aggiuntive da codice'''
''Action'' = principalmente si utilizza per gestire eventi su oggetti facenti parte un gruppo
''Adjust'' = ridimensiona l'oggetto in base al testo (consigliato in congiunzione con proprietà ''Autoresize'' impostata su '''True''')
''Caption'' =
''Cursor'' =
''Delete'' =
''Design'' =
''Drag'' =
''Grab'' =
''H'' = altezza dell'oggetto (sinonimo di ''Height'')
''Handle'' =
''Id'' =
''Left'' =
''Lower'' =
''Move'' =
''MoveScaled'' =
''Next'' =
''Parent'' =
''Previous'' =
''Raise'' =
''Refresh'' =
''Reparent'' =
''Resize'' =
''ResizeScaled'' =
''ScreenX'' =
''ScreenY'' =
''SetFocus'' =
''Show'' =
''Top'' =
''W'' = larghezza dell'oggetto (sinonimo di ''Width'')
''Window'' =

'''Eventi'''

'''Metodi'''

'''Codice dimostrativo'''

Label

2008-01-22T19:25:35Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_label.png
''' Visualizza del testo alfanumerico'''
----
'''Finestra delle Proprietà'''
''(Class)'' = nome del tipo di oggetto (non modificabile)
''(Name)'' = nome dell'oggetto
''(Group)'' = gruppo di appartenenza dell'oggetto
''Alignment'' = posizione del testo
''Autoresize'' = ridimensiona l'oggetto in base al testo
''Background'' = colore di sfondo dell'oggetto
''Border'' = tipo di bordo attorno all'oggetto
''Drop'' = imposta l'oggetto per ricevere del contenuto Drag/Drop
''Enabled'' = stato dell'oggetto (attivo o non attivo)
''Expand'' = abilita l'espansione delle dimensioni dell'oggetto all'interno di un contenitore
''Font'' = tipologia del carattere visualizzante il testo
''Foreground'' = colore del carattere
''Height'' = altezza dell'oggetto
''Ignore'' = imposta la neutralità dell'oggetto al ridimensionamento del contenitore
''Mouse'' = tipo di puntatore del mouse
''Padding'' = spaziatura della scrittura del testo a partire da sinistra
''Tag'' = informazioni durante il debug (da non utilizzare, assegnato dal sistema)
''Text'' = testo da visualizzare
''ToolTip'' = informazioni (ballon) sull'oggetto
''Transparent'' = decide se l'oggetto avrà lo sfondo trasparente
''Visible'' = imposta lo stato di visibilità dell'oggetto
''Width'' = larghezza dell'oggetto
''X'' = posizione dell'oggetto a partire dal lato sinistro del contenitore di appartenenza (per esempio di un Form)
''Y'' = posizione dell'oggetto a partire dall'alto del contenitore di appartenenza (per esempio di un Form)

'''Proprietà aggiuntive da codice'''
''Action'' =
''Adjust'' =
''Caption'' =
''Cursor'' =
''Delete'' =
''Design'' =
''Drag'' =
''Grab'' =
''H'' =
''Handle'' =
''Id'' =
''Left'' =
''Lower'' =
''Move'' =
''MoveScaled'' =
''Next'' =
''Parent'' =
''Previous'' =
''Raise'' =
''Refresh'' =
''Reparent'' =
''Resize'' =
''ResizeScaled'' =
''ScreenX'' =
''ScreenY'' =
''SetFocus'' =
''Show'' =
''Top'' =
''W'' =
''Window'' =

'''Eventi'''

'''Metodi'''

'''Codice dimostrativo'''

Label

2008-01-22T19:14:27Z

Pixel:

ToolButton

2008-01-22T12:23:25Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_toolbutton.png
'''Esegue del codice alla pressione di un bottone'''
----

TextBox

2008-01-22T12:22:14Z

Pixel: TextBox moved to TextLabel

#REDIRECT [[TextLabel]]

TextLabel

2008-01-22T12:22:14Z

Pixel: TextBox moved to TextLabel

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_textlabel.png
'''Visualizza del testo alfanumerico'''
----

TextLabel

2008-01-22T12:22:00Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_textlabel.png
'''Visualizza del testo alfanumerico'''
----

TextLabel

2008-01-22T12:21:11Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_textbox.png
'''Visualizza del testo alfanumerico'''
----

Slider

2008-01-22T12:20:45Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_slider.png
'''Visualizza un selettore di quantità'''
----

PictureBox

2008-01-22T12:20:08Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_picturebox.png
'''Visualizza un'immagine'''
----

ListBox

2008-01-22T12:19:33Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_listbox.png
'''Visualizza un contenitore con una lista di oggetti'''
----

CheckBox

2008-01-22T12:18:49Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_checkbox.png
'''Permette la selezione di opzioni'''
----

Button

2008-01-22T12:18:08Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
'''Esegue del codice alla pressione di un bottone'''
----

RadioButton

2008-01-21T21:32:06Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_radio.png
''' Visualizza un'opzione di scelta'''
----

Progressbar

2008-01-21T21:31:02Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_progress.png
''' Visualizza un avanzamento percentuale'''
----

Label

2008-01-21T21:21:12Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_label.png
''' Visualizza del testo alfanumerico'''
----
'''Proprietà'''
''(Class)'' = nome del tipo di oggetto (non modificabile)
''(Name)'' = nome dell'oggetto
''(Group)'' = gruppo di appartenenza dell'oggetto
''Alignment'' = posizione del testo
''Autoresize'' = ridimensiona l'oggetto in base al testo
''Background'' = colore di sfondo dell'oggetto
''Border'' = tipo di bordo attorno all'oggetto
''Drop'' = imposta l'oggetto per ricevere del contenuto Drag/Drop
''Enabled'' = stato dell'oggetto (attivo o non attivo)
''Expand'' = abilita l'espansione delle dimensioni dell'oggetto all'interno di un contenitore
''Font'' = tipologia del carattere visualizzante il testo
''Foreground'' = colore del carattere
''Height'' = altezza dell'oggetto
''Ignore'' = imposta la neutralità dell'oggetto al ridimensionamento del contenitore
''Mouse'' = tipo di puntatore del mouse
''Padding'' = spaziatura della scrittura del testo a partire da sinistra
''Tag'' = informazioni durante il debug (da non utilizzare, assegnato dal sistema)
''Text'' = testo da visualizzare
''ToolTip'' = informazioni (ballon) sull'oggetto
''Transparent'' = decide se l'oggetto avrà lo sfondo trasparente
''Visible'' = imposta lo stato di visibilità dell'oggetto
''Width'' = larghezza dell'oggetto
''X'' = posizione dell'oggetto a partire dal lato sinistro del contenitore di appartenenza (per esempio di un Form)
''Y'' = posizione dell'oggetto a partire dall'alto del contenitore di appartenenza (per esempio di un Form)

'''Eventi'''

'''Metodi'''

Label

2008-01-21T20:40:42Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_label.png
''' Visualizza del testo alfanumerico'''
----
'''Proprietà'''

Label

2008-01-21T20:38:33Z

Pixel:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_label.png

SELECT CASE...CASE...END SELECT

2008-01-21T20:25:11Z

Pixel:

SELECT CASE variabile
CASE ''variabile(1)''
<<vostro codice 1>>
CASE ''variabile(2)''
<<vostro codice 2>>
CASE ''variabile(3)''
<<vostro codice 3>>
CASE ELSE oppure 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]] con la differenza che è più immediata e pulita la lettura del codice.
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'''

SELECT CASE key.Code
CASE key.Escape
Message.Info("premuto il tasto ESC")
CASE key.F1
Message.Info("premuto il tasto F1")
DEFAULT
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.

SELECT CASE...CASE...END SELECT

2008-01-21T20:15:07Z

Pixel:

Pagina principale

2008-01-20T20:12:57Z

Pixel:

== [http://www.gambas-it.org Gambas-it] ==

<big><big>'''GUIDA GAMBAS'''</big></big>

<big>'''[[Indice]]'''</big>

==Risorse Esterne==
*[http://linuxpedia.netsons.org/index.php/Gambas Pagina di Gambas su Linuxpedia]

Left..Right..Mid

2008-01-19T17:43:22Z

Pixel:

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 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.

Left..Right..Mid

2008-01-19T17:42:11Z

Pixel:

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 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.

Left..Right..Mid

2008-01-19T17:32:28Z

Pixel:

Left$(”Gambas-it.org”, 3)

Right$(”Gambas-it.org”, 3)

Mid$(”Gambas-it.org”, 4, 2)

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 Ubu.

RIGHT$ estrae i dati partendo da destra; guardando la riga di codice sopra riportato avremo la stampa della parola ner.

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 nt.

Attenzione, la posizione di partenza e l’intervallo è in funzione dei caratteri, la posizione 0 (zero) non esiste 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 = “UbuntuCorner”

FOR tmp = 1 TO Len(variabile)

IF Mid$(variabile, tmp, 3) = “tuC” 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 12.

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

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

ENDIF termina il codice iniziato con IF.

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

In seguito scopriremo anche sistemi automatizzati per estrapolare dei dati da una stringa.

Pagina principale

2008-01-18T10:28:07Z

Pixel:

== [http://www.gambas-it.org Gambas-it] ==

<big><big>'''GUIDA GAMBAS'''</big></big>

[http://www.gambas-it.org/wiki/index.php?title=Indice INDICE]

Left..Right..Mid

2008-01-17T12:33:20Z

Pixel: IF..THEN..ELSE moved to Left$..Right$..Mid$

Left..Right..Mid

2008-01-17T12:32:30Z

Pixel:

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

2008-01-17T10:58:12Z

Pixel:

DIM variabile AS Integer
FOR variabile = 1 TO 10
'''IF''' ''variabile'' = 5 '''THEN'''
<<vostro codice 1>>
'''ELSE'''
<<vostro codice 2>>
'''ENDIF'''
NEXT
''' Esegue una verifica condizionale.'''
----

Un’altro mattone fondamentale nella scrittura del codice è l’istruzione '''IF…THEN…ELSE''' (letteralmente se…allora…altrimenti).

''Spiegazione''

Per variabile che va’ da 1 a 10 se il valore di variabile è uguale a 5 esegue <<vostro codice 1>> altrimenti esegue <<vostro codice 2>> quindi procede con il prossimo valore di variabile.

''Esempio 1'' - '''Verifica condizionale immediata'''

IF variabile1 = variabile2 THEN <<vostro codice>>
''Spiegazione''

Se il valore di variabile1 è uguale a variabile2 allora esegui <<vostro codice>>.

In questo caso <<vostro codice>> sarà un'istruzione semplice ed immediata (un assegnazione di un valore ad una variabile, un uscita dal programma, una chiamata di un funzione).

''Esempio 2'' - '''Verifica condizionale complessa'''

IF variabile1 = variabile2 THEN
<<vostro codice>>
ENDIF

''Spiegazione''

Se il valore di variabile1 è uguale a variabile2 allora esegui <<vostro codice>>.

In questo caso <<vostro codice>> può essere anche di natura complessa (cicli For..Next, ulteriori istruzioni If..Then, ecc.).
L'istruzione ENDIF comunica al sistema la "chiusura" della verifica condizionale.

''Esempio 3'' - '''Verifica condizionale multipla'''

IF variabile1 = variabile2 THEN
<<vostro codice 1>>
ELSE
<<vostro codice 2>>
ENDIF

''Spiegazione''

Se il valore di variabile1 è uguale a variabile2 allora esegui <<vostro codice 1>>, altrimenti esegui <<vostro codice 2>>.

Le possibile scelte condizionali che offre l’istruzione IF…THEN sono:

'''=''' uguale (variabile1 = variabile2)

'''>''' maggiore (variabile1 > variabile2)

'''<''' minore (variabile1 < variabile2)

'''<>''' diverso (variabile1 <> variabile2)

'''>=''' maggiore o uguale (variabile1 >= variabile2)

'''<=''' minore o uguale (variabile1 <= variabile2)

FOR...NEXT

2008-01-17T10:25:47Z

Pixel:

'''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.")
EXIT
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à (EXIT) dal ciclo e non mostrerà più alcun messaggio.

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

2008-01-17T10:24:45Z

Pixel:

DIM variabile AS Integer
FOR variabile = 1 TO 10
'''IF''' ''variabile'' = 5 '''THEN'''
<<vostro codice>>
'''ELSE'''
<<vostro codice>>
'''ENDIF'''
NEXT

'''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.")
EXIT
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à (EXIT) dal ciclo e non mostrerà più alcun messaggio.

----

IF…THEN…ELSE
29 11 2007

DIM variabile AS Integer

FOR variabile = 1 TO 10

IF variabile = 5 THEN

PRINT “Trovato il numero”

ELSE

PRINT “Sto cercando il numero…”

ENDIF

NEXT

Un’altro mattone fondamentale nella scrittura di codice Basic (e quindi in Gambas) è l’istruzione IF…THEN…ELSE (letteralmente se…allora…altrimenti).

Come per l’esempio FOR…NEXT le righe di programma sopra riportate si trasformano in questo modo:

Per variabile che va’ da 1 a 10 se il valore di variabile è uguale a 5 stampa la frase ”Trovato il numero” altrimenti stampa la frase “Sto cercando il numero…” quindi procedi con il prossimo valore di variabile.

Sostituendo le parole al codice si avrebbe

Per variabile che va’ da 1 a 10

se il valore di variabile è uguale a 5

stampa la parola “Trovato il numero”

altrimenti

stampa la parola “Sto cercando il numero…”

quindi procedi con il prossimo valore di variabile

Analizziamo ogni singola riga per comprenderne meglio il significato:

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

FOR variabile = 1 TO 10 comunichiamo al sistema che valori può assumere variabile, ovvero da 1 a 10

IF variabile = 5 THEN comunichiamo al sistema che deve controllare il valore di variabile, se questo valore è uguale a 5 allora deve fare qualche cosa

PRINT “Trovato il numero” ad ogni valore di variabile uguale a 5 il sistema stampa la frase “Trovato il numero”, ovviamente tale frase sarà stampata una sola volta in quanto in un campo di numeri da 1 a 10, il numero 5 non è ripetuto.

ELSE con l’istruzione IF chiediamo al programma di verificare una rispondenza, se questa non si avvera il controllo passa all’istruzione ELSE (altrimenti) che esegue un’altra porzione di codice.

PRINT “Sto cercando il numero…” ad ogni valore di variabile che non sia uguale a 5 il sistema stampa la frase “Sto cercando il numero…”, tale frase sarà stampata 9 volte.

ENDIF termina il codice iniziato con IF.

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

A differenza dell’istruzione FOR…NEXT, IF…THEN può essere scritta anche in una linea sola evitando quindi l’utilizzo di ELSE ed ENDIF:

IF variabile = 5 THEN PRINT “Trovato il numero”

Se vogliamo stampare solo la frase “Trovato il numero” eviteremo l’utilizzo di ELSE:

DIM variabile AS Integer

FOR variabile = 1 TO 10

IF variabile = 5 THEN

PRINT “Trovato il numero”

ENDIF

NEXT

Le possibile scelte condizionali che offre l’istruzione IF…THEN sono:

= uguale (variabile = 5)

> maggiore (variabile > 5)

< minore (variabile > 5)

<> diverso (variabile <> 5)

>= maggiore o uguale (variabile >= 5)

<= minore o uguale (variabile <= 5)

Alcune istruzioni sono spiegate marginalmente in questo articolo in quanto già trattate precedentemente.

Pagina principale

2008-01-16T21:08:17Z

Pixel:

<big><big>'''GUIDA GAMBAS'''</big></big>

[http://www.gambas-it.org/wiki/index.php?title=Indice INDICE]

<big>'''MediaWiki has been successfully installed.'''</big>

Consult the [http://meta.wikipedia.org/wiki/MediaWiki_User%27s_Guide User's Guide] for information on using the wiki software.

== Getting started ==

* [http://www.mediawiki.org/wiki/Help:Configuration_settings Configuration settings list]
* [http://www.mediawiki.org/wiki/Help:FAQ MediaWiki FAQ]
* [http://mail.wikipedia.org/mailman/listinfo/mediawiki-announce MediaWiki release mailing list]

Pagina principale

2008-01-16T21:07:03Z

Pixel:

<big><big>'''GUIDA GAMBAS'''</big></big>

<big>'''MediaWiki has been successfully installed.'''</big>

Consult the [http://meta.wikipedia.org/wiki/MediaWiki_User%27s_Guide User's Guide] for information on using the wiki software.

== Getting started ==

* [http://www.mediawiki.org/wiki/Help:Configuration_settings Configuration settings list]
* [http://www.mediawiki.org/wiki/Help:FAQ MediaWiki FAQ]
* [http://mail.wikipedia.org/mailman/listinfo/mediawiki-announce MediaWiki release mailing list]

FOR...NEXT

2008-01-16T20:56:20Z

Pixel:

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.

Ovviamente è possibile eseguire dei cicli decrescenti

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 viene soddisfatto immediatamente.
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: VB=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.")
EXIT
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à (EXIT) dal ciclo e non mostrerà più alcun messaggio.