Differenze tra le versioni di "Attendere in un'applicazione 'a riga di comando' la pressione del tasto 'Invio'"
Da Gambas-it.org - Wikipedia.
Riga 10: | Riga 10: | ||
wait 0.01 | wait 0.01 | ||
Until bo | Until bo | ||
+ | |||
+ | Print "E' stato premuto il tasto 'Invio' !" | ||
<FONT Color=gray>' ''Poiché si usa l'Evento "Application_Read()", per terminare il programma è necesario prevedere alla fine l'istruzione "Quit":''</font> | <FONT Color=gray>' ''Poiché si usa l'Evento "Application_Read()", per terminare il programma è necesario prevedere alla fine l'istruzione "Quit":''</font> | ||
Riga 17: | Riga 19: | ||
− | Public Sub Application_Read() | + | Public Sub Application_Read() <FONT Color=gray>' ''Questo Evento sarà sollevato con la pressione del tasto "Invio"</font> |
bo = True | bo = True |
Versione attuale delle 15:40, 20 nov 2023
Per determinare in un'applicazione a riga di comando (quindi lanciata da Terminale) la semplice e sola attesa della pressione del tasto Invio, potrà essere utilizzato l'Evento "_Read()" della Classe Application.
Modo mostriamo il seguente semplice esempio:
Private bo As Boolean Public Sub Main() ' Il ciclo continua, finché la variabile "bo" non sarà diventata "Vera": Repeat wait 0.01 Until bo Print "E' stato premuto il tasto 'Invio' !" ' Poiché si usa l'Evento "Application_Read()", per terminare il programma è necesario prevedere alla fine l'istruzione "Quit": Quit End Public Sub Application_Read() ' Questo Evento sarà sollevato con la pressione del tasto "Invio" bo = True End
Uso dell'istruzione Input
Volendo, si potrà usare anche l'istruzione Input. Contestualmente si dovrà usare anche una variabile di tipo Stringa che servirà soltanto per consentire l'uso dell'istruzione Input.
Mostriamo un esempio pratico:
Public Sub Main() Dim s As String ' Il codice si arresta qui, sino a che non sarà premuto il tasto "Invio": Input s Print "E' stato premuto il tasto 'Invio' !" End