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> | <FONT color=#006400>' ''Poniamo un ritardo, al fine di impedire un uso eccessivo della CPU:''</font> | ||
Sleep 0.5 | 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
