Differenze tra le versioni di "Scrivere nello Standard Input di un Terminale con un programma Gambas 'a riga di comando'"

Da Gambas-it.org - Wikipedia.
 
(5 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per scrivere nello ''Standard Input'' di un Terminale con un programma Gambas "''a riga di comando''", in modo tale che il processo di svolgimento di detto programma resti in attesa dell'immissione dei dati nel Terminale, si potranno utilizzare almeno cinque modalità.
+
Vi possono essere due situazioni in cui sia possibile scrivere nello ''Standard Input'' di un Terminale con un programma Gambas "''a riga di comando''", che sia stato in quel Terminale lanciato:  quella in cui il processo di svolgimento di detto programma si pone in attesa dell'immissione dei dati nel Terminale da parte dell'utente (in questo caso si potranno utilizzare almeno cinque modalità), e quella in cui durante lo svolgimento del programma sia possibile (come nel caso frequente in cui il programma è all'interno di un ciclo) inviare al programma medesimo dei valori scrivendo nel Terminale e premendo il tasto "Invio" della tastiera. <SUP>&#91;[[#Note|nota 1]]&#093;</sup>
  
−
Negli esempi a corredo si lancerà il programma Gambas ''a riga di comando'' dal Terminale. Il processo del programma si arresterà attendendo l'immissione di un valore (in questi casi) numerico e la pressione del tasto ''Invio''. Il programma Gambas raccoglierà il valore immesso nel Terminale e lo utilizzerà per una semplice moltiplicazione, il cui risultato sarà mostrato nel Terminale medesimo.
+
Negli esempi a corredo si lancerà il programma Gambas ''a riga di comando'' dal Terminale. Se si intende raccogliere un valore ''numerico'', allora per la lettura è sufficiente utilizzare l'istruzione ''Input''. Se si intende, invece, raccogliere un valore di tipo ''Stringa'' formato da ''due o più'' caratteri separati da uno spazio, allora si dovrà ovviamente utilizzare l'istruzione "Line Input".  
  
  
−
Le modalità, dunque, sono le seguenti:
+
==Con pausa nello scorrimento del codice==
 +
Le modalità, che vedremo di seguito, pongono il programma <SPAN Style="text-decoration:underline">in attesa</span> dell'immissione da parte dell'utente di uno o più caratteri. Il processo del programma si arresterà attendendo l'immissione di un valore (in questi casi) numerico e la pressione del tasto ''Invio''. Il programma Gambas raccoglierà il valore immesso nel Terminale e lo utilizzerà per una semplice moltiplicazione, il cui risultato sarà mostrato nel Terminale medesimo.
  
−
===con ''Input'' ed una variabile===
+
===con "Input" ed una variabile===
−
Questa è la modalità più semplice, la quale prevede l'istruzione ''Input'' seguita semplicemente da una variabile.
+
Questa è la modalità più semplice, la quale prevede l'istruzione "Input" seguita semplicemente da una variabile.
  
 
Esempio:
 
Esempio:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim v As Integer
 
   Dim v As Integer
 
   
 
   
−
  Input v
+
  Input v
 
   
 
   
−
  Print v * 10
+
  Print v * 10
 
   
 
   
−
  '''End'''
+
  End
  
  
−
===con la proprietà ''#File.In'' ed una variabile===
+
===con la Proprietà "#File.In" ed una variabile===
−
Quest'altra modalità prevede l'uso della proprietà ''.In'' della Classe ''File'' con il prefisso #, e seguita da una variabile.
+
Quest'altra modalità prevede l'uso della Proprietà ".In" della Classe ''File'' con il prefisso #, e seguita da una variabile.
  
 
Esempio:
 
Esempio:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim v As Integer
 
   Dim v As Integer
 
   
 
   
−
  Input #File.In, v
+
  Input #File.In, v
 
   
 
   
−
  Print v * 10
+
  Print v * 10
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 39: Riga 40:
 
Questa modalità prevede l'apertura in lettura del file-device ''/dev/stdin'' relativo al Terminale, ove è stato lanciato il programma Gambas.
 
Questa modalità prevede l'apertura in lettura del file-device ''/dev/stdin'' relativo al Terminale, ove è stato lanciato il programma Gambas.
 
Esempio:
 
Esempio:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim v As Integer
 
   Dim v As Integer
 
   Dim fl As File
 
   Dim fl As File
 
   
 
   
−
  fl = Open "/dev/stdin" For Read
+
  fl = Open "/dev/stdin" For Read
 
   
 
   
−
  Input #fl, v
+
  Input #fl, v
 
   
 
   
−
  Print v * 10
+
  Print v * 10
 
   
 
   
−
  fl.Close
+
  fl.Close
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 60: Riga 61:
  
 
Esempio:
 
Esempio:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim v As Integer
 
   Dim v As Integer
Riga 66: Riga 67:
 
   
 
   
 
  <FONT Color=gray>' ''Va individuato preventivamente il numero del file speciale "pts" relativo al Terminale, ove è stato lanciato il programma Gambas:''</font>
 
  <FONT Color=gray>' ''Va individuato preventivamente il numero del file speciale "pts" relativo al Terminale, ove è stato lanciato il programma Gambas:''</font>
−
  fl = Open "/dev/pts/<FONT Color=#B22222>n</font>" For Read
+
  fl = Open "/dev/pts/<FONT Color=#B22222>n</font>" For Read
 
   
 
   
−
  Input #fl, v
+
  Input #fl, v
 
   
 
   
−
  Print v * 10
+
  Print v * 10
 
   
 
   
−
  fl.Close
+
  fl.Close
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 81: Riga 82:
  
 
Esempio:
 
Esempio:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim v As Integer
 
   Dim v As Integer
Riga 87: Riga 88:
 
   
 
   
 
  <FONT Color=gray>' ''Va individuato preventivamente il numero del "processo" identificativo del Terminale, ove è stato lanciato il programma Gambas:''</font>
 
  <FONT Color=gray>' ''Va individuato preventivamente il numero del "processo" identificativo del Terminale, ove è stato lanciato il programma Gambas:''</font>
−
  fl = Open "/proc/<FONT Color=#B22222>numero del processo</font>/fd/0" For Read
+
  fl = Open "/proc/<FONT Color=#B22222>numero del processo</font>/fd/0" For Read
 
   
 
   
−
  Input #fl, v
+
  Input #fl, v
 
   
 
   
−
  fl.Close
+
  fl.Close
 
   
 
   
−
  '''End'''
+
  End
 +
 
 +
 
 +
===con l'apertura in lettura del file-device ''tty''===
 +
Questa modalità prevede l'apertura in lettura del file-device ''tty'', il quale rappresenta la console usata dal processo, relativo al Terminale ove è stato lanciato il programma Gambas:''</font>
 +
 
 +
Esempio:
 +
Public Sub Main()
 +
 +
  Dim v As Integer
 +
  Dim fl As File
 +
 +
  fl = Open "/dev/<FONT Color=#B22222>tty</font>" For Read
 +
 +
  Input #fl, v
 +
 +
  Print v * 10
 +
 +
  fl.Close
 +
 +
End
 +
 
 +
 
 +
==Senza pausa nello scorrimento del codice==
 +
Se invece il programma prevede ad esempio un ciclo o altra procedura (<SPAN Style="text-decoration:underline">senza che vi sia così un arresto, una pausa nello scorrimento del codice</span> come nei casi precedenti) che offre all'utente la possibilità di inviare eventualmente un valore (magari per uscire dal ciclo medesimo), allora si utilizzerà l'Evento "_Read()" della Classe ''Application''.
 +
 
 +
Mostriamo un esempio:
 +
Private s As String
 +
 +
 +
Public Sub Main()
 +
 +
  Repeat
 +
    Wait 0.01
 +
  Until s <> Null
 +
 +
  Print "Uscito dal ciclo !"
 +
 +
  Quit
 +
 +
End
 +
 +
 +
Public Sub <FONT Color=#B22222>Application_Read()</font>
 +
 +
  Input s
 +
 +
End
 +
Oppure cliccando sul tasto "Invio" della tastiera:
 +
Private bo as Boolean
 +
 +
 +
Public Sub Main()
 +
 +
  Repeat
 +
    Wait 0.01
 +
  Until bo
 +
 +
  Print "Uscito dal ciclo !"
 +
 +
  Quit
 +
 +
End
 +
 +
 +
Public Sub <FONT Color=#B22222>Application_Read()</font>
 +
 +
  bo = True
 +
 +
End
 +
 
 +
 
 +
 
 +
=Note=
 +
[1] Vedere anche questa pagina: [[Intercettare quanto viene scritto manualmente nella console o in un Terminale]]

Versione attuale delle 09:09, 7 gen 2024

Vi possono essere due situazioni in cui sia possibile scrivere nello Standard Input di un Terminale con un programma Gambas "a riga di comando", che sia stato in quel Terminale lanciato: quella in cui il processo di svolgimento di detto programma si pone in attesa dell'immissione dei dati nel Terminale da parte dell'utente (in questo caso si potranno utilizzare almeno cinque modalità), e quella in cui durante lo svolgimento del programma sia possibile (come nel caso frequente in cui il programma è all'interno di un ciclo) inviare al programma medesimo dei valori scrivendo nel Terminale e premendo il tasto "Invio" della tastiera. [nota 1]

Negli esempi a corredo si lancerà il programma Gambas a riga di comando dal Terminale. Se si intende raccogliere un valore numerico, allora per la lettura è sufficiente utilizzare l'istruzione Input. Se si intende, invece, raccogliere un valore di tipo Stringa formato da due o più caratteri separati da uno spazio, allora si dovrà ovviamente utilizzare l'istruzione "Line Input".


Con pausa nello scorrimento del codice

Le modalità, che vedremo di seguito, pongono il programma in attesa dell'immissione da parte dell'utente di uno o più caratteri. Il processo del programma si arresterà attendendo l'immissione di un valore (in questi casi) numerico e la pressione del tasto Invio. Il programma Gambas raccoglierà il valore immesso nel Terminale e lo utilizzerà per una semplice moltiplicazione, il cui risultato sarà mostrato nel Terminale medesimo.

con "Input" ed una variabile

Questa è la modalità più semplice, la quale prevede l'istruzione "Input" seguita semplicemente da una variabile.

Esempio: 

Public Sub Main()

 Dim v As Integer

 Input v

 Print v * 10

End


con la Proprietà "#File.In" ed una variabile

Quest'altra modalità prevede l'uso della Proprietà ".In" della Classe File con il prefisso #, e seguita da una variabile.

Esempio: 

Public Sub Main()

 Dim v As Integer

 Input #File.In, v

 Print v * 10

End


con l'apertura in lettura del file-device stdin del Terminale

Questa modalità prevede l'apertura in lettura del file-device /dev/stdin relativo al Terminale, ove è stato lanciato il programma Gambas. Esempio: 

Public Sub Main()

 Dim v As Integer
 Dim fl As File

 fl = Open "/dev/stdin" For Read

 Input #fl, v

 Print v * 10

 fl.Close

End


con l'apertura in lettura del file speciale pts del Terminale

Questa modalità prevede l'apertura in lettura del file speciale pts relativo al Terminale, ove è stato lanciato il programma Gambas.

Esempio: 

Public Sub Main()

 Dim v As Integer
 Dim fl As File

' Va individuato preventivamente il numero del file speciale "pts" relativo al Terminale, ove è stato lanciato il programma Gambas:
 fl = Open "/dev/pts/n" For Read

 Input #fl, v

 Print v * 10

 fl.Close

End


con l'apertura in lettura del file-descriptor del Terminale

Questa modalità prevede l'apertura in lettura del file-descriptor relativo al Terminale, ove è stato lanciato il programma Gambas.

Esempio: 

Public Sub Main()

 Dim v As Integer
 Dim fl As File

' Va individuato preventivamente il numero del "processo" identificativo del Terminale, ove è stato lanciato il programma Gambas:
 fl = Open "/proc/numero del processo/fd/0" For Read

 Input #fl, v

 fl.Close

End


con l'apertura in lettura del file-device tty

Questa modalità prevede l'apertura in lettura del file-device tty, il quale rappresenta la console usata dal processo, relativo al Terminale ove è stato lanciato il programma Gambas:</font>

Esempio: 

Public Sub Main()

 Dim v As Integer
 Dim fl As File

 fl = Open "/dev/tty" For Read

 Input #fl, v

 Print v * 10

 fl.Close

End


Senza pausa nello scorrimento del codice

Se invece il programma prevede ad esempio un ciclo o altra procedura (senza che vi sia così un arresto, una pausa nello scorrimento del codice come nei casi precedenti) che offre all'utente la possibilità di inviare eventualmente un valore (magari per uscire dal ciclo medesimo), allora si utilizzerà l'Evento "_Read()" della Classe Application.

Mostriamo un esempio: 

Private s As String


Public Sub Main()

 Repeat
   Wait 0.01
 Until s <> Null

 Print "Uscito dal ciclo !"

 Quit

End


Public Sub Application_Read()

 Input s

End

Oppure cliccando sul tasto "Invio" della tastiera: 

Private bo as Boolean


Public Sub Main()

 Repeat
   Wait 0.01
 Until bo

 Print "Uscito dal ciclo !"

 Quit

End


Public Sub Application_Read()

 bo = True

End


Note

[1] Vedere anche questa pagina: Intercettare quanto viene scritto manualmente nella console o in un Terminale

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Scrivere_nello_Standard_Input_di_un_Terminale_con_un_programma_Gambas_%27a_riga_di_comando%27&oldid=36060"