Temporizzare una funzione o un evento - Cronologia

Vuott il 14:16, 1 lug 2024

2024-07-01T14:16:43Z

← Versione meno recente		Versione delle 08:16, 1 lug 2024
Riga 5:		Riga 5:


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	With Timer1		With Timer1
	<FONT color=~~#006400~~>' ''Attiva il Timer ogni secondo, per vedere l'orario del computer:''</font>		<FONT color=gray>' ''Attiva il Timer ogni secondo, per vedere l'orario del computer:''</font>
	.Start		.Start
	.Delay = 1000		.Delay = 1000
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''Public''' Sub Timer1_Timer()~~

	<FONT color=~~#006400~~>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>		Public Sub Timer1_Timer()

			<FONT color=gray>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>
	If Str(Time) = TextBox1.Text Then		If Str(Time) = TextBox1.Text Then
	<FONT color=#006400>' ''...allora lancia il programma "Gedit", e ne gestisce il processo con una variabile di tipo "Process":''</font>		<FONT color=#006400>' ''...allora lancia il programma "Gedit", e ne gestisce il processo con una variabile di tipo "Process":''</font>
Riga 23:		Riga 24:
	Endif		Endif

	<FONT color=~~#006400~~>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>		<FONT color=gray>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>
	If Str(Time) = TextBox2.Text Then		If Str(Time) = TextBox2.Text Then
	<FONT color=~~#006400~~>' ''...allora termina il processo:''</font>		<FONT color=gray>' ''...allora termina il processo:''</font>
	pr.Kill		pr.Kill
	<FONT color=~~#006400~~>' ''Blocca quindi anche il "Timer":''</font>		<FONT color=gray>' ''Blocca quindi anche il "Timer":''</font>
	Timer1.Stop		Timer1.Stop
	Endif		Endif

	~~'''~~End~~'''~~		End

Vuott il 20:42, 4 set 2022

2022-09-04T20:42:51Z

← Versione meno recente		Versione delle 14:42, 4 set 2022
Riga 8:		Riga 8:

	With Timer1		With Timer1
	<FONT color=#006400>' ''~~Attiviamo~~ il Timer ogni secondo, per vedere l'orario del computer:''</font>		<FONT color=#006400>' ''Attiva il Timer ogni secondo, per vedere l'orario del computer:''</font>
	.Start		.Start
	.Delay = 1000		.Delay = 1000
Riga 19:		Riga 19:
	<FONT color=#006400>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>		<FONT color=#006400>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>
	If Str(Time) = TextBox1.Text Then		If Str(Time) = TextBox1.Text Then
	<FONT color=#006400>' ''...allora ~~facciamo lanciare~~ il programma "Gedit", e ne ~~gestiamo~~ il processo con ~~un'apposita~~ variabile:''</font>		<FONT color=#006400>' ''...allora lancia il programma "Gedit", e ne gestisce il processo con una variabile di tipo "Process":''</font>
	pr = Shell "gedit"		pr = Shell "gedit"
	Endif		Endif
Riga 25:		Riga 25:
	<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>		<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>
	If Str(Time) = TextBox2.Text Then		If Str(Time) = TextBox2.Text Then
	<FONT color=#006400>' ''...allora ~~stronchiamo~~ il processo:''</font>		<FONT color=#006400>' ''...allora termina il processo:''</font>
	pr.Kill		pr.Kill
	<FONT color=#006400>' ''~~Blocchiamo~~ quindi anche il "Timer":''</font>		<FONT color=#006400>' ''Blocca quindi anche il "Timer":''</font>
	Timer1.Stop		Timer1.Stop
	Endif		Endif

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

Vuott il 20:41, 4 set 2022

2022-09-04T20:41:20Z

← Versione meno recente		Versione delle 14:41, 4 set 2022
Riga 1:		Riga 1:
	Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un ~~evento~~ ad un certo orario.		Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un Evento ad un certo orario.

	Poniamo, come esempio, di voler lanciare a un certo orario il programma ''Gedit'' (o altro programma), e ad un altro orario farlo chiudere. Inseriremo a tal fine, per semplicità, due ''TextBox''. Nel primo ''TextBox'' inseriremo l'orario di apertura del programma ''Gedit'', mentre nel secondo l'orario in cui dovrà essere chiuso. In entrambi i ''TextBox'' si inserirà l'orario con il seguente formato: ''hh:mm:ss'' .		Poniamo, come esempio, di voler lanciare a un certo orario il programma ''Gedit'' (o altro programma), e ad un altro orario farlo chiudere. Inseriremo a tal fine, per semplicità, due ''TextBox''. Nel primo ''TextBox'' inseriremo l'orario di apertura del programma ''Gedit'', mentre nel secondo l'orario in cui dovrà essere chiuso. In entrambi i ''TextBox'' si inserirà l'orario con il seguente formato: ''hh:mm:ss'' .

Vuott il 20:40, 4 set 2022

2022-09-04T20:40:48Z

← Versione meno recente		Versione delle 14:40, 4 set 2022
Riga 1:		Riga 1:
	Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un evento ad un certo orario.		Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un evento ad un certo orario.

			Poniamo, come esempio, di voler lanciare a un certo orario il programma ''Gedit'' (o altro programma), e ad un altro orario farlo chiudere. Inseriremo a tal fine, per semplicità, due ''TextBox''. Nel primo ''TextBox'' inseriremo l'orario di apertura del programma ''Gedit'', mentre nel secondo l'orario in cui dovrà essere chiuso. In entrambi i ''TextBox'' si inserirà l'orario con il seguente formato: ''hh:mm:ss'' .
	Poniamo, come esempio, di voler lanciare ad un certo orario il programma ''Gedit'', e ad un altro orario farlo chiudere. Inseriremo a tal fine, per semplicità, due ''TextBox''. Nel primo ''TextBox'' inseriremo l'orario di apertura del programma ''Gedit'', mentre nel secondo l'orario in cui dovrà essere chiuso. In entrambi i ''TextBox'' si inserirà l'orario con il seguente formato: ''hh:mm:ss'' .		Private pr As Process
	~~'''~~Private~~''' hp~~ As Process


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	With Timer1		With Timer1
	<FONT color=#006400>' ''Attiviamo il Timer ogni secondo, per vedere l'orario del computer:''</font>		<FONT color=#006400>' ''Attiviamo il Timer ogni secondo, per vedere l'orario del computer:''</font>
	.Start		.Start
	.Delay = 1000		.Delay = 1000
	End With		End With

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


	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	<FONT color=#006400>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>		<FONT color=#006400>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>
	If Str(Time) = TextBox1.Text Then		If Str(Time) = TextBox1.Text Then
	<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''		<FONT color=#006400>' ''...allora facciamo lanciare il programma "Gedit", e ne gestiamo il processo con un'apposita variabile:''</font>
	~~' ''~~e ne gestiamo il processo con un'apposita variabile:''</font>		pr = Shell "gedit"
	hp = Shell "gedit"		Endif
	Endif


	<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>		<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>
	If Str(Time) = TextBox2.Text Then		If Str(Time) = TextBox2.Text Then
	<FONT color=#006400>' ''...allora stronchiamo il processo:''</font>		<FONT color=#006400>' ''...allora stronchiamo il processo:''</font>
	hp.Kill		pr.Kill
	<FONT color=#006400>' ''Blocchiamo quindi anche il "Timer":''</font>		<FONT color=#006400>' ''Blocchiamo quindi anche il "Timer":''</font>
	Timer1.Stop		Timer1.Stop
	Endif		Endif

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

Vuott il 10:02, 19 dic 2012

2012-12-19T10:02:31Z

← Versione meno recente		Versione delle 04:02, 19 dic 2012
Riga 19:		Riga 19:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	<FONT color=#006400>' ''Se ~~la data e~~ l'orario del computer ~~sono uguali~~ all'orario scritto nel primo "TextBox"...''</font>		<FONT color=#006400>' ''Se l'orario del computer è uguale all'orario scritto nel primo "TextBox"...''</font>
	If Str(~~Now~~) = TextBox1.Text Then		If Str(Time) = TextBox1.Text Then
	<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''		<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''
	' ''e ne gestiamo il processo con un'apposita variabile:''</font>		' ''e ne gestiamo il processo con un'apposita variabile:''</font>

Vuott il 10:00, 19 dic 2012

2012-12-19T10:00:54Z

← Versione meno recente		Versione delle 04:00, 19 dic 2012
Riga 10:		Riga 10:
	With Timer1		With Timer1
	<FONT color=#006400>' ''Attiviamo il Timer ogni secondo, per vedere l'orario del computer:''</font>		<FONT color=#006400>' ''Attiviamo il Timer ogni secondo, per vedere l'orario del computer:''</font>
	.Start		.Start
	.Delay = 1000		.Delay = 1000
	End With		End With

Riga 33:		Riga 33:
	<FONT color=#006400>' ''Blocchiamo quindi anche il "Timer":''</font>		<FONT color=#006400>' ''Blocchiamo quindi anche il "Timer":''</font>
	Timer1.Stop		Timer1.Stop
	Endif		Endif

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

Vuott il 09:59, 19 dic 2012

2012-12-19T09:59:44Z

← Versione meno recente		Versione delle 03:59, 19 dic 2012
Riga 19:		Riga 19:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	<FONT color=#006400>' ''Se la data e l'orario del computer sono uguali all'orario scritto nel primo "TextBox"....''</font>		<FONT color=#006400>' ''Se la data e l'orario del computer sono uguali all'orario scritto nel primo "TextBox"...''</font>
	If Str(Now) = TextBox1.Text Then		If Str(Now) = TextBox1.Text Then
	<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''		<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''
Riga 27:		Riga 27:


	<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox".....		<FONT color=#006400>' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox"...''</font>
	If Str(Time) = TextBox2.Text Then		If Str(Time) = TextBox2.Text Then
	<FONT color=#006400>' ''...allora stronchiamo il processo:''</font>		<FONT color=#006400>' ''...allora stronchiamo il processo:''</font>

Vuott il 09:59, 19 dic 2012

2012-12-19T09:59:05Z

← Versione meno recente		Versione delle 03:59, 19 dic 2012
Riga 19:		Riga 19:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	<FONT color=#006400>' ''Se la data e l'orario del computer sono uguali all'orario scritto nel primo "TextBox"....		<FONT color=#006400>' ''Se la data e l'orario del computer sono uguali all'orario scritto nel primo "TextBox"....''</font>
	If Str(Now) = TextBox1.Text Then		If Str(Now) = TextBox1.Text Then
	<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''		<FONT color=#006400>' ''allora facciamo lanciare il programma "Gedit",''

Vuott: Nuova pagina: Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un evento ad un certo orario. Poniamo, come esempio, di voler lanciare ad un certo orario...

2012-12-19T09:58:37Z

Nuova pagina: Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un evento ad un certo orario. Poniamo, come esempio, di voler lanciare ad un certo orario...

Nuova pagina

Il caso è quello in cui intendiamo prevedere l'attivazione di una funzione o in generale di un evento ad un certo orario.

Poniamo, come esempio, di voler lanciare ad un certo orario il programma ''Gedit'', e ad un altro orario farlo chiudere. Inseriremo a tal fine, per semplicità, due ''TextBox''. Nel primo ''TextBox'' inseriremo l'orario di apertura del programma ''Gedit'', mentre nel secondo l'orario in cui dovrà essere chiuso. In entrambi i ''TextBox'' si inserirà l'orario con il seguente formato: ''hh:mm:ss'' .
'''Private''' hp As Process

'''Public''' Sub Button1_Click()

With Timer1
' ''Attiviamo il Timer ogni secondo, per vedere l'orario del computer:''
.Start
.Delay = 1000
End With

'''End'''

'''Public''' Sub Timer1_Timer()

' ''Se la data e l'orario del computer sono uguali all'orario scritto nel primo "TextBox"....
If Str(Now) = TextBox1.Text Then
' ''allora facciamo lanciare il programma "Gedit",''
' ''e ne gestiamo il processo con un'apposita variabile:''
hp = Shell "gedit"
Endif

' ''Se l'orario del computer è uguale a quello presente nel secondo "TextBox".....
If Str(Time) = TextBox2.Text Then
' ''...allora stronchiamo il processo:''
hp.Kill
' ''Blocchiamo quindi anche il "Timer":''
Timer1.Stop
Endif

'''End'''