Visualizzare il tempo trascorso dall'ultimo avvio del sistema

Da Gambas-it.org - Wikipedia.
Versione del 13 ago 2012 alle 19:38 di Vuott (Discussione | contributi) (Nuova pagina: 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...)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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]
 
End