Visualizzare il tempo trascorso dall'ultimo avvio del sistema

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