Creare un Cronometro - Cronologia

Vuott il 14:55, 1 lug 2024

2024-07-01T14:55:45Z

← Versione meno recente		Versione delle 08:55, 1 lug 2024
Riga 73:		Riga 73:
	Per realizzare un semplice cronometro che mostri l'orario attuale, comprensivo di ora, minuti, secondi, nonché di decimi, centesimi e millesimi di secondo, si può usare la funzione "Time".		Per realizzare un semplice cronometro che mostri l'orario attuale, comprensivo di ora, minuti, secondi, nonché di decimi, centesimi e millesimi di secondo, si può usare la funzione "Time".
	<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:		<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Do		Do
	Me.Caption = Format(Time, "hh:nn:ss.uuu") <SUP><FONT color=gray>'</font>[[[#Note\|~~Nota~~ 1]]]</sup>		Me.Caption = Format(Time, "hh:nn:ss.uuu") <SUP><FONT color=gray>'</font>[[[#Note\|nota 1]]]</sup>
	Wait 0.001		Wait 0.001
	Loop		Loop

	~~'''~~End~~'''~~		End
	Volendo, anziché usare un ciclo, sarà possibile usare anche la Classe "Timer".		Volendo, anziché usare un ciclo, sarà possibile usare anche la Classe "Timer".

Vuott il 00:58, 24 giu 2023

2023-06-24T00:58:30Z

@@ Riga 1: / Riga 1: @@
 ==Creare un cronometro all'interno di un ciclo che mostri il tempo trascorso dall'avvio del ciclo==
-Nel caso in esame, se si deve uscire dal ciclo all'accadere di una condizione, si potrà utilizzare il ciclo "Repeat...Until".
+===Usando la Classe ''Timer''===
-Mostriamo un esempio a riga di comando, nel quale premendo il tasto "Invio" sulla tastiera si determinerà l'uscita dal ciclo:
+===Usando un ciclo===
   Private bo As Boolean
-  '''Public''' Sub Main()
+  Public Sub Main()
    Dim tm As Date
@@ Riga 13: / Riga 50: @@
    tm = Now
-   Repeat
+   While Not bo
   <FONT Color=gray>' ''La funzione "DateDiff()" passa alla funzione "Time()" la differenza, espressa in millisecondi, tra il corrente orario e quello memorizzato all'avvio del programma.''
-  ' ''La funzione "Time()" passa alla funzione "CStr()" un valore temporale.''
+  ' ''La funzione "Time()" passa alla funzione "Write" un valore temporale, consentendo anche di mostrare i millisecondi.''</font>
- ' ''La funzione "CStr()" consente di mostrare con "Write" in Console anche i millisecondi.''</font>
+     Write "\r" & Time(0, 0, 0, DateDiff(tm, Now, gb.Millisecond))
-     Write "\r" & CStr(Time(0, 0, 0, DateDiff(tm, Now, gb.Millisecond)))
+    Flush
-     Wait 0.001
+     Wait 0.01
-   Until bo
+   Wend
   <FONT Color=gray>' ''Consente di terminare il programma nel caso vi sia la subroutine "Application_Read()":''</font>
    Quit
-  '''End'''
+  End
-  '''Public''' Sub Application_Read()
+  Public Sub Application_Read()  <FONT Color=gray>' ''Cliccando sul tasto "Invio" della tastiera, si solleva questo Evento''</font>
    bo = True
-  '''End'''
+  End
 ==Cronometro che mostra l'orario corrente, usando la funzione "Time"==
@@ Riga 46: / Riga 82: @@
   '''End'''
 Volendo, anziché usare un ciclo, sarà possibile usare anche la Classe "Timer".
@@ Riga 96: / Riga 90: @@
 * <FONT color=#B22222>nn</font> = minuti;
 * <FONT color=#B22222>ss</font> = secondi;
-* <FONT color=#B22222>uuu</font> = decimi, centesimi e millesimi di secondo.
+* <FONT color=#B22222>uuu</font> = millesimi di secondo.

Vuott il 00:15, 26 giu 2021

2021-06-26T00:15:15Z

← Versione meno recente		Versione delle 18:15, 25 giu 2021
Riga 35:		Riga 35:

	==Cronometro che mostra l'orario corrente, usando la funzione "Time"==		==Cronometro che mostra l'orario corrente, usando la funzione "Time"==
	Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".		Per realizzare un semplice cronometro che mostri l'orario attuale, comprensivo di ora, minuti, secondi, nonché di decimi, centesimi e millesimi di secondo, si può usare la funzione "Time".
	<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:		<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Do		Do
	Me.Caption = Format(Time, "hh:nn:ss.uuu") <SUP>[[[#Note\|Nota 1]]]</sup>		Me.Caption = Format(Time, "hh:nn:ss.uuu") <SUP><FONT color=gray>'</font>[[[#Note\|Nota 1]]]</sup>
	Wait 0.01		Wait 0.001
	Loop		Loop

Vuott il 00:05, 26 giu 2021

2021-06-26T00:05:59Z

← Versione meno recente		Versione delle 18:05, 25 giu 2021
Riga 1:		Riga 1:
			==Creare un cronometro all'interno di un ciclo che mostri il tempo trascorso dall'avvio del ciclo==
			Nel caso in esame, se si deve uscire dal ciclo all'accadere di una condizione, si potrà utilizzare il ciclo "Repeat...Until".

			Mostriamo un esempio a riga di comando, nel quale premendo il tasto "Invio" sulla tastiera si determinerà l'uscita dal ciclo:
			Private bo As Boolean


			'''Public''' Sub Main()

			Dim tm As Date

			<FONT Color=gray>' ''Prende l'orario nel momento dell'avvio del programma:''</font>
			tm = Now

			Repeat
			<FONT Color=gray>' ''La funzione "DateDiff()" passa alla funzione "Time()" la differenza, espressa in millisecondi, tra il corrente orario e quello memorizzato all'avvio del programma.''
			' ''La funzione "Time()" passa alla funzione "CStr()" un valore temporale.''
			' ''La funzione "CStr()" consente di mostrare con "Write" in Console anche i millisecondi.''</font>
			Write "\r" & CStr(Time(0, 0, 0, DateDiff(tm, Now, gb.Millisecond)))
			Wait 0.001
			Until bo

			<FONT Color=gray>' ''Consente di terminare il programma nel caso vi sia la subroutine "Application_Read()":''</font>
			Quit

			'''End'''


			'''Public''' Sub Application_Read()

			bo = True

			'''End'''


	==Cronometro che mostra l'orario corrente, usando la funzione "Time"==		==Cronometro che mostra l'orario corrente, usando la funzione "Time"==
	Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".		Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".

Vuott il 07:56, 3 nov 2020

2020-11-03T07:56:10Z

← Versione meno recente		Versione delle 01:56, 3 nov 2020
Riga 1:		Riga 1:
	==Cronometro usando la funzione "Time"==		==Cronometro che mostra l'orario corrente, usando la funzione "Time"==
	Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".		Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".
	<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:		<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:
Riga 13:		Riga 13:


	==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==		==Cronometro che calcola il tempo trascorso da un certo orario, usando la Classe ''Timer''==
	In quest'altro esempio, invece, si ha un Cronometro adatto a visualizzare il tempo trascorso da un certo orario che sarà impostato e partirà cliccando su un "Button" posto sul "Form".		In quest'altro esempio, invece, si ha un Cronometro adatto a visualizzare il tempo trascorso da un certo orario che sarà impostato e partirà cliccando su un "Button" posto sul "Form".
	<BR>Si farà uso in questo esempio della Classe "Timer" (ma potrebbe essere utilizzato, ovviamente, anche un ciclo).		<BR>Si farà uso in questo esempio della Classe "Timer" (ma potrebbe essere utilizzato, ovviamente, anche un ciclo).

Vuott il 07:55, 3 nov 2020

2020-11-03T07:55:17Z

← Versione meno recente		Versione delle 01:55, 3 nov 2020
Riga 10:		Riga 10:

	'''End'''		'''End'''
			Volendo, anziché usare un ciclo, sarà possibile usare anche la Classe "Timer".


	==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==		==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==

Vuott il 07:53, 3 nov 2020

2020-11-03T07:53:51Z

← Versione meno recente		Versione delle 01:53, 3 nov 2020
Riga 5:		Riga 5:

	Do		Do
	Me.Caption = Format(Time, "hh:nn:ss.uuu")		Me.Caption = Format(Time, "hh:nn:ss.uuu") <SUP>[[[#Note\|Nota 1]]]</sup>
	Wait 0.01		Wait 0.01
	Loop		Loop
Riga 32:		Riga 32:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uuu") ~~<SUP>[[[#Note\|Nota 1]]]</sup>~~		TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uuu")

	'''End'''		'''End'''

Vuott il 07:52, 3 nov 2020

2020-11-03T07:52:07Z

← Versione meno recente		Versione delle 01:52, 3 nov 2020
Riga 12:		Riga 12:

	==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==		==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==
	~~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 trascorso:~~		In quest'altro esempio, invece, si ha un Cronometro adatto a visualizzare il tempo trascorso da un certo orario che sarà impostato e partirà cliccando su un "Button" posto sul "Form".
			<BR>Si farà uso in questo esempio della Classe "Timer" (ma potrebbe essere utilizzato, ovviamente, anche un ciclo).
	Private tempo As Date		Private tempo As Date

Vuott il 07:47, 3 nov 2020

2020-11-03T07:47:57Z

← Versione meno recente		Versione delle 01:47, 3 nov 2020
Riga 1:		Riga 1:
	==Cronometro usando la ~~Classe ''Timer''~~==		==Cronometro usando la funzione "Time"==
	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:~~		Per realizzare un semplice cronometro che mostri l'ora, i minuti, i secondi, nonché i decimi, i centesimi e i millesimi di secondo, si può usare la funzione "Time".
			<BR>Mostriamo un esempio in ambiente grafico, nel quale l'orario corrente sarà mostrato nell'intestazione di una finestra:
			'''Public''' Sub Button1_Click()

			Do
			Me.Caption = Format(Time, "hh:nn:ss.uuu")
			Wait 0.01
			Loop

			'''End'''

	'''~~Private~~''' tempo As Date		==Cronometro che calcola il tempo trascorso, usando la Classe ''Timer''==
			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 trascorso:
			Private tempo As Date


Riga 20:		Riga 31:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") <SUP>[[[#Note\|1]]]</sup>		TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uuu") <SUP>[[[#Note\|Nota 1]]]</sup>

	'''End'''		'''End'''

			====Medesimo esempio, ma in un'applicazione a ''riga di comando'' ed usando un ciclo anziché un ''Timer''====
	==~~Cronometro~~ in un'applicazione a ''riga di comando''==
	Per realizzare un cronometro in un'applicazione a ''riga di comando'' senza l'uso della Classe ''Timer'', si prenderà l'orario all'avvio dell'applicazione medesima, e in un apposito ciclo si passerà alla funzione ''Date( )'' la differenza fra l'orario corrente e quello iniziale.		Per realizzare un cronometro in un'applicazione a ''riga di comando'' senza l'uso della Classe ''Timer'', si prenderà l'orario all'avvio dell'applicazione medesima, e in un apposito ciclo si passerà alla funzione ''Date( )'' la differenza fra l'orario corrente e quello iniziale.
	''' Public''' Sub Main()		''' Public''' Sub Main()

	~~Dim i As Integer~~
	Dim tm As Date		Dim tm As Date

Riga 36:		Riga 45:

	Do		Do
	~~i = DateDiff(tm, Now, gb.Millisecond)~~		Write "\rTempo: " & Date(0, 0, 0, 0, 0, 0, DateDiff(tm, Now, gb.Millisecond))
	Write "\rTempo: " & Date(0, 0, 0, 0, 0, 0, i)
	Wait 0.001		Wait 0.001
	Loop		Loop

	'''End'''		'''End'''



Riga 51:		Riga 58:
	* <FONT color=#B22222>nn</font> = minuti;		* <FONT color=#B22222>nn</font> = minuti;
	* <FONT color=#B22222>ss</font> = secondi;		* <FONT color=#B22222>ss</font> = secondi;
	* <FONT color=#B22222>uu</font> = decimi, centesimi e millesimi di secondo.		* <FONT color=#B22222>uuu</font> = decimi, centesimi e millesimi di secondo.

Vuott il 09:14, 23 ago 2019

2019-08-23T09:14:41Z

← Versione meno recente		Versione delle 03:14, 23 ago 2019
Riga 1:		Riga 1:
			==Cronometro usando la Classe ''Timer''==
	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:		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:

Riga 11:		Riga 12:
	End With		End With

	<FONT color=~~#006400~~>' ''Assegna l'orario di questo istante:''</font>		<FONT color=gray>' ''Assegna l'orario di questo istante:''</font>
	tempo = Time		tempo = Time

Riga 19:		Riga 20:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") \|[[#Note\|1]]\|		TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu") <SUP>[[[#Note\|1]]]</sup>

	'''End'''		'''End'''


			==Cronometro in un'applicazione a ''riga di comando''==
			Per realizzare un cronometro in un'applicazione a ''riga di comando'' senza l'uso della Classe ''Timer'', si prenderà l'orario all'avvio dell'applicazione medesima, e in un apposito ciclo si passerà alla funzione ''Date( )'' la differenza fra l'orario corrente e quello iniziale.
			''' Public''' Sub Main()

			Dim i As Integer
			Dim tm As Date

			<FONT color=gray>' ''Prende l'orario iniziale:''</font>
			tm = Now

			Do
			i = DateDiff(tm, Now, gb.Millisecond)
			Write "\rTempo: " & Date(0, 0, 0, 0, 0, 0, i)
			Wait 0.001
			Loop

			'''End'''