Differenze tra le versioni di "Indirizzare dati da un programma ad un altro e ad un Terminale"
Da Gambas-it.org - Wikipedia.
| Riga 21: | Riga 21: | ||
<FONT color=#006400>' ''Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta la console dell'IDE di Gambas:''</font> | <FONT color=#006400>' ''Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta la console dell'IDE di Gambas:''</font> | ||
| − | fl1 = Open "/dev/pts/''<FONT color=#B22222>N1</font>''" For Write <FONT color=#006400>' ''...o anche: Output''</font> | + | fl1 = Open "/dev/pts/''<FONT color=#B22222>N1</font>''" For Write <FONT color=#006400>' ''...o anche: '''Output'''''</font> |
<FONT color=#006400>' ''Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta il Terminale aperto all'inizio:''</font> | <FONT color=#006400>' ''Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta il Terminale aperto all'inizio:''</font> | ||
| − | fl2 = Open "/dev/pts/''<FONT color=#B22222>N2</font>''" For Write <FONT color=#006400>' ''...o anche: Output''</font> | + | fl2 = Open "/dev/pts/''<FONT color=#B22222>N2</font>''" For Write <FONT color=#006400>' ''...o anche: '''Output'''''</font> |
'''End''' | '''End''' | ||
| Riga 39: | Riga 39: | ||
Output To #fl1 | Output To #fl1 | ||
<FONT color=#006400>' ''Scrive nell'altro programma:''</font> | <FONT color=#006400>' ''Scrive nell'altro programma:''</font> | ||
| − | Print s; <FONT color=#006400>' ''...o anche: Write #fl1, s''</font> | + | Print s; <FONT color=#006400>' ''...o anche: '''Write''' #fl1, s''</font> |
<FONT color=#006400>' ''Quindi scrive nel programma:''</font> | <FONT color=#006400>' ''Quindi scrive nel programma:''</font> | ||
| − | Print s; <FONT color=#006400>' ''...o anche: Write #fl1, s''</font> | + | Print s; <FONT color=#006400>' ''...o anche: '''Write''' #fl1, s''</font> |
<FONT color=#006400>' ''Ridirige, inoltre, i dati anche al Terminale:''</font> | <FONT color=#006400>' ''Ridirige, inoltre, i dati anche al Terminale:''</font> | ||
Versione delle 07:24, 16 feb 2013
Il caso in questione è quello in cui si inviano dati da un programma Gambas ad un altro programma Gambas e ad un Terminale.
Nel primo esempio, letti i dati da un file, vengono indirizzati contemporaneamente ad una finestra Terminale ed alla Console dell'IDE di Gambas. Per l'esempio seguente è necessario impostare anche il componente gb.desktop:
Private fl0 As File
Private fl1 As File
Private fl2 As File
Public Sub Form_Open()
' Viene aperto un Terminale:
Desktop.OpenTerminal
End
Public Sub Button1_Click()
fl0 = Open "percorso_file_di_cui_intercettare_i_dati" For Read Watch
' Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta la console dell'IDE di Gambas:
fl1 = Open "/dev/pts/N1" For Write ' ...o anche: Output
' Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta il Terminale aperto all'inizio:
fl2 = Open "/dev/pts/N2" For Write ' ...o anche: Output
End
Public Sub File_Read()
Dim s As String
' Legge i dati dal file:
Read #fl0, s, -256
' Ridirige i dati dalla console di Gambas all'altro programma:
Output To #fl1
' Scrive nell'altro programma:
Print s; ' ...o anche: Write #fl1, s
' Quindi scrive nel programma:
Print s; ' ...o anche: Write #fl1, s
' Ridirige, inoltre, i dati anche al Terminale:
Output To #fl2
' Scrive quindi anche in una "TextArea" del programma principale:
TextArea1.Text = TextArea1.Text & s
End
