Watch - Cronologia

Vuott il 22:00, 10 giu 2024

2024-06-10T22:00:59Z

← Versione meno recente		Versione delle 16:00, 10 giu 2024
Riga 36:		Riga 36:

	==Lettura dei dati contemporaneamente da più file==		==Lettura dei dati contemporaneamente da più file==
	Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il Metodo "Object.Attach()" per gestire l'~~evento~~ della ricezione dei dati Midi~~, associando l'oggetto~~ file ~~alla definizione dell'evento~~:		Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il Metodo "Object.Attach()", associando l'Oggetto file alla definizione dell'Evento.

			Vediamo un esempio pratico, per gestire l'Evento della ricezione dei dati Midi da un dispositivo Midi esterno mediante il file-device che si genera nella cartella "/dev":
	Private varFile1 As File		Private varFile1 As File
	Private varFile2 As File		Private varFile2 As File
Riga 43:		Riga 45:
	Public Sub Form_Open()		Public Sub Form_Open()

	varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file''</font>" For Read Watch		varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file-device-MIDI''</font>" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	<FONT color=#B22222>Object.Attach</font>(varFile1, FMain, "eventoMidi1")		<FONT color=#B22222>Object.Attach</font>(varFile1, FMain, "eventoMidi1")

	varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file''</font>" For Read Watch		varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file-MIDI''</font>" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	<FONT color=#B22222>Object.Attach</font>(varFile2, FMain, "eventoMidi2")		<FONT color=#B22222>Object.Attach</font>(varFile2, FMain, "eventoMidi2")
Riga 86:		Riga 88:
	Dim oss2 As Observer		Dim oss2 As Observer

	varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file''</font>" For Read Watch		varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file-device-MIDI''</font>" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss1 = New <FONT color=#B22222>Observer</font>(varFile1) As "eventoMidi1"		oss1 = New <FONT color=#B22222>Observer</font>(varFile1) As "eventoMidi1"

	varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file''</font>" For Read Watch		varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file-device-MIDI''</font>" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
Riga 99:		Riga 101:


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file-device:''</font>
	Public Sub eventoMidi1_Read()		Public Sub eventoMidi1_Read()

Riga 111:		Riga 113:


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file-device:''</font>
	Public Sub eventoMidi2_Read()		Public Sub eventoMidi2_Read()

Vuott il 21:56, 10 giu 2024

2024-06-10T21:56:39Z

← Versione meno recente		Versione delle 15:56, 10 giu 2024
Riga 7:		Riga 7:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	varFile = Open "<Font Color=~~gray~~>''/percorso/del/file''</font>" For Read <FONT color=#B22222>Watch</font>		varFile = Open "<Font Color=darkgreen>''/percorso/del/file''</font>" For Read <FONT color=#B22222>Watch</font>

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

	~~'''~~Public~~'''~~ Sub <FONT color=#B22222>File_Read()</font>
			Public Sub <FONT color=#B22222>File_Read()</font>

	Dim b As Byte		Dim b As Byte
Riga 24:		Riga 25:
	Wend		Wend

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

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

	varFile.Close		varFile.Close

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


Riga 39:		Riga 41:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	varFile1 = Open "<Font Color=~~gray~~>''/percorso/del/primo/file''</font>" For Read Watch		varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file''</font>" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	<FONT color=#B22222>Object.Attach</font>(varFile1, FMain, "eventoMidi1")		<FONT color=#B22222>Object.Attach</font>(varFile1, FMain, "eventoMidi1")

	varFile2 = Open "<Font Color=~~gray~~>''/percorso/del/secondo/file''</font>" For Read Watch		varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file''</font>" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	<FONT color=#B22222>Object.Attach</font>(varFile2, FMain, "eventoMidi2")		<FONT color=#B22222>Object.Attach</font>(varFile2, FMain, "eventoMidi2")

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
	~~'''~~Public~~'''~~ Sub eventoMidi1_Read()		Public Sub eventoMidi1_Read()

	Dim b1 As Byte		Dim b1 As Byte
Riga 60:		Riga 63:
	Print b1		Print b1

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>
	~~'''~~Public~~'''~~ Sub eventoMidi2_Read()		Public Sub eventoMidi2_Read()

	Dim b2 As Byte		Dim b2 As Byte
Riga 71:		Riga 75:
	Print b2		Print b2

	~~'''~~End~~'''~~		End
	oppure in modo analogo mediante ''Observer'':		oppure in modo analogo mediante ''Observer'':
	Private varFile1 As File		Private varFile1 As File
Riga 77:		Riga 81:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim oss1 As Observer		Dim oss1 As Observer
	Dim oss2 As Observer		Dim oss2 As Observer

	varFile1 = Open "<Font Color=~~gray~~>''/percorso/del/primo/file''</font>" For Read Watch		varFile1 = Open "<Font Color=darkgreen>''/percorso/del/primo/file''</font>" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss1 = New <FONT color=#B22222>Observer</font>(varFile1) As "eventoMidi1"		oss1 = New <FONT color=#B22222>Observer</font>(varFile1) As "eventoMidi1"

	varFile2 = Open "<Font Color=~~gray~~>''/percorso/del/secondo/file''</font>" For Read Watch		varFile2 = Open "<Font Color=darkgreen>''/percorso/del/secondo/file''</font>" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss2 = New <FONT color=#B22222>Observer</font>(varFile2) As "eventoMidi2"		oss2 = New <FONT color=#B22222>Observer</font>(varFile2) As "eventoMidi2"

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
	~~'''~~Public~~'''~~ Sub eventoMidi1_Read()		Public Sub eventoMidi1_Read()

	Dim b1 As Byte		Dim b1 As Byte
Riga 103:		Riga 108:
	Print b1		Print b1

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>
	~~'''~~Public~~'''~~ Sub eventoMidi2_Read()		Public Sub eventoMidi2_Read()

	Dim b2 As Byte		Dim b2 As Byte
Riga 114:		Riga 120:
	Print b2		Print b2

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

Vuott il 00:25, 25 apr 2023

2023-04-25T00:25:37Z

← Versione meno recente		Versione delle 18:25, 24 apr 2023
Riga 18:		Riga 18:

	While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font>		While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font>
	<Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font>		<Font Color=gray>' ''...legge il file e carica un byte nella variabile "b"...''</font>
	Read #varFile, b		Read #varFile, b
	<Font Color=gray>' ''...e lo mostra in console:''</font>		<Font Color=gray>' ''...e lo mostra in console:''</font>

Vuott il 06:02, 22 apr 2023

2023-04-22T06:02:42Z

← Versione meno recente		Versione delle 00:02, 22 apr 2023
Riga 3:		Riga 3:
	* Se almeno un byte può essere scritto nel file, allora l'evento "File_Write()" viene chiamato.		* Se almeno un byte può essere scritto nel file, allora l'evento "File_Write()" viene chiamato.

			Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') e viene ''osservato'' specificando la parola-chiave ''Watch'':
	Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato ~~con~~ specificando la parola ''Watch'':
	Private varFile As File		Private varFile As File

Riga 10:		Riga 9:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	varFile = Open "''percorso/del/file''" For Read <FONT color=#B22222>Watch</font>		varFile = Open "<Font Color=gray>''/percorso/del/file''</font>" For Read <FONT color=#B22222>Watch</font>

	~~'''End'''~~

			'''End'''

	'''Public''' Sub <FONT color=#B22222>File_Read()</font>		'''Public''' Sub <FONT color=#B22222>File_Read()</font>
Riga 26:		Riga 24:
	Wend		Wend

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


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()
Riga 37:		Riga 34:

	==Lettura dei dati contemporaneamente da più file==		==Lettura dei dati contemporaneamente da più file==
	Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il ~~metodo ''~~Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:		Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il Metodo "Object.Attach()" per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:
	Private varFile1 As File		Private varFile1 As File
	Private varFile2 As File		Private varFile2 As File
Riga 44:		Riga 41:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	varFile1 = Open "''/percorso/del/primo/file''" For Read Watch		varFile1 = Open "<Font Color=gray>''/percorso/del/primo/file''</font>" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	Object.Attach(varFile1, FMain, "eventoMidi1")		<FONT color=#B22222>Object.Attach</font>(varFile1, FMain, "eventoMidi1")

			varFile2 = Open "<Font Color=gray>''/percorso/del/secondo/file''</font>" For Read Watch
	varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch
	<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	Object.Attach(varFile2, FMain, "eventoMidi2")		<FONT color=#B22222>Object.Attach</font>(varFile2, FMain, "eventoMidi2")

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
Riga 65:		Riga 60:
	Print b1		Print b1

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>
	'''Public''' Sub eventoMidi2_Read()		'''Public''' Sub eventoMidi2_Read()

	Dim b2 As Byte		Dim b2 As Byte

	Read #varFile2, b2		Read #varFile2, b2
Riga 78:		Riga 72:

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


	oppure in modo analogo mediante ''Observer'':		oppure in modo analogo mediante ''Observer'':
	Private varFile1 As File		Private varFile1 As File
Riga 90:		Riga 82:
	Dim oss2 As Observer		Dim oss2 As Observer

	varFile1 = Open "''/percorso/del/primo/file''" For Read Watch		varFile1 = Open "<Font Color=gray>''/percorso/del/primo/file''</font>" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss1 = New Observer(varFile1) As "eventoMidi1"		oss1 = New <FONT color=#B22222>Observer</font>(varFile1) As "eventoMidi1"

			varFile2 = Open "<Font Color=gray>''/percorso/del/secondo/file''</font>" For Read Watch
	varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch

	<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss2 = New Observer(varFile2) As "eventoMidi2"		oss2 = New <FONT color=#B22222>Observer</font>(varFile2) As "eventoMidi2"

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
Riga 113:		Riga 103:
	Print b1		Print b1

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


	<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>

Vuott il 23:33, 1 nov 2021

2021-11-01T23:33:47Z

← Versione meno recente		Versione delle 17:33, 1 nov 2021
Riga 1:		Riga 1:
	Se con ''OPEN'' viene specificata la parola chiave '''''WATCH''''', allora il file viene così visto dall'interprete:		Se con ''OPEN'' viene specificata la parola-chiave '''WATCH''', allora il file viene così visto dall'interprete:
	* Se almeno un byte può essere letto dal file, allora l'evento File_Read() viene chiamato;		* Se almeno un byte può essere letto dal file, allora l'evento "File_Read()" viene chiamato;
	* Se almeno un byte può essere scritto nel file, allora l'evento File_Write() viene chiamato.		* Se almeno un byte può essere scritto nel file, allora l'evento "File_Write()" viene chiamato.



	Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato con specificando la parola ''Watch'':		Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato con specificando la parola ''Watch'':
	~~'''~~Private~~'''~~ varFile As File		Private varFile As File


Riga 18:		Riga 17:
	'''Public''' Sub <FONT color=#B22222>File_Read()</font>		'''Public''' Sub <FONT color=#B22222>File_Read()</font>

	Dim by As Byte		Dim b As Byte

			While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font>
	While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font>
	<Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font>		<Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font>
	Read #varFile, by		Read #varFile, b
	<Font Color=gray>' ''...e lo mostra in console:''</font>		<Font Color=gray>' ''...e lo mostra in console:''</font>
	Print by		Print b
	Wend		Wend

	'''End'''		'''End'''
Riga 33:		Riga 31:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	varFile.Close		varFile.Close

	'''End'''		'''End'''
Riga 40:		Riga 38:
	==Lettura dei dati contemporaneamente da più file==		==Lettura dei dati contemporaneamente da più file==
	Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:		Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:
	~~'''~~Private~~'''~~ varFile1 As File		Private varFile1 As File
	~~'''~~Private~~'''~~ varFile2 As File		Private varFile2 As File


Riga 83:		Riga 81:

	oppure in modo analogo mediante ''Observer'':		oppure in modo analogo mediante ''Observer'':
	~~'''~~Private~~'''~~ varFile1 As File		Private varFile1 As File
	~~'''~~Private~~'''~~ varFile2 As File		Private varFile2 As File


	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim oss1 As Observer		Dim oss1 As Observer
	Dim oss2 As Observer		Dim oss2 As Observer

	varFile1 = Open "''/percorso/del/primo/file''" For Read Watch		varFile1 = Open "''/percorso/del/primo/file''" For Read Watch
Riga 111:		Riga 109:
	Dim b1 As Byte		Dim b1 As Byte

	Read #varFile1, b1		Read #varFile1, b1

	Print b1		Print b1

	'''End'''		'''End'''
Riga 123:		Riga 121:
	Dim b2 As Byte		Dim b2 As Byte

	Read #varFile2, b2		Read #varFile2, b2

	Print b2		Print b2

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

Vuott il 16:13, 10 set 2013

2013-09-10T16:13:25Z

← Versione meno recente		Versione delle 10:13, 10 set 2013
Riga 1:		Riga 1:
	Se con ''OPEN'' viene specificata la parola chiave '''~~WATCH~~'''''~~Corsivo~~'', allora il file viene così visto dall'interprete:		Se con ''OPEN'' viene specificata la parola chiave '''''WATCH''''', allora il file viene così visto dall'interprete:
	* Se almeno un byte può essere letto dal file, allora l'evento File_Read() viene chiamato;		* Se almeno un byte può essere letto dal file, allora l'evento File_Read() viene chiamato;
	* Se almeno un byte può essere scritto nel file, allora l'evento File_Write() viene chiamato.		* Se almeno un byte può essere scritto nel file, allora l'evento File_Write() viene chiamato.
Riga 21:		Riga 21:


	While Not Eof(varFile) <Font Color= ~~#006400~~>' ''Fin tanto che non è giunto alla fine del file...''</font>		While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font>
	<Font Color= ~~#006400~~>' ''...legge il file e carica un byte nella variabile "by"...''</font>		<Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font>
	Read #varFile, by		Read #varFile, by
	<Font Color= ~~#006400~~>' ''...e lo mostra in console:''</font>		<Font Color=gray>' ''...e lo mostra in console:''</font>
	Print by		Print by
	Wend		Wend
Riga 39:		Riga 39:

	==Lettura dei dati contemporaneamente da più file==		==Lettura dei dati contemporaneamente da più file==
	Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento.		Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:
	'''Private''' varFile1 As File		'''Private''' varFile1 As File
	'''Private''' varFile2 As File		'''Private''' varFile2 As File
Riga 47:		Riga 47:

	varFile1 = Open "''/percorso/del/primo/file''" For Read Watch		varFile1 = Open "''/percorso/del/primo/file''" For Read Watch
	<Font Color=~~#006400~~>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	Object.Attach(varFile1, FMain, "eventoMidi1")		Object.Attach(varFile1, FMain, "eventoMidi1")


	varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch		varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch
	<Font Color=~~#006400~~>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>		<Font Color=gray>' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''</font>
	Object.Attach(varFile2, FMain, "eventoMidi2")		Object.Attach(varFile2, FMain, "eventoMidi2")

Riga 58:		Riga 58:


	<Font Color=~~#006400~~>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
	'''Public''' Sub eventoMidi1_Read()		'''Public''' Sub eventoMidi1_Read()

Riga 70:		Riga 70:


	<Font Color=~~#006400~~>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>
	'''Public''' Sub eventoMidi2_Read()		'''Public''' Sub eventoMidi2_Read()

Riga 94:		Riga 94:
	varFile1 = Open "''/percorso/del/primo/file''" For Read Watch		varFile1 = Open "''/percorso/del/primo/file''" For Read Watch

	<Font Color=~~#006400~~>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss1 = New Observer(varFile1) As "eventoMidi1"		oss1 = New Observer(varFile1) As "eventoMidi1"

Riga 100:		Riga 100:
	varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch		varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch

	<Font Color=~~#006400~~>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>		<Font Color=gray>' ''Viene "osservato" l'oggetto ''File'' per l'evento:''</font>
	oss2 = New Observer(varFile2) As "eventoMidi2"		oss2 = New Observer(varFile2) As "eventoMidi2"

Riga 106:		Riga 106:


	<Font Color=~~#006400~~>' ''Vengono intercettati i dati provenienti dal primo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal primo file:''</font>
	'''Public''' Sub eventoMidi1_Read()		'''Public''' Sub eventoMidi1_Read()

	Dim b1 As Byte		Dim b1 As Byte

	Read #varFile1, b1		Read #varFile1, b1

	Print b1		Print b1

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


	<Font Color=~~#006400~~>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>		<Font Color=gray>' ''Vengono intercettati i dati provenienti dal secondo file:''</font>
	'''Public''' Sub eventoMidi2_Read()		'''Public''' Sub eventoMidi2_Read()

	Dim b2 As Byte		Dim b2 As Byte

	Read #varFile2, b2		Read #varFile2, b2

	Print b2		Print b2

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

Vuott: Creata pagina con 'Se con ''OPEN'' viene specificata la parola chiave '''WATCH'''''Corsivo'', allora il file viene così visto dall'interprete: * Se almeno un byte può essere letto dal file, al...'

2013-09-10T16:09:26Z

Creata pagina con 'Se con ''OPEN'' viene specificata la parola chiave '''WATCH'''''Corsivo'', allora il file viene così visto dall'interprete: * Se almeno un byte può essere letto dal file, al...'

Nuova pagina

Se con ''OPEN'' viene specificata la parola chiave '''WATCH'''''Corsivo'', allora il file viene così visto dall'interprete:
* Se almeno un byte può essere letto dal file, allora l'evento File_Read() viene chiamato;
* Se almeno un byte può essere scritto nel file, allora l'evento File_Write() viene chiamato.

Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato con specificando la parola ''Watch'':
'''Private''' varFile As File

'''Public''' Sub Form_Open()

varFile = Open "''percorso/del/file''" For Read Watch

'''End'''

'''Public''' Sub File_Read()

Dim by As Byte

While Not Eof(varFile) ' ''Fin tanto che non è giunto alla fine del file...''
' ''...legge il file e carica un byte nella variabile "by"...''
Read #varFile, by
' ''...e lo mostra in console:''
Print by
Wend

'''End'''

'''Public''' Sub Button1_Click()

varFile.Close

'''End'''

==Lettura dei dati contemporaneamente da più file==
Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento.
'''Private''' varFile1 As File
'''Private''' varFile2 As File

'''Public''' Sub Form_Open()

varFile1 = Open "''/percorso/del/primo/file''" For Read Watch
' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''
Object.Attach(varFile1, FMain, "eventoMidi1")

varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch
' ''Viene associato l'oggetto ''File'' alla denominazione del proprio evento:''
Object.Attach(varFile2, FMain, "eventoMidi2")

'''End'''

' ''Vengono intercettati i dati provenienti dal primo file:''
'''Public''' Sub eventoMidi1_Read()

Dim b1 As Byte

Read #varFile, b1

Print b1

'''End'''

' ''Vengono intercettati i dati provenienti dal secondo file:''
'''Public''' Sub eventoMidi2_Read()

Dim b2 As Byte

Read #varFile2, b2

Print b2

'''End'''

oppure in modo analogo mediante ''Observer'':
'''Private''' varFile1 As File
'''Private''' varFile2 As File

'''Public''' Sub Form_Open()

Dim oss1 As Observer
Dim oss2 As Observer

varFile1 = Open "''/percorso/del/primo/file''" For Read Watch

' ''Viene "osservato" l'oggetto ''File'' per l'evento:''
oss1 = New Observer(varFile1) As "eventoMidi1"

varFile2 = Open "''/percorso/del/secondo/file''" For Read Watch

' ''Viene "osservato" l'oggetto ''File'' per l'evento:''
oss2 = New Observer(varFile2) As "eventoMidi2"

'''End'''

' ''Vengono intercettati i dati provenienti dal primo file:''
'''Public''' Sub eventoMidi1_Read()

Dim b1 As Byte

Read #varFile1, b1

Print b1

'''End'''

' ''Vengono intercettati i dati provenienti dal secondo file:''
'''Public''' Sub eventoMidi2_Read()

Dim b2 As Byte

Read #varFile2, b2

Print b2

'''End'''