WAIT
Il comando WAIT serve ad indicare a Gambas di fermare l'esecuzione dell'applicazione in attesa di un evento. La sintassi è:
<<codice 1>> WAIT [n] <<codice 2>>
Se n è specificato, WAIT attende n secondi prima di proseguire con l'esecuzione delle istruzioni contenute in <<codice 2>>.
In genere WAIT è utilizzato per attendere l'esecuzione di un evento. Inserito in qualunque parte del programma, ferma l'esecuzione dello stesso ed aggiorna l'interfaccia grafica (l'aggiornamento dell'interfaccia è inserita in un ciclo di operazioni che l'interprete esegue ad intervalli regolari).
La parola chiave WAIT può essere seguita da un valore numerico decimale (es.: 0.1 oppure 1 oppure anche 10) che indica i secondi di attesa che vogliamo impostare. Nel caso n assuma valore 1 il programma attenderà 1 secondo prima di eseguire le istruzioni successive. Analogamente se n vale 0.1 o 10 saranno attesi 0.1 o 10 secondi. La specificazione di un valore di attesa modifica anche l'esecuzione del comando: infatti, oltre ad aggiornare l'interfaccia grafica e ad attendere per un determinato lasso di tempo, Gambas gestisce anche gli eventi della tastiera e del mouse, permettendo quindi all'utente di interagire con il programma.
Esempio 1 - Attesa prima della visione di un messaggio (riga di comando)
PUBLIC SUB Main() WAIT 1 PRINT "Gambas è il migliore!" END
Spiegazione
L'esempio molto semplice è eseguito sul codice di un programma da riga di comando. Si noti come WAIT fa in modo che quando il programma viene lanciato attende un secondo prima di mostrare il messaggio "Gambas è il migliore!".
Attesa del completamento di un comando
La parola-chave Wait può essere utilizzata anche per attendere che l'operazione, che un comando - lanciato con Shell o Exec - deve svolgere, sia completata, prima di passare alla riga successiva del codice.
Mostriamo un esempio, nel quale si cambieranno i permessi del file-device protetto "/dev/stdout" prima che questo possa essere aperto in scrittura:
Public Sub Main() Dim dev As String Dim fl As File dev = "/dev/stdout" Shell "echo 'password' | sudo -S chmod 666 " & dev Wait ' Resta in attesa, finché il cambio dei permessi del file-device non è completato fl = Open dev For Write Write #fl, "testo qualsiasi" fl.Close End
