Differenze tra le versioni di "Attendere in un'applicazione 'a riga di comando' la pressione del tasto 'Invio'"
Da Gambas-it.org - Wikipedia.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 3: | Riga 3: | ||
Modo mostriamo il seguente semplice esempio: | Modo mostriamo il seguente semplice esempio: | ||
Private bo As Boolean | Private bo As Boolean | ||
| + | |||
Public Sub Main() | Public Sub Main() | ||
| Riga 10: | Riga 11: | ||
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 20: | ||
| − | 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 | ||
| + | |||
| + | 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 | ||
| + | |||
| + | <FONT Color=gray>' ''Il codice si arresta qui, sino a che non sarà premuto il tasto "Invio":''</font> | ||
| + | Input s | ||
| + | |||
| + | Print "E' stato premuto il tasto 'Invio' !" | ||
End | End | ||
Versione attuale delle 13:11, 1 lug 2024
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
