Conoscere in tempo reale il file-device "pts" dell'ultimo Terminale appena aperto
Da Gambas-it.org - Wikipedia.
Versione del 8 ott 2014 alle 19:16 di Vuott (Discussione | contributi) (Creata pagina con 'Per conoscere in tempo reale il file-device "pts" dell'ultimo Terminale appena aperto, ci serviremo di un ciclo: '''Public''' Sub Main() Dim fl As File Dim b As Byte ...')
Per conoscere in tempo reale il file-device "pts" dell'ultimo Terminale appena aperto, ci serviremo di un ciclo:
Public Sub Main() Dim fl As File Dim b As Byte Dim s As String ' Verifichiamo innanzitutto quanti file 'pts' ono presenti in '/dev/pts': b = Dir("/dev/pts", Null, gb.Device).Count Do Wait 0.01 Loop Until b < Dir("/dev/pts", Null, gb.Device).Count ' L'ultimo file 'pts' creato è posizionato nel 1° elemento del vettore generato dalla funzione "Dir()": s = Dir("/dev/pts", Null, gb.Device)[0] Print "Il file 'pts' del Terminale appena aperto è: "; s ' Scriviamo qualcosa nel Terminale che è stato appena aperto: fl = Open "/dev/pts" &/ s For Write Write #fl, "Questa è\nuna prova !\n" fl.Close End