Differenze tra le versioni di "Indirizzare dati ad un Terminale ed alla Console dell'IDE di Gambas"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo qui il caso in cui, intercettati dati da un file, essi vengono prima indirizzati contemporaneamente ad una finestra Terminale ed alla Console dell'IDE di Gambas, nonché ad ...) |
|||
(2 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 21: | Riga 21: | ||
<FONT color=#006400>' ''Viene aperto il file speciale che rappresenta la console dell'IDE di Gambas:''</font> | <FONT color=#006400>' ''Viene aperto il file speciale che rappresenta la console dell'IDE di Gambas:''</font> | ||
− | fl0 = Open "/dev/pts/0" For | + | fl0 = Open "/dev/pts/0" For Write |
<FONT color=#006400>' ''Viene aperto il file speciale che rappresenta il Terminale aperto all'inizio:''</font> | <FONT color=#006400>' ''Viene aperto il file speciale che rappresenta il Terminale aperto all'inizio:''</font> | ||
− | fl1 = Open "/dev/pts/1" For | + | fl1 = Open "/dev/pts/1" For Write |
'''End''' | '''End''' | ||
Riga 31: | Riga 31: | ||
'''Public''' Sub File_Read() | '''Public''' Sub File_Read() | ||
− | Dim s | + | Dim s As String |
Riga 38: | Riga 38: | ||
Output To #fl1 | Output To #fl1 | ||
<FONT color=#006400>' ''Scrive nel Terminale:''</font> | <FONT color=#006400>' ''Scrive nel Terminale:''</font> | ||
− | Print s; | + | Print s; <FONT color=#006400>' ''...o anche: Write #fl1, s''</font> |
Riga 44: | Riga 44: | ||
Output To #fl0 | Output To #fl0 | ||
<FONT color=#006400>' ''Scrive nella Console dell'IDE di Gambas:''</font> | <FONT color=#006400>' ''Scrive nella Console dell'IDE di Gambas:''</font> | ||
− | Print s; | + | Print s; <FONT color=#006400>' ''...o anche: Write #fl0, s''</font> |
<FONT color=#006400>' ''Scrive quindi anche nella "TextArea":''</font> | <FONT color=#006400>' ''Scrive quindi anche nella "TextArea":''</font> |
Versione attuale delle 14:51, 6 set 2012
Mostreremo qui il caso in cui, intercettati dati da un file, essi vengono prima indirizzati contemporaneamente ad una finestra Terminale ed alla Console dell'IDE di Gambas, nonché ad una TextArea posta sul Form del progetto.
Per questo seguente esempio è necessario impostare anche il componente: gb.desktop
Private hp As File Private fl0 As File Private fl1 As File Public Sub Form_Open() ' Viene aperto un Terminale: Desktop.OpenTerminal End Public Sub Button1_Click() hp = Open "percorso_file_di_cui_intercettare_i_dati" For Read Watch ' Viene aperto il file speciale che rappresenta la console dell'IDE di Gambas: fl0 = Open "/dev/pts/0" For Write ' Viene aperto il file speciale che rappresenta il Terminale aperto all'inizio: fl1 = Open "/dev/pts/1" For Write End Public Sub File_Read() Dim s As String Read #hp, s, -256 ' Ridirige i dati dalla console di Gambas al Terminale aperto: Output To #fl1 ' Scrive nel Terminale: Print s; ' ...o anche: Write #fl1, s ' Ridirige, inoltre, i dati anche alla Console di Gambas: Output To #fl0 ' Scrive nella Console dell'IDE di Gambas: Print s; ' ...o anche: Write #fl0, s ' Scrive quindi anche nella "TextArea": TextArea1.Text = TextArea1.Text & s End