Indirizzare dati da un programma ad un altro e ad un Terminale

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

' Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta il Terminale aperto all'inizio:
 fl2 = Open "/dev/pts/N2" For Write
 
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