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 ...) |
|||
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 delle 04:56, 1 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 Read Write ' Viene aperto il file speciale che rappresenta il Terminale aperto all'inizio: fl1 = Open "/dev/pts/1" For Read Write End Public Sub File_Read() Dim s, s2 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