Differenze tra le versioni di "Creare un Cronometro"
Da Gambas-it.org - Wikipedia.
| Riga 19: | Riga 19: | ||
'''Public''' Sub Timer1_Timer() | '''Public''' Sub Timer1_Timer() | ||
| − | TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") | + | TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") |[[#Note|1]]| |
'''End''' | '''End''' | ||
| + | |||
| + | |||
| + | |||
| + | =Note= | ||
| + | [1] Questo tipo di formattazione del tempo restituisce: | ||
| + | * <FONT color=#B22222>hh</font> = ora; | ||
| + | * <FONT color=#B22222>nn</font> = minuti; | ||
| + | * <FONT color=#B22222>ss</font> = secondi; | ||
| + | * <FONT color=#B22222>uu</font> = decimi, centesimi e millesimi di secondo. | ||
Versione delle 19:18, 23 gen 2013
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
' Assegna l'orario di questo istante:
tempo = Time
End
Public Sub Timer1_Timer()
TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") |1|
End
Note
[1] Questo tipo di formattazione del tempo restituisce:
- hh = ora;
- nn = minuti;
- ss = secondi;
- uu = decimi, centesimi e millesimi di secondo.
