Differenze tra le versioni di "Visualizzare il tempo trascorso dall'ultimo avvio del sistema"
Da Gambas-it.org - Wikipedia.
Riga 33: | Riga 33: | ||
<FONT color=gray>' ''Poniamo ad esempio un ritardo di 5 decimi di secondo:''</font> | <FONT color=gray>' ''Poniamo ad esempio un ritardo di 5 decimi di secondo:''</font> | ||
Sleep 0.5 | Sleep 0.5 | ||
+ | |||
+ | ar.Close | ||
'''End''' | '''End''' |
Versione delle 09:23, 30 giu 2015
Per visualizzare il tempo trascorso dall'ultimo avvio del proprio sistema, si andrà a leggere il primo dato presente nel file: /proc/uptime. Otterremo qui questo risultato senza l'uso di Shell.
Private fl As File Public Sub Main() fl = Open "/proc/uptime" For Read Watch End Public Sub File_Read() Dim s As String Dim p As Pointer Dim ar As File ' Apriamo nuovamente il file, ma ora per la lettura e la conseguente raccolta dei dati: ar = Open "/proc/uptime" For Read ' Leggiamo solo i primi 7 byte del flusso: Read #ar, s, 7 ' Poiché dopo i 7 caratteri vi è un byte di valore zero (Nul), ci serviamo del "Puntatore" per escludere tutto ciò che v'è da quel valore zero in poi: p = VarPtr(s) ' Viene finalmente mostrato il risultato in console: Print String@(p) ' Poniamo ad esempio un ritardo di 5 decimi di secondo: Sleep 0.5 ar.Close End