Differenze tra le versioni di "Attendere in un'applicazione 'a riga di comando' la pressione del tasto 'Invio'"
Da Gambas-it.org - Wikipedia.
Riga 20: | Riga 20: | ||
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 delle 15:36, 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 ' Poiché si usa l'Evento "Application_Read()", per terminare il programma è necesario prevedere alla fine l'istruzione "Quit": Quit End Public Sub Application_Read() 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