Differenze tra le versioni di "Visualizzare il tempo trascorso dall'ultimo avvio del sistema"
Da Gambas-it.org - Wikipedia.
Riga 24: | Riga 24: | ||
TextLabel1.text = qq[0] | TextLabel1.text = qq[0] | ||
+ | |||
+ | <FONT color=#006400>' ''Poniamo un ritardo, al fine di impedire un uso eccessivo della CPU:''</font> | ||
+ | Sleep 0.5 | ||
'''End''' | '''End''' |
Versione delle 22:45, 22 ago 2012
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 Form_Open() fl = Open "/proc/uptime" For Read Watch End Public Sub File_Read() Dim q As String Dim qq As String[] q = File.Load("/proc/uptime") ' Raccogliamo solo il primo dato: qq = Split(q, " ") TextLabel1.text = qq[0]
' Poniamo un ritardo, al fine di impedire un uso eccessivo della CPU: Sleep 0.5 End