Differenze tra le versioni di "Visualizzare il tempo trascorso dall'ultimo avvio del sistema"

Da Gambas-it.org - Wikipedia.
(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...)
 
Riga 10: Riga 10:
 
   
 
   
 
  '''End'''
 
  '''End'''
 +
 
   
 
   
 
   
 
   

Versione delle 19:38, 13 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]
 
End