Differenze tra le versioni di "Creare un Cronometro"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per realizzare un semplice Cronometro porremo sul form un ''Timer'' con ritardo posto ad "1", un ''Button'' ed un oggetto di testo nel quale visualizzare il tempo trasorso: '''Private...)
 
Riga 14: Riga 14:
 
     tempo = Time
 
     tempo = Time
 
   
 
   
  '''End''
+
  '''End'''
 
   
 
   
 
   
 
   

Versione delle 10:56, 24 dic 2012

Per realizzare un semplice Cronometro porremo sul form un Timer con ritardo posto ad "1", un Button ed un oggetto di testo nel quale visualizzare il tempo trasorso:

Private tempo As Date


Public Sub Button1_Click()

   With Timer1
     .delay = 1
     .Start
   End With

' Asegna l'orario di questo istante:
   tempo = Time

End


Public Sub Timer1_Timer()

   TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu")

End